更多"在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Comm"的相关试题:
[填空题]在名称为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
[填空题]在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test .dat中。请在空格处填上适当的内容，将程序补充完整。
Private Sub Command1_Click（ ）
Open "c:/test.dat"For 【14】 As #1
For i=1 to Len(Text1.text)
print#1，mid(Text1.Text，i，1)
Next
Close #i
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)，然后编写如下事件过程：
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的命令按钮和一个名称为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的文本框。程序运行后，Colnmand1为禁用(灰色)。当向文本框中输入任何字符时，命令按钮command1变为可用。请将程序补充完整。
Private Sub Form_Load（ ）
Command 1.Enabled=False
End Sub
Private SubText1 【2】 （ ）
Command1.Enabled=True
End Sub
[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim x, Y, z As Integer
x=5
y=7
z=0
Text1. Text=""
Call P1(x, y, z)
Text1. Text=Str(z)
End Sub
Sub P1(ByVal a As Integer, ByVal b As Integer, c As Integer)
c=a+b
End Sub
程序运行后，单击命令按钮，则在文本框中显示的内容是______。
A. 0
B. 12
C. Str(z)
D. 没有显示
