窗体有命令按钮Commandl和文本框Text1,对应的事件代码如下:For i=1T04X==3For i=1t03For k=1T02x
窗体有命令按钮Commandl和文本框Text1,对应的事件代码如下:
For i=1T04X==3
For i=1t03
For k=1T02
x=x+3
Next k
Next j
Next i
Text1.Value=Str(x)
End Sub
运行以上事件过程,文本框中的输出是()。
A.6
B.12
C.18
D.21
窗体有命令按钮Commandl和文本框Text1,对应的事件代码如下:
For i=1T04X==3
For i=1t03
For k=1T02
x=x+3
Next k
Next j
Next i
Text1.Value=Str(x)
End Sub
运行以上事件过程,文本框中的输出是()。
A.6
B.12
C.18
D.21
窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下:
Private Sub Commandl_Click()
For i=1 To 4
x=3
For j=l to 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Textl.Value=Str(x)
End Sub
运行以上事件过程,文本框中的输出是()。
A.6
B.12
C.18
D.21
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),然后编写如下事件过程:
在窗体上添加一个命令按钮(名为Commandl)和一个文本框(名为Textl),并在命令按钮中编写如下事件代码:PrivateSubCommandlClick()m=17n=Len(Str$(m)+Sp2ace(5))Me!Text1=nEndSub打开窗体运行后,单击命令按钮,在文本框中显示______。
A.5
B.8
C.9
D.10
在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,然后编写如下代码:
Dim Save All As String
Private Sub Commandl_C1iCk()
Text1.Text=Left(UCase(SaveAU),4)
End Sub
Private Sub Textl_KeyPress(KeyAscii As Intege)
SaveA11=Save All+Chr(KeyAscii)
End Sub
程序
设窗体上有一个名为Txtl的文本框和一个名为Commandl的命令按钮,并有以下事件过程:
Private Sub Commandl一Click()
x!==Val(Textl.Text)
Select Case x
Casc Is<-10,Is>=20
Print“输入错误”
Case Is<0
Print 20 x
Case ls<10
Print 20
Case Is=20
Print x+10
End Select
End Sub
程序运行时,如果存文本框中输入一5,则单击命令按钮后的输出结果是
A.5
B.20
C.25
D.输入错误
在窗体上画两个文本框(Name属性分别为Textl和Text2)和一个命令按钮(Name属性为Commandl),然后编写如下事件过程:
A. 1和0
B. 2和72
C. 3和50
D. 4和168
在窗体中有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下:
For i=1 T04
X=3
For j=1 T03
For k=1 T02
x=x+3
Next k
Next jNext iText1.Value=Str(x)
End Sub
打开窗体运行后,单击命令按钮,文本框Text1中输出的结果是()。
A.6
B.12
C.18
D.21
在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为Text1),然后编写如下事件过程:
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
x=5:y=7:z=0
Me!Text1=””
Call p1(x,y,z)
Me!Text1=z
End Sub
Sub p1(a As Integer,b As Integer,c As Integer)
c=a+b
End Sub
打开窗体运行后,单击命令按钮,文本框中,显示的内容是【 】。
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl_C1ick() Dim i As Integer, n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Textl. Text=Str(n) End sub 程序运行后,单击命令按钮,在文本框中显示的值是 ()
A.2
B.3
C.4
D.5
在窗体上画1个命令按钮和1个文本框,其名称分别为Commandl和Textl,再编写如下程序:
Dim 88 As String
Private Sub Textl—KeyPress(KeyAscii As Integer)
If Chr(KeyAscii)<>””Then ss=ss+Chr(KeyAscii)
End Sub
Private Sub Commandl_Click()
Dim m As String,i As Integer
For i=ten(ss)To 1 Step-1
Ill=m+Mid(88,,i,1)
Next
Textl.Text=UCase(n1)
End Sub
运行程序后,在文本框中输入“Number 100”,并单击命令按钮,则文本框中最示的是
A.NUMBER 100
B.REBMUN
C.REBMUN 100
D.001 REBMUN