VB编程题(附案).doc

Vb编程题 求自然数1～100之间奇数之和。 Private Sub Form_Click() Dim i%, sum% For i = 1 To 99 Step 2 sum = sum + i Next i Print sum=; sum End Sub 求自然数1～100之间偶数之和。 Private Sub Form_Click() Dim i%, sum% For i = 1 To 100 If i mod 2=0 then sum = sum + i end if Next i Print sum=; sum End Sub 编写程序，在窗体上随机输出一个10--99之间的两位整数。 Sub command1_click() Dim a% Randomize a=int(rnd*90+10) print a end sub 编程计算从200到1000之间的所有4的倍数之和。 Private Sub Form_Click() Dim sum As Long sum = 0 For i = 200 To 1000 If i Mod 4 = 0 Then sum = sum + i End If Next i Print sum End Sub 编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2 Dim s As Single s = 0 For i = 5 To 1 Step -1 s = s + i / (i + 1) Next Print “5/6+4/5+3/4+2/3+1/2=”;s 在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。 Private Sub Command2_Click() Cls a = Val(InputBox(接收三个数:)) Print a; Max = a For i = 1 To 2 a = Val(InputBox(接收三个数:)) Print a; If a Max Then Max = a Next Print Print 三数中最大者是:; Max End Sub 在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。 Private Sub Command2_Click() Dim a(1 To 3) As Integer For i = 1 To 3 a(i) = InputBox(请输入第 i 个数) Next i For i = 1 To 2 For j = i + 1 To 3 If a(i) a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i Print a(2) End Sub 8.编写程序，通过InputBox函数从键盘上输入4个数,计算并在窗体上显示这4 个数的和及平均值。 Private Sub Command2_Click() Dim a(1 To 4) As Integer Dim sum As Integer, aver As Single For i = 1 To 4 a(i) = Val(InputBox(请输入第 i 个数)) sum = sum + a(i) Print Str(a(i)) Next i aver = sum / 4 Print 和：; sum Print 平均值：; aver End Sub 9.在窗体的单击事件过程中，编写程序计算1！+2！+3！+ … +20! Private Sub Form_Click() cls Sum = 0 x = 1 For i = 1 To 15 x = x * i Sum = Sum + x Next Print 1!+2!+...+15!=; Sum End Sub 10.输入x，计算y的值。其中：y=1+3x (x=0); y=1-5x (x0)。 Private Sub Command1_Click() Dim x!, y! x = InputBox(请输入x的值) If x 0 Then y = 1 - 5 * x Else y = 1 + 3 * x End If Print y=; y End Sub 11.编写程序，在窗体上输出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。 Private Sub Command1_Click() Dim a%, n% For i = 1 To 5 For j = 1 To 5 a = i * 10 + j n = n + 1 Print Str(a) Next j Next i Print 总