单项选择题

在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程:
Private Sub Command1_Click()
s=0
For i=1 To 15
x=2 * i-1
If x Mod 3=0 Then s=s+1
Next i
Label1. Caption = s
End Sub
程序运行后,单击命令按钮,则标签中显示的内容是( )。

A) 1
B) 5
C) 27
D) 45
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上有一个名称为CD1的通用对话框,一个名称为Command1的命令按钮,相应的事件过程如下: Private Sub Command1_Click() CD1. Filter = All File| *. * |Text File| *. txt|PPT| *. ppt CD1. FiherIndex = 2 CD1. InitDir = C: CD1. FileName = default CD1. ShowSave End Sub 关于上述过程,以下叙述中正确的是( )。
A) 默认过滤器为“*. ppt”
B) 指定的初始目录为“C: \”
C) 打开的文件对话框的标题为“default”
D) 上面事件过程实现保存文件的操作
单项选择题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer, n As Integer For i =0 To 50 i=i+3 n=n+1 If i > 10 Then Exit For Next Text1. Text =Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是( )。
A) 2
B) 3
C) 4
D) 5
相关试题
  • 在考生文件夹下有一个工程文件sjt5. vbp...
  • 在名称为Form1的窗体上添加两个命令按钮(...
  • 在考生文件夹下有一个工程文件sjt3. vbp...
  • 在名称为Form1的窗体上添加一个文本框,其...
  • 在考生文件夹下有一个工程文件sjt4. vbp...