单项选择题
有如下程序段: Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print G(a) Next i End Sub Function G(a As Integer) b=0 Static c b=b + 1 c=c + 1 G=a + b + c End Function 运行上面的程序后,单击命令按钮,输出结果为( )。
A. 1 2 3
B. 2 3 4
C. 4 5 6
D. 1 4 6
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
设在窗体上有一个文本框,然后编写如下的事件过程:Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger)Const Alt=4Const Key_f2=&H71altdown%=(Shift And Alt) > 0f2down% And f2down% ThenIf altdown% And f2down% ThenText = abl End IfEad Sub程序运行后,清除文本框中原有内容,如果按Shift+F2键,则在文本框中显示的是( )。
A. add()
B. requestFocus()
C. repaint()
D. paint()
点击查看答案&解析
单项选择题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后,单击命令按钮,在文本框中显示的值是( )。
A.15
B.14
C.13
D.12
点击查看答案
相关试题
在窗体上添加一个文本框控件Info,画一个命...
在Visual Basic 的立即窗口内输入以下语...
在窗体上画 1 个文本框,名称为 Text1...
窗体上有一个名称为List1的列表框,一个名...
下面程序的作用是用InputBox函数输入一个整...