7. 按钮控件test的单击事件过程如下: Private Sub test_Click() Dim I,R R=0 For I=1 To 5 Step 1 R=R+I Next I bResult.Caption=Str(R) End Sub 打开窗体运行后,单击命令按钮,在窗体标签bResult内将显示的是______。
11. 下列程序的功能是求算式:1-1/2+1/3-1/4+…前30项之和。 Private Sub Command1_Click() Dim i as integer, s as single, f as integer s=0: f=1 For i=1 To 30 s=s+f/i f=______ Next i Debug.Print"1-1/2+1/3-1/4+…="; s End Sub 横线处应填写的内容是______。
22. 在窗体有两个名为text1、text2的文本框和一个名为Command1的命令按钮,事件过程如下: Private Sub command1_click() Dim x As Integer,n As Integer x=1 n=0 Do While x<20 x=x * 3 n=n + 1 Loop Text1=Str(x) Text2=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框text1和text2中显示的值分别是______。
33. 在窗体中有一个命令按钮Command1和一个文本框Text1,编写事件代码如下: Private Sub Command1_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.valme=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框 Text1输出的结果是______。