更多"在窗体中使用一个文本框(名为x)接受输入值，有一个命令按钮test，事"的相关试题:
[填空题]在窗体中使用一个文本框(名为x)接受输入值，有一个命令按钮test，事件代码如下：
Private Sub text_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，单击命令按钮，输出结果是______。
[单项选择]在窗体中使用一个文本框(名称为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. 其他
[单项选择]在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下：
Private Sub Command1_Click（ ）
For I=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next I
Text1.Value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是
A. 6
B. 12
C. 18
D. 21
[填空题]在窗体中使用一个文本框(名为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) 。
[填空题]通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (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
[填空题]编写一个过程把C盘中的Config. sys文件内容读出，并在文本框中显示出来。在窗体Form1建立一个文本框Text1，将其MultiLine属性设置为True,将ScrollBars属性设置为3-Both。根据题意。请完善下列程序。
option Explicit
Private Sub Form C1ick（ ）
Dim chl As String, fn As Integer
Dim Str As String
fn= 【13】
Open "C:/Config. sys" For Input As fn
Do While Not EOF( 【14】 )
Line Input #fn, chl
Str=Str+chl+vbCrLf
Loop
Text1. Text= 【15】
End Sub
[单项选择]在窗体中添加一个命令按钮、一个标签和一个文本框，并将文本框的Text属性置空，编写命令按钮Command1的Click事件代码：
Private Function fun(x As Long)As Boolean
If x Mod 2=0 Then
fun=True
Else
fun=False
End If
End Function
Private Sub Command1_Click（ ）
Dim n As Long
n=Val(Text1.Text)
p=IIf(fun(n),"奇数","偶数")
Label1.Caption=n & "是一个"& p
End Sub
程序运行后，在文本框中输入20，单击命令按钮后，标签中的内容为( )。
A. 20是一个奇数
B. 20
C. 20是一个偶数
D. 2
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Commandl和Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程：
Private Sub Commandl_click（ ）
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示内容是( )。
A. 108
B. 18
C. 810
D. 出错
