单选题计时器控件触发的事件过程只能是
单选题在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： Private Sub
Command1_Click() Dim i As Integer，j As Integer
Dim a(10， 10)As Integer For i=1 To
3 For i=1 To 3
a(i，j)=(i-1) *3+j Print
a(i，j)； Next i
Print Next i End Sub
程序运行后，单击命令按钮，窗体上显示的是
A. 1 2 3 246 3 69
B. 2 3 4 3 4 5 4 5 6
C. 1 4 7 2 5 8 3 6 9
D. 1 2 3 4 5 6 7 8 9
单选题下面过程定义语句可以使过程调用后不影响主调过程中的实际参数的是______ 。
A.Sub Com (By Val a，By Val b)
B.Sub Com (a，By Val b)
C.Sub Com (a，b)
D.Sub Com (By Val a，b)
单选题要使一个文本框可以显示多行文本，应设置为True的属性是
单选题保存一个工程至少应保存两个文件，这两个文件分别是( )。 A) 文本文件和工程文件 B) 窗体文件和工程文件 C) 窗体文件和标准模块文件 D) 类模块文件和工程文件
单选题为计算an的值，某人编写了函数power如下： Private Function power(a As
Integer,n As Integer)As Long Dim p As Long
p=a For k=1 Ton
p=p*a Next k
power=p End Function
在调试时发现是错误的，例如Print power(5,4)的输出应该是625，但实际输出是3125。程序需
要修改。下面的修改方案中有3个是正确的，错误的—个是______。
单选题假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1 = UCase(Mid(S， i， 1)) +s1 Next i Fun =s1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim Str1 As String， Str2 As String Strl = InputBox(“请输入一个字符串”) Str2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定” 按钮后在窗体上的输出结果为，
单选题将窗体的KeyPreview属性设为True，然后编写如下程序： Private Sub Form—KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form—KeyPress(KeyAscii．As Integer) Print Chr(KeyAscii) End Sub运行程序时，按下字母键a，则窗体上显示的是( )。
单选题不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是( )。
单选题在窗体上画1名为Command1的命令按钮和1名Text1的文本框，再编写如下程序：Dim ss As String Private Sub Commandl_Click()Private Sub Text1_KeyPress(KeyAscii_ Dim m As String，i As Integer As Integer) For i=Len(ss)To 1 Step-1 If Chr(KeyAscii)＜＞""Then m=m+Mid(ss，i，1) ss=ss+Chr(KeyAscii) NextEnd Sub Text 1．Text=UCase(m) End Sub程序运行后，在文本框中输入“Number 100”，并单击命令按钮，则文本框中显示的是
单选题窗体上有一个名称为Picture1的图片框控件，一个名称为Label1的标签控件，如图所示。现有如下程序：PublicSubdisplay(XAsControl)IfTypeOfxIsLabelThenxCaption="计算机等级考试"ElsexPicture=LoadPicture("pic．jpg")EndIfEndSubPrivateSubLabel1_Click()Calldisplay(Label1)EndSubPrivateSubPicture1_Click()Calldisplay(Picture1)EndSub对以上程序，下列叙述中错误的是()。
单选题表达式Chr(Asc("G")+3)的值是______。
单选题阅读下列程序： Private Sub Command1_Click() Dim i As Integer，k As Integer k=2 For i=1 To 3 Print Fun(k)； Next End Sub Function Fun(j As Integer) Static b a=0 a=a+1 b=b+1 Fun=a*b+j End Function 程序运行后，单击命令按钮输出结果是 A) 234 B) 345 C) 567 D) 356
单选题不能脱离控件(或窗体)而独立存在的过程是______。
单选题用户在组合框中输入或选择的数据可以通过( )属性来获得。 A) List B) ListIndex C) Text D) ListCount
单选题一个工程必须包含的文件的类型是( )。
单选题在菜单编辑器中建立1个名称为Menu()的菜单项，将其“可见”属性设置为False，并建立其若干子菜单，然后编写如下过程 Private Sub Form_MousDown(Button As Integer，Shift As Integer，X As Single，Y As Single) If Button=1 Then PopupMenu Menu() End If End Sub 则以下叙述中错误的是
单选题执行语句s=Len(Mid("Visual Basic"，1，6))后，s的值是
A. Visual
B. Basic
C. 6
D. 11
单选题在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Option1_Click(Index As Integer) Select Case Case 0 a=“宋体” Case 1 a=“黑体” Case 2 a=“楷体_GB2312” End Select Text1. =a End Sub
单选题Visual Basic程序中的注释所使用的字符是（ ）