网页资讯贴吧知道视频音乐图片地图文库
进入贴吧全吧搜索吧内搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
04月15日漏签0天
vb吧 关注:119,800贴子:1,133,328
  • 看贴

  • 图片

  • 精品

  • 游戏

  • 84回复贴,共1页
<<返回vb吧
>0< 加载中...

[源代码]递增序列数的阶乘和

  • 只看楼主
  • 收藏

  • 回复
  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
给有需要的同学,就不用到处求了,还跪求.唉.
Private Function Factorial(ByVal subnumber As Integer) As Long
Dim temp As Long
temp = 1
Dim i As Integer
For i = 1 To subnumber
temp = temp * i
Next i
Factorial = temp
End Function




Private Sub Form_Load()
Me.AutoRedraw = True
Me.FontSize = 20
Dim i As Integer
Dim sum As Long
Dim temp As String
temp = ""
sum = 0
For i = 1 To 10
sum = sum + Factorial(i)
temp = temp & CStr(i) & "!+"
Next i
Me.Cls
temp = Left(temp, Len(temp) - 1)
Print
Print temp & " 的值为:"
Print sum

End Sub


  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼


  • 唱小星星的女人
  • 啥也不懂
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
好


  • 风轻灬云淡彡
  • 世界你好
    3
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
fun函数1到n偶数平方和怎么求呀?


  • 风轻灬云淡彡
  • 世界你好
    3
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
这道题具体改怎么做呀?


  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Private Function fun(ByVal k As Integer) As Long
fun = k * k
End Function


Private Sub Form_Load()
Me.AutoRedraw = True
Dim i As Integer
Dim sum As Long
Dim n As Integer
n = 100
sum = 0
For i = 2 To n Step 2
sum = sum + fun(i)

Next
Me.Cls
Print
Print "从1到" & n & "的偶数平方和为:"
Print sum


End Sub


  • 风轻灬云淡彡
  • 世界你好
    3
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
这个题呢


  • chaqs3
  • 暴力枚举
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
帮顶


  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼



  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Private Sub Command1_Click()
Me.Timer1.Interval = 100
End Sub


Private Sub Timer1_Timer()

If Me.Command2.Left < Me.ScaleWidth - Me.Command2.Width Then
Me.Command2.Left = Me.Command2.Left + 20
Else
Me.Command2.Left = 10
End If
End Sub


  • 风殇的翅膀
  • 网络通信
    11
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
去学校机房下个2级模拟考试题库,基本上吧里那些简单的小程序都有了


  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
数字逆向排序输出,创建一个工程,将代码复制进去就可以了:
Private Sub Form_Load()
'逆向数字
Dim tempNumber As String
Dim temp As String
Dim i As Integer
tempNumber = InputBox("请输入数字")
temp = ""
If Val(tempNumber) > 0 Then
For i = Len(CStr(Val(tempNumber))) To 1 Step -1
temp = temp & Mid(CStr(Val(tempNumber)), i, 1)
Next i
End If
If temp <> "" Then
MsgBox temp
End If
End Sub


  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼


  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Dim i As Integer
Dim MaxNumber As Long
Dim TempSum As Long
MaxNumber = 30000
Do While TempSum <= MaxNumber
TempSum = TempSum + i
i = i + 1
Loop
MsgBox i


  • Luosen56
  • 小吧主
    13
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼


  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼



  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Option Explicit
Dim TempNumber As Integer
Private Sub RndTextBoxValue()
Dim a As Integer
Dim b As Integer
Dim f As Integer
Dim temp As Integer
Randomize
a = Int((100 * Rnd) + 1)
b = Int((100 * Rnd) + 1)
f = Int((2 * Rnd) + 1)
If f = 1 Then
Label1.Caption = "+"
TempNumber = a + b
Else
Label1.Caption = "-"
If a < b Then
temp = a
a = b
b = temp
End If
TempNumber = a - b
End If
Me.Text1.Text = a
Me.Text2.Text = b
Me.Text3.Text = ""
End Sub
Private Sub IniTextBox()
'初始化输入框的数据
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Text3.Text = ""
End Sub
Private Sub Command1_Click()
If Val(Me.Text3.Text) = TempNumber Then
Me.Label6.Caption = Val(Me.Label6.Caption) + 1
Else
Me.Label5.Caption = Val(Me.Label5.Caption) + 1
End If
RndTextBoxValue
Me.Text3.SetFocus
End Sub
Private Sub Form_Load()
Me.Text3.BackColor = RGB(125, 251, 142)
IniTextBox
RndTextBoxValue
End Sub


  • oshi001
  • 钩子编程
    15
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
http://tieba.baidu.com/p/4943805608?pid=102746462948&cid=0#102746462948
欢迎点击观看另一个小程序


登录百度帐号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 84回复贴,共1页
<<返回vb吧
分享到:
©2020 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示