单项选择题

有如下事件过程，单击命令按钮扣，输出结果是( )。　　 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．私有成员
B．保护成员
C．公有成员
D．所有成员

<上一题目录下一题>

热门试题

单项选择题

窗体上有名称为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组 Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算（乘以1、10或100），并将结果显示在Text2中，如图2所示，为了实现上述功能，在程序中的问号（？）处应填入的内容是______。Private Sub Option1_Click(Index As Integer)If Text1.Text<> ThenSelect Case Case 0 Text2.Text=Val(Text1.Text) Case 1 Text2.Text=Val(Text1.Text)*10Case 2Text2.Text=Val(Text1.Text)*100End SelectEnd IfEnd Sub

A．Index
B．Option1.Index
C．Option1(Index)
D．Option1(Index).Value

单项选择题

单击窗体时，下列程序的执行结果是( )。Private Sub Invert(By Val xstr As String，ystr As String)Dim tempstr AS StringDim I AS IntegerI=Len(xstr)Do While I＞=1tempstr=tempstr + Mid(xstr，I，1)I=I - 1LoopyStr=tempStrEnd SubPrivate Sub Form_Click( )Dim s1 As String，s2 As StringS1= abcdef Invert S1，S2Print S2End Sub

A．blooean isAlive( )
B．Thread currentThread( )
C．String getName( )
D．smtic boolean interrupted( )

相关试题