更多"在窗体中使用一个文本框(名称为num1)接受输入值，有一个命令按钮ru"的相关试题:
[单项选择]在窗体中使用一个文本框(名称为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. 其他
[填空题]在窗体中使用一个文本框(名为num1)接受输入值，有一个命令按钮run13，事件代码如下：
Private Sub run13_Click（ ）
If Me!num1＞=60 Then
result="及格"
ElselfMe!num1＞=70 Then
result="通过"
Elself Me!numl＞=85 Then
result="合格"
End If
MsgBox result
EndSub
打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】 。
[填空题]在窗体上画一个名称为run1的命令按钮和一个名称为num1的文本框并接受输入值，然后编写如下事件过程：
Private Sub run1_Click（ ）
If Me! num1＞=60 Then
result="及格"
Else If Me! num1＞=70 Then
result="通过"
Else If Me! num1＞=85 Then
result="优秀"
End If
(14)
End Sub
请将程序空白处补充完整，程序运行后，通过文本框输入一个值，输入的值为86，则单击命令按钮，输出结果是 (15) 。
[填空题]在名称为Forml的窗体上绘制一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置为True，然后编写如下的事件过程：
Private SUb Form_CnCk（ ）
Open"d:/tes/smtext1.txt"For Input AS #1
Do While Not EOF(1)
Line Iput #1,aspect$
whole$=whole$+aspect$+Chf$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open"d:/test/smtext2.txt"For OutpUt As #1
Print #1,______
Close #1
End Sub
上述程序的功能是，把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。
[填空题]
在名称为Forml的窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的
MultiLine属性设置为True，然后编写如下的事件过程：
Private Sub Form Click（ ）
Open"d:/test/smText1.txt"For Input As #1
Do While Not（）
Line Input #1,aspect$
whole$=whole$+aspect$+Chr$(13)+Chr$(10)
Loop
Text1.Text=whole$
Close #1
Open"d:/test/smtext2.txt"For Output As #1
Print #1,（）
Close #1
End Sub
上述程序的功能是，把磁盘文件smText1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。
[填空题]在窗体中使用一个文本框(名为x)接受输入值，有一个命令按钮test，事件代码如下：
Private Sub test_Click（ ）
y=0
For i=0 To Me! x
y=y+2*i+1
Next i
MsgBox y
End Sub
打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是______。
[填空题]在窗体中使用一个文本框(名为numl)接受输入值，有一个命令按钮run13，事件代码如下：
Private sub run13 Click（ ）
If Me! num1＞=60 Then
result="及格"
Else If Me! numl＞=70 Then
result="通过"
Else if Me!mum1＞=85 Then
result="合格"
End If
MsgBox result
End Sub
打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是______。
[填空题]
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、
Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。
Pfivate Sub Form_Load（ ）
Fori=1 To 100
If iMod7=0 Then
[6]
End If
Next
End Sub
Private Sub
Commandl_Crick（ ）
Sum=0
Fori=0 To
List1.List Count-1或14
Sum=Sum+ [7]
Next
Textl:Text=Sum
End Sub
[填空题]窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为“Sum”的标签，一个名称为Command１、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对 List１中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。[*]Private Sub Form_Load( )
For i=1 To 100
If i Mod 7=0 Then
【3】
End Ibf
Next End Sub Private Sub Command1_Click( )
Sum=0
For i=0 To 【4】
Sum=Sum+ 【5】
Next
Text1．Text=Sum
End Sub
[填空题]通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1)，代码如下。请填入适当的内容，将程序补充完整。
Private Sub Combo1_Cliek（ ）
Text1. FontName=Combo1. List(Combo1. Listlndex)
End Sub
Private Sub Form_Load（ ）
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
·Addltem"楷体_GB2312""
·Listlndex＝0
End With
Text1. 【8】 30
Textl. 【9】 =Combol.List(0)
End Sub
[单项选择]在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1)，程序运行后如果在文本框中输入文本，则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是( )
A. Private Sub Text1_Change()
B. Private Sub Label1_Change()
C. Private Sub Text1_Click()
D. Private Sub Label1_Click()
[单项选择]在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11)，程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是( )。
A. Private Sub Text1 Change()
B. Private Sub Text1 Click()
C. Private Sub Text1 Change()
D. Private Sub Labe1 1_Change()
