1,计算 1/2+1/4+1/6+…1/10
Private Sub Command1_Click()
Dim s!, i%
s = 0
For i = 2 To 10 Step 2
s = s + 1 / i
Next i
Print "s="; s
2.计算 s=1+1/2!+1/3!+1/4!+1/5!+…1/n!请在输入的文件中用 command1_click 事
件,利用文本控 text1 输入正整数 n 的值,并显示在 form 上
Dim i%, j%, n%, s#, sum#
Private Sub Command1_Click()
n = Val(Text1.Text)
s = 1: sum = 1
For i = 1 To n
For j = 1 To i
sum = sum * j
Next j
s = s + 1 / sum
Next i
Print "s="; s
End Sub
3.请在给出窗体中使用 for 循环语句编写程序打印下面给出的图形,特别说明每
一行两个数字之间有两个空格
1
2 4
3 6 9
4 8 12 16
5 10 15 20 25
Private Sub Command1_Click()
Dim s&
For i = 1 To 5
For j = 1 To i
s = i * j
Print s; Space(2);
Next j
Print
Next i
End Sub
4.通过键盘输入 15 个数,找到其中的最大值和最小值并对掉,将对调之后的结
果以红色 15 号子显示在 label1 中
Dim a(1 To 15) As Integer, i%, j%
Private Sub Command1_Click()