单项选择题
若有如下程序:
Private Sub Command1_Click()
Dim i As Integer, k As Integer
k=2
For i = 1 To 3
Print H(k);
Next i
End Sub
Function H(j As Integer)
Static b
a=0
a=a+1
b=b+1
H=a*b+j
End Function
单击命令按钮,执行程序,输出结果是( )。
A) 2
3
4
B) 3
4
5
C) 5
6
7
D) 3
5
6
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
在窗体上画一个通用对话框,其名称为CommonDialog1,然后画一个命令按钮,并编写如下事件过程: Private Sub Command1_Click() CommonDialog1.Flags=vbOFNHideReadOnly CommonDialog1.Filter= All Files(*.*)|*.*|Text Files(*.txt)|*.txt CommonDialog1.FilterIndex=1 CommonDialog1.ShowOpen MsgBox CommonDialog1.FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是
A) All Files(*.*)
B) Text Files(*.txt)
C) Batch Files(*.bat)
D) All Files(*.*)|Text Files(*.txt)
点击查看答案&解析
单项选择题
在窗体上画—个名称为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
点击查看答案&解析
相关试题
在窗体上画两个滚动条,名称分别为Hscroll...
设在工程文件中有—个标准模块,其中定义了...
下列关于文件的叙述中,错误的是
在VBA中打开“stu”表的语句是( )。
在窗体上画一个文本框,其名称为Text1。为...