单项选择题

在窗体中添加一个命令按钮和一个文本框，并编写如下程序代码：
Private Sub Command1_Click()
k=0
Do While k ＜ 70
k=k+2
k=k*k+k
a=a+k
Loop
Text1．Text=a
End Sub
程序运行后，文本框中显示的是

A．20
B．32
C．44
D．78

<上一题目录下一题>

热门试题

单项选择题

编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是

A．6
B．12
C．24
D．47

单项选择题

在窗体上画一个文本框Text1、一个标签Label1和一个命令按钮Command1，然后编写如下两个事件过程： Private Sub Command1_Click() a=InputBox( 请输入一个字符串 ) Text1．Text=a End Sub Private Sub Textl_Change() Label1．Caption=UCase(Mid(Text1．Text，8)) End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“Visual Basic”，则在标签中显示的内容是

A．visual basic
B．VISUAL BASIC
C．basic
D．BASIC

相关试题