单项选择题

在窗体上画—个名称为Label1的标签，然后编写如下事件过程： Private Sub Form_CIick( ) Dim arr(10，10)As Integer Dim i As Integer，j As Integer For i=2 To 4 For j=2 To 4 srr(i，j)=i*j Next j Next i Label1.Caption=Str(arr(2，2)+arr(3，3)) End Sub 程序运行后，单击窗体，在标签中显示的内容是

A．12
B．13
C．14
D．15

<上一题目录下一题>

热门试题

单项选择题

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer IfX＜20 Then Y=X Else Y=20+X End lf func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Private Sub Form_MouseUp(Button As Integer，Shift As Integer，X As SinSle，Y As Single) SW=True End Sub Prinvate Sub Command1_Click( ) Dim intNum As Integer intNum=InputBox(””) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入25，则程序的执行结果为

A．输出0
B．输出25
C．输出45
D．无任何输出

单项选择题

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串： Microsoft Visual Basic Programming 然后编写如下事件过程： Private Sub Command1_Click( ) Open“d： temp outf.txt For Output As#1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text，i，1) Ifc＞=“A”And c＜=“Z”Then Print#1，LCase(c) End lf Next i Close End Sub 程序运行后，单击命令按钮，文件outf.txt中的内容是

A．MVBP
B．mvbp
C．M V B P
D．m v b p

相关试题