更多"在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为T"的相关试题:
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写
如下事件过程：
Private Sub Command1_Click（ ）
n=Val(Text1.Text)
For i=2 To n
For j=2 To Sqr(i)
If i Mod j=0 Then Exit For
Next j
If j＞Sqr(i) Then Print i
Next i
End Sub
该事件过程的功能是 ______。
A. 输出n以内的奇数
B. 输出n以内的偶数
C. 输出n以内的素数
D. 输出n以内能被j整除的数
[填空题]在窗体上画一个命令按钮(名称为Command1)和一个文本框(名称为Text1)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x＝Val(Text1.Text)
Select Case x
Case 1,3
y＝x*x
Case IS＞＝10,IS＜＝-10
y＝x
Case-10 To 10
y＝-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按钮，则y的值变为______。
[单项选择]在窗体上画一个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=Val(Text1.Text)
Select Case x
Case 1,3
y=x*x
Case Is＞=10, Is＜=-10
y=x
Case -10 To 10
y=-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按钮，则下列叙述中正确的是
A. 执行y=x*x
B. 执行y=-x
C. 先执行y=x*x，再执行y=-x
D. 程序出错
[单项选择]在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写
如下事件过程和通用过程：
Private Sub Command1_Click（ ）
n=Val(Text1.Text)
If n/2=n/2 Then
f=f1(n)
Else
f=f2(n)
End If
Print f; n
End Sub
Public Function f1(ByRef x)
x=x*x
f1=x+x
End Function
Public Function f2(By Val x)
x=x*x
f2=x+x+x
End Function
程序运行后，单击命令按钮，在窗体上显示的是 ______。
A. 72 36
B. 108 36
C. 72 6
D. 108 6
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写
如下事件过程：
Private Sub Command1_Click（ ）
Dim array1(10,10)As Integer
Dim i As Integer ,j As Integer
For i=1 To 3
For j=2 To 4
array1(i,j)=i+j
Next j
Next i
Text1.Text=array1(2，3)+array1(3，4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是 ______。
A. 15
B. 14
C. 13
D. 12
[填空题]在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=Val (Text1.Text)
Select Case x
Case 1, 3
y=x*x
Case Is＞=10,Is＜=-10
y=x
Case -10 TO 10
y=-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按钮，则y的值变为______。
[单项选择]
在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：
Private Sub Command1_click（ ）
x=Val(Text1.Text)
Select Case x
Case 1,3
y=x*x
Case Is＞=10,Is＜=-10
y=x
Case-10 To 10
y=-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是（）。
A. 执行y=x*x
B. 执行y=-x
C. 先执行y=x*x，再执行y=-x
D. 程序出错
[填空题]在名称为Form1的窗体上画一个名称为Text1的文本框，画一个名称为Command1的命令按钮。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test.dat中。
请在空白处填上适当的内容，将程序补充完整。
Private Sub Command1_Click（ ）
Open "c:/test.dat" For Output As#1
For I=1 To Len(Text1.text)
(15) Next I
Ciose#1
End Sub
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，在文本框中输入以下字符串：
Microsoft Visual Basic Programming
然后编写如下事件过程：
Private Sub Command1_CIick（ ）
Open"d:/temp/outf. txt" For Output As #1
For i=1 To Len(Text1. Text)
c=Mid(Text1. Text, i, 1)
If c＞="A" And c＜="Z" Then
Print #1, LCase(C)
End If
Next i
Close
End Sub
程序运行后，单击命令按钮，文件outf. txt中的内容是______。
A. MVBP
B. mvbp
C. M
D. m
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=InputBox("Enter an integer")
y=InputBox("Enter an integer")
Text1.Text=y+x
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入7和30，则在文本框中显示的内容是______。
A. 307
B. 37
C. 703
D. 出错
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写 如下事件过程： Private Sub Command1_Click（ ） Dim arrayl(10，10)As Integer Dim i， j As Integer For i=1 To 3 For j=2 To 4 arrayl(i，j)=i + j Next j Next i Text1.Text=arrayl(2， 3)+arrayl(3， 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A. 12
B. 13
C. 14
D. 15
