单项选择题

有如下事件过程，单击命令按钮扣，输出结果是( )。　　 Private Sub Command1 Click( ) 　　　　Dim b% (1 To4) ,j%, t# 　　　　For j=1 To 4 　　　　　　b(j) =j 　　　　Next j 　　　　t=Tax(b( ) ) 　　　　Print "t="; t, 　　 End Sub 　　 Function Tax (a( ) As Integer) 　　　　Dim t#, i% 　　　　t=1 　　　　For i=2 To UBound (a) 　　　　　　t=t * a(i) 　　　　　　Next i 　　　　　　Tax=t 　　 End Function

A． t=18
B． t=24
C． t=30
D． t=32

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个通用对话框图，其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等价

单项选择题

编写如下两个事件过程：Private Sub Form_KeyDown(KeyCode AS Integer，Shift As Integer)Print Chr(KeyCode)End SubPrivate Sub Form_KeyPress(KeyAscii As Integer)Print Chr(KeyAscii)End Sub在一般情况下(即不按住Shift键和锁定大写键时)运行程序，如果按 A 键，则程序输出的结果是（）。

A．A A
B．a A
C．A a
D．a a

相关试题