单项选择题

有如下程序： 　　Private Sub Commandl_Click() 　　　Dim a As Integer 　　　a=2 　　　For i=1 To 3 　　　　　Print Gad (a) 　　　　　Next i 　　End Sub 　　Function Gad (a As Integer) 　　　b=0 　　　Static c 　　　b=b + 1 　　　c= c + 1 　　　Gad= a + b + C 　　End Function 　　运行上面的程序后，单击命令按钮，输出结果为( )。

A．12 3
B．234
C．456
D．146
<上一题 目录 下一题>
热门 试题

单项选择题
在窗体上画一个通用对话框图，其Name属性为Cont,瑞画一个命令按钮，Name属性为Command1，然后编写如下事件过程：Privute Sub Command1_Click( )Cont．FileName= Cont．Flags=vbOFNFileMustExistCont．Filter= All Files| * . * Cont．FilterIndes_3Cont．DialogTitle= Open File Cont．Action=1If Cont．FileName= ThenMsgBox No file selected ElseOpen Cont．FileName For Input As #1Do While Not EOF(1)Input #1. b$Print b$LoopEnd IfEnd Sub以下各选项，对上述事件过程描述错误的是( )。
A． 该事件过程用来建立一个Open对话框，可以在这个对话框中选择要打开的文件
B． 选择后单击“打开”按钮，所选择的文件名即作为对话框的FileName属性值
C． Open对话框不仅仅用来选择一个文件，还可以打开、显示文件
D． 过程中“Cont．Action=1”用来建立 Open对话框，它与Cont．ShowOpen等价
单项选择题
在窗体上画一个命令按钮，然后编写如下事件过程：Sub BTC(old Copy( ) As Integer，new Copy( ) As Integer)Dim i AS IntegerFor i=LBound(oldCopy( ))To UBound(oldCopy( ))newCopy(i)=oldCopy(i)Next iEnd SubPrivate Sub Command1 _ Click( )Dimm(10) As Integer，n(10)As IntegerFor i=1 To 10m(i) =i*i Next iCall BTC(m，n)Print n(5)End Sub程序运行后，单击命令按钮输出结果为( )。
A．’65+13’
B．["电脑商情"]
C．[[中国]]
D．’[x=y]’
相关试题