更多"在窗体中添加一个命令按钮(名为Command1) 和一个文本框(名为t"的相关试题:
[单项选择]在窗体中添加一个命令按钮,名称为Command1;添加一个文本框,名称为Text1,然后编写如下程序:
Private Sub Commandl Click( )
Dim a(5), b(5)
For j = 1 To 4
a(j) = 3 ( j
b(j) = a(j) ( 3
Next j
Text1.Text = b(j/2)
End Sub
程序运行后,单击命令按钮,在文本框中显示
A. 25
B. 18
C. 36
D. 35
[单项选择]在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事例代码:
Private Sub Command1_Click( )
Str1="981765"
Str2="65"
n=InStr(Str1,Str2)
Me.Text1=n
End Sub
窗体打开运行后,单击命令按钮,在文本框中显示______。
A. 4
B. 5
C. 6
D. 7
[单项选择]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码:
Private Sub Command1_Click( )
m=2.17
n=Len(Str$(m)+Space(5))
Mc! Text1=n
End Sub
打开窗体运行后,单击命令按钮,在文本框中显示( )。
A. 5
B. 8
C. 9
D. 10
[填空题]在窗体中添加一个命令按钮Command1和一个文本框Text1,编写如下代码:
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,z As Integer
a=5,b=10,c=0
Me!Text1=" "
Call p1(a,b,c)
Me!Text1=12
End Sub
Sub pl(XxAs Integer,y As Integer,z As Integer)
z=x+y
End Sub
程序运行后,文本框中应显示的内容为______。
[单项选择]在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1、Text2,然后编写如下程序:
Private Sub Command1_Click(
)
Dim x As String, y As String, c As String, d As String
x = Text1.Text : y = Text2.Text
c = LCase(x): d = UCase(y)
Print c; d
End Sub
程序运行后,在文本框Text1、Text2中分别输入AbC和efG,结果是________。
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
[单项选择]在窗体中添加一个命令按钮,名称为Command1,两个文本框名称分别为Text1和.Text2,然后编写如下程序:
Private Sub Command1_Click( )
Dim x As String,y As String, C As String,d As String
x = Text1.Text : y = Text2.Text
c = LCase(x):d = UCase(y)
Print c; d
End Sub
程序运行后,在文本框Texn、Text2中分别输入AbC和efG,结果是
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
[填空题]在窗体中添加一个命令按钮(名为Command1) 和一个文本框(名为text1) ,然后编写如下事件过程:
Private Sub Command1_C1ick( )
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
打开窗体运行后,单击命令按钮,文本框中显示的内容是______
[填空题]在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1),编写如下事件过程:
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,z As Integer
x=3:y=5:z=10
Me!Text1=""
Call f(x,y,z)
Me!text1=z
End Sub
Sub f(a As Integer,b As Integer,c As Integer)
c=b*a
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的内容是______。
[填空题]在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为Text1),然后编写如下事件过程:
Private Sub Command1_Click( )
Dim x As Integer,y As Integer,z As Integer
a=5,b=10,c=0
Me!Text1=""
Call p1(a,b,c)
Me!Text1=c
End Sub
Sub p1(x As Integer,y As Integer,z As Integer)
z=x+y
End Sub
打开窗体运行后,单击命令按钮,文本框中显示的内容是______。
[填空题]在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为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
打开窗体运行后,单击命令按钮,文本框中显示的内容是______。
[单项选择]在窗体上添加一个命令按钮(名为Command1)和一个文本框(名为Text1),则执行如下事件过程后,文本框中的输出为______。
private Sub Command1_ click( )
for i = 1 To 4
for j = 1 To 3
x = 3
for K = 1 To 2
x=x+3
Next K
Next j
Next i
Text1.Text= Str(x)
End Sub
A. 3
B. 6
C. 9
D. 12
[填空题]在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为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
打开窗体运行后,单击命令按钮,文本框中显示的内容是__________ 。