单项选择题
有如下程序段: 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
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
填空题
下列程序的功能是:将数据1,2,…,8写入顺序文件Num.txt中,请补充完整。Private Sub Form_Click() Dim i As IntegerOpen Num.txt For Output As #1For i=1 To 8【 】 Next iClose #1End Sub
点击查看答案&解析
填空题
在窗体上有一个命令按钮,然后编写如下程序:Function Trans(ByVal num As Long) As LongDim k As Longk=lDo While numk=k * (num Mod 10)num=num 10LoopTrans=kPrint TransEnd FunctionPrivate Sub Commandl_Click( )Dim m As LongDim s As Longm=InputBox( 请输入一个数 )s=Trans(m)End Sub程序运行时,单击命令按钮,在输入对话框中输入“789”,输出结果为【 】,在输入对话框中输入“987”输出【 】,在输入对话框中输入“879”,输出结果为【 】。
点击查看答案&解析
相关试题
用户可以用【 】语句定义自己的数据类型。
下列程序是判断一个整数(>=3)是否为素...
在关系模型中,把数据看成是二维表,每一个...
在Visual Basic 的立即窗口内输入以下语...
以下程序的功能是从键盘输入若干个学生的考...