在窗体中使用一个文本框(名为num1)接受输入值，有一个命令按钮mn13，事件代码如下：Private Sub run13_Click()If Me!num1>=60 Thenresult="及格"Elself Me!num1>=70 Thenresult="通过"ElselfMe!numl>=85 Thenresult="合格"End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是【 】。
题目
在窗体中使用一个文本框(名为num1)接受输入值，有一个命令按钮mn13，事件代码如下：
Private Sub run13_Click()
If Me!num1>=60 Then
result="及格"
Elself Me!num1>=70 Then
result="通过"
ElselfMe!numl>=85 Then
result="合格"
End If
MsgBox result
End Sub
打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是【 】。
相似考题
参考答案和解析
及格
更多“在窗体中使用一个文本框(名为num1)接受输入值,有一个命令按钮mn13,事件代码如下: Private Sub ru ”相关问题
-
第1题：
在窗体上添加一个命令按钮(名为Conunand1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2170 n=Len (Str$ (m) +Space (5)) Me! Text1=n End Sub打开窗体运行后，单击命令按钮，在文本框中显示( )。
A．5
B．8
C．9
D．10
正确答案：C
解析：2170转换为字符串，再在后面加5个空格，所以长度为9。 -
第2题：
在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为text1)，编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
Call f(x,y,z)
End Sub
Sub f(a As Integer,b As Integer,c As Integer)
c=b*a
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的内容是( )。
正确答案：15
15 -
第3题：
若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：
Private Function f(x As Long) As Boolean
If x Mod 2=0 Then
f=False
Else
f=True
End If
End Function
Private Sub Cmd_Click( )
Dim n As Long
n=Val(Me! text1)
p=IIf(f(n), "奇数“，"偶数")
Me! Labell. Caption=n&"是"&p
End Sub
窗体打开运行后，在文本框中输入11，单击命令按钮，则标签显示内容为【 】。
正确答案：11是奇数
11是奇数 解析：输入11后将11转换为数值类型并调用函数f，利用mod运算判断奇偶数，若为偶数返回False，若为奇数返回True。 -
第4题：
在窗体中使用一个文本框(名称为num1)接受输入值，有一个命令按钮run13，事件 代码如下： Private Sub run13_Click() If Me!num1＞=60 Then result="及格" Else If Me!num1＞=70 Then result="通过" Else If Me!num1＞=80 Then result="合格" End If MsgBOx result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是( )。
A．及格
B．通过
C．合格
D．其他
正确答案：A
-
第5题：
在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______ 。
A．abcdefg
B．不显示任何信息
C．ABCDEFG
D．出错
正确答案：C
解析：KeyPreview属性返回或设置一个值，以决定是否在控件的键盘事件之前激活窗体的键盘事件。键盘事件为：KeyDown、KeyUp和KeyPress。 UCase函数的作用是将指定的字符串中的字符转化为大写。 -
第6题：
在窗体中使用一个文本框名为n．接受输入的值，有一个命令按钮run，事件代码如下： Private Sub run_Click( ) result = "" For i = 1 To Me!n For j = 1 To Me!n result = result + "*" Next j result = result + Chr(13) + Chr(10) Next i MsgBox result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是
A． * * * * * * * * * * * * * * * *
B． * * * * * * * * * * * * * * * *
C． * * * * * * * * * * * * * * * * * * * * * * * * * * * *
D． * * * * * * * * * * * * * * * *
正确答案：A
-
第7题：
若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框，且文本框的内容为空，然后编写如下事件代码：
Private Function f(X As Long)As Boolean
If x Mod2=0 Then
f=True
Else
f=False
End If
End Function
Private Sub Command1_ Click()
Dim n As Long
n=Val(Me!text1)
p=Ⅱf(f(n)，"Even number"，"Odd number")
Me!Labell.Caption=n &"is"& p
End Sub
窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为【 】。
正确答案：21isoddnumber
21isoddnumber 解析：函数过程也可称为函数，是一系列由Function和End Function语句包含起来的Visual Basic语句。Function过程和Sub过程很类似，但函数过程可以返回一个值。此题定义一个整型变量Long并把n的值赋予它，n为文本框Text1输入字符转换为数值型的值；当在文本框中输入21，则n的值为21，代入Function函数过程，x为21，对x取模，为偶数时返回True，为奇数时返回False；21是奇数，返回false；IIf涵数调用格式：IIf(条件式，表达式1，表达式2)，条件式值为Tree，函数返回表达式1的值，条件式植为False，函数返回表达式2的值。此处P返回表达式2的值Odd number；&用来强制两个表达式作字符串连接，则最后标签显示内容为21isoddnumber。 -
第8题：
在窗体上有一个名为num2的文本框和run11的命令按钮，事件代码如下： Private Sub run11 Click（ ） Select Case num2 Case 0 Result=“0分” Case 60 T0 84 result= “通过” Case IS>=85 result= “优秀” Case Else result=“不合格” End Select MsgBox result End Sub 打开窗体，在文本框中输入80，单击命令按钮，输出结果是（ ）。
A.合格
B.通过
C.优秀
D.不合格
正确答案：B
输入80时，满足Case60T084条件，因此输出通过。 -
第9题：
在窗体中有一个标签Lablel，标题为“测试进行中”，有一个命令按钮Commandl，事件代码如下： Private Sub Commandl Click（ ）Lablel．Caption=”标签” End Sub Private Sub Form—Load（ ）Form．Caption=”举例” Commandl．Caption=”移动”End Sub 打开窗体后，单击命令按钮，屏幕显示（ ）。
A.
B.
C.
D.
正确答案：D
D。【解析】本题中，窗体开始运行时首先会触发Load事件，将窗体的标题设置为“举例”，命令按钮的标题设置为“移动”；单击命令按钮时将标签的标题设置为“标签”。 -
第10题：
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下： Private Sub Command1_Click Dim a(10)As Integer，b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体，单击命令按钮，文本框Text1中显示的内容是（ ）。
A.13
B.14
C.15
D.16
正确答案：B
当循环结束时，i=5，n=3，a(n)=3，b(n)=2*3+5=11，因此Textl=3+ll=14。 -
第11题：
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。
A．abodefg
B．不显示任何信息
C．ABCDEFG
D．出错
正确答案：B
-
第12题：
（ 32 ） 在窗体上添加一个命令按钮 （ 名为 Command1 ） 和一个文本框 （ 名为 Text1 ） ， 并在命令按钮中编写
如下事件代码：
Private Sub Command1_Click( )
m=2.17
n=Len(Str$(m)+Space(5))
Me!Text1 =n
End Sub
打开窗体运行后，单击命令按钮，在文本框中显示
A ） 5
B ） 8
C ） 9
D ） 10
正确答案：D
-
第13题：
在窗体中使用一个文本框(名为n) 接受输入的值，有一个命令按钮run，事件代码如下：
Private Sub run_Click()
result＝""
For i＝1 To Me!n
For j＝1 To Me!n
result＝result+"*"
Next j
result＝result+Chr(13) +Chr(10)
Next I
MsgBox result
End Sub
打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是( )
A．
B．
C．
D．
正确答案：A
解析： 本题考查二重循环的知识。在这个二重循环中，外循环的执行次数为4，内循环的执行次数也为4，并且每次内循环退出后都要换行，所以最后结果为一个4*4的矩阵，矩阵的每个元素都为“*”。 -
第14题：
在窗体中添加一个命令按钮(名为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
正确答案：B
解析： 字符串检索函数InStr是检索字符串Str2在字符长串Str1的首次出现的位置，返回一个整型数据，本题中Str2在Str1首次出现的位置为 5，所以选择B。 -
第15题：
在窗体中使用一个文本框(名为x)接受输入值，有一个命令按钮test，事件代码如下：
Privme Sub test_Click()
y=0
For i=0 To Me!x
y=y+2*i+1
Next i
MsgBox y
End Sub
打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是【 】。
正确答案：16
16 -
第16题：
在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text 1="VB programming"
Text 2=Text 1
Text 1="ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text 2中显示的内容为【 】。
正确答案：VB programming
VB programming 解析：本段程序是先把“VB programming”赋给Text 1，然后在把Text 1的内容赋给Text 2，最后把“ABCD”赋给Text 1。所以最后Text 1中的内容是“ABCD”，而Text 2中的内容是“VB programming”。 -
第17题：
在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下：
FF窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是（ ）。A.
B.
C.
D.
正确答案：A
本题考查二重循环的切识。在这个二耍循环中，外循环的执行次数为4，内循环的执行移、数也为4，并且每次内循环退出后都要换行，所以最后结果为一个4*4的矩阵，矩阵的每个元素都为“*”。 -
第18题：
在窗体中使用一个文本框名为num1．接受输入值，有一个命令按钮run13，事件代码如下： Private Sub run13_Click If Me!num1 >= 60 Then result = "及格" ElseIf Me!num1 >= 70 Then result = "通过" ElseIf Me!num1 >= 85 Then result = "合格" End If MsgBox result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】 。
正确答案：
及格
-
第19题：
在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮Fun，事件代码如下： Private Sub run_Click（ ） result=" "Fori=l ToMe!nForj=1 To Melnresult=result+"*"Nextjresult=result+Chr（13）+Chr（10）NextiMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是（ ）。
正确答案：A
A．【解析】本题考查二重循环的知识。在这个二重循环中，外循环的执行次数为4，内循环的执行次数也为4，并且每次内循环退出后都要换行，所以最后结果为一个4×4的矩阵，矩阵的每个元素都为“*”。 -
第20题：
在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮rail，事件代码如下：
正确答案：A
本题考查二重循环的知识。在这个二重循环中，外循环的执行次数为4，内循环的执行次数也为4，并且每次内循环退出后都要换行，所以最后结果为一个4*4的矩阵，矩阵的每个元素都为“*” -
第21题：
在窗体中使用一个文本框(名为n．接受输入的值，有一个命令按钮run，事件代码如下：
Private Sub run_Click( ．
result = ""
For i= 1 To Me!n
For j = 1 To Me!n
result = result + "*"
Next j
result = result + Chr(13． + Chr(10．
Next i
MsgBox result
End Sub
打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是
正确答案：A
本题通过双重For循环输出字符串，由于内层循环的循环次数为4，且每次内层循环均输出一个"*"，则每次外层循环输出一行"****"。由于外层循环的循环次数也为4，则四次外层循环后共输出四行"****"，所以选项A的输出是正确的。所以本题答案为A。 -
第22题：
在窗体中使用一个文本框(名为n)接受输入的值，有一个命令按钮run，事件代码如下； Ptivate Sub run_Click() Yesult=" " For i=1 To Me!n For j=1 To Me!n result=result +"*" Next j result=resuh+Chr(13)+Chr(10) NexL i MsSBOx result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是
A． * * * * * * * * * * * * * * * *
B． * * * * * * * * * * * * * * * *
C． * * * * * * * * * * * * * * * * * * * * * * * * * * * *
D． * * * * * * * * * * * * * * * *
正确答案：A
-
第23题：
在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text1＝"VB programming"
Text2＝Text1
Text1＝"ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。
正确答案：VB programming
VB programming 解析：本段程序是先把"VB programming"赋给Text1，然后再把Text1的内容赋给Text2，最后把"ABCD"赋给Text1。最后Text1中的内容是"ABCD"，而Text2中的内容是"VB programming"。