更多"[单选题]题 （1.0分）在窗体上画3个标签、3个文本框(名称分别为T"的相关试题:
[单选题]在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个
命令按钮(名称为Command1).
编写如下程序
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub
Private Sub Command1_Click()
X=Val(Text1.Text)
Y=Val(Text2.Text)
Text3.Text=GCD(x,y)
End Sub
Function GCD(ByVal x As Integer,ByVal y As Integer)
Do While y<>.tmp=x Mod y
X=y
Y=tmp
Loop
GCD=x
End Function
运行程序,在Text1文本框中输入18,在Text2文本框中输入12,
然后单击命令按钮,则在Text3文本框中显示的内容是().
A..
B..
C.1.
D.1.
[单选题]在窗体上画两个名称分别为Text1,Text2的文本框
和一个名称Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim x As Integer,n As Integer
X=.
N=.
Do While X<2.
X=X*.
N=n+.
Loop
Textl.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在两个文本框中显示的值分别是().
A.15和1
B.27和3
C.195和3
D.600和4
[单选题]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim array1(10,10) As Integer
Dim i,j As Integer
For i=1 To 3
For j=2 T0 4
Array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2,3)+array1(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是().
A.1.
B.1.
C.1.
D.1.
[单选题]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,
然后编写如下程序:
Private Sub Command1_Click()
Dim x, y, z As Integer
X = .
Y = .
Z = .
Text1.Text = ""
Call P1(x, y, z)
Text1.Text = Str(x) & Str(z)
End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)
A=a+.b=b+.
C = a + b
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是().
A.5 1.
B.6 1.
C.5 .
D.6 .
[单选题]在窗体上画一个名称为TxtA的文本框,然后编写如下事件过程:
Private Sub TxtA_KeyPress(Keyascii as integer)
…
End Sub
若焦点位于文本框中,则能够触发KeyPress事件的操作是().
A.单击鼠标e
B.双击文本框
C.鼠标划过文本框
D.按下键盘上的某个键
[单选题]在窗体上画一个名称为Textl的文本框和一个名称
为Commandl的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For j=.To 5.
I=i+.
N=n+.
If i>1.Then
Exit For
End If
Next
Textl.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是().
A.2
B.3
C.4
D.5
[单选题]题 （1.0分）
在窗体上画一个名称为Textl的文本框和一个名称
为Commandl的命令按钮,然后编写如下事件过程.
Private Sub Command1_Click()
Dim i As Integer,n As Integer
For j=0 To 50
I=i+3
N=n+1
If i>10 Then
Exit For
End If
Next
Textl.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是().
A.2
B.3
C.4
D.5
[单选题]在窗体上画两个单选按钮,名称分别为Option1,Option2,标题分别为"宋体"和"黑体";
一个复选框,名称为Check1,标题为"粗体";一个文本框,名称为Text1,Text属性为"改变文字字体".
要求程序运行时,"宋体"单选按钮和"粗体"复选框被选中,则能够实现上述要求的语句序列().
A.Option1.Value=True Checkl.Value=False
B.Option1.Value=True Checkl.Value=True
C.Option2.Value=False Check1.Value=True
D.Option1.Value=True Check1.Value=1
[单选题]如果在窗体上已经创建了一个文本框对象Text1,可以通过()事件获得输入键值的ASCII码.
A.Change
B.LostFocus
C.KeyPress
D.GotFocus
[单选题]51题 （1.0分）
如果在窗体上已经创建了一个文本框对象Text1,可以通过()事件获得输入键值的ASCII码.
A.Change
B.LostFocus
C.KeyPress
D.GotFocus
[单选题]题 （1.0分）
在窗体上画两个单选按钮,名称分别为Option1,Option2,标题分别为"宋体"和"黑体";
一个复选框,名称为Check1,标题为"粗体";一个文本框,名称为Text1,Text属性为"改变文字字体".
要求程序运行时,"宋体"单选按钮和"粗体"复选框被选中,则能够实现上述要求的语句序列().
A.Option1.Value=True Checkl.Value=False
B.Option1.Value=True Checkl.Value=True
C.Option2.Value=False Check1.Value=True
D.Option1.Value=True Check1.Value=1
[单选题]题 （1.0分）
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序.
Private Sub Command1_Click()
Dim x,y,z As Integer
X=5
Y=7
Z=0
Text1.Text=" "
Call Pl(x,y,z)
Textl.Text=Str(z)
EndSub
Sub Pl(ByVal a As Integer,ByVal b As Integer,c As Integer)
C=a+b
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是().
A.0
B.12
C.Str(z)
D.没有显示
[单选题]窗体中有年龄文本框txtAge ,下面选项中可以获得文本框中的年龄值的是( )
A.int age = txtAge ;
B.int age = txtAge.Text ;
C.int age = int.Parse ( txtAge.Text ) ;
D.int age = Convert.ToInt 3 2 ( txtAge ) ;
[单选题]窗体上有文本框Textl,执行下列程序后在文本框输入123abc,单击按钮后输出结果为().
Private Sub From_Load()
Textl.Text=""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Char=Chr(KeyAscii)
KeyAscii=Asc(UCase(Char))
End Sub
Private Sub Command1_Chck()
Print Textl.Text
End Sub
A.123ABC
B.ABC
C.!@#ABC
D.123abe
[单选题]59题 （1.0分）
窗体上有文本框Textl,执行下列程序后在文本框输入123abc,单击按钮后输出结果为().P.rivate Sub From_Load() T.extl.Text=""E.nd Sub P.rivate Sub Text1_KeyPress(KeyAscii As Integer)C.har=Chr(KeyAscii)K.eyAscii=Asc(UCase(Char))E.nd SubP.rivate Sub Command1_Chck() P.rint Textl.Text
A.123ABC
B.ABC
C.!@#ABC
D.123abe
E.nd Sub
[单选题]运行时,当用户向文本框输入新的内容,或在程序代码中对文本框
的TEXT属性进行赋值从而改变了文本框的TEXT属性值时,将触发文
本框的()事件.
A.CLICK
B.DBLCLICK
C.GOTFOCUS
D.CHANGE
[单选题]窗体上有一个按钮和一个文本框,程序执行后,在文本框中输入12345,单击按钮后的输出结果为().
Private Sub Command1_Click()
Dim A As Integer,B As Integer
Textl.SelStart=.
Textl.SelLength=.
A=VaL(Textl.SelText)
B=Len(Textl.Text)
Print A*B
End Sub
A.68
B.115
C.170
D.1170
[单选题]在设计阶段,当双击窗体上的某一个文本框控件时,系统将在代码窗口中显示该文本框控件的()事件过程模板.
A.Click
B.DblClick
C.Change
D.GotFocus
