更多"在名称为Form1的窗体上画一个名称为Text1的文本框，画一个名称为"的相关试题:
[填空题]在窗体上画一个名称为Text1的文本框，一个名称为CD1的通用对话框，一个名称为 C1、标题为“存盘”的命令按钮，编写适当的事件过程。程序运行时，如果单击“存盘”命令按钮，则打开保存文件对话框，并把Text1中的内容按照在对话框中选定的路径和文件存盘。在刚打开对话框时的默认路径是“c: /my documents/”。请填空。
Private Sub C1_ Click（ ）
CD1. InitDir =
CD1. FileName = "myflie.txt"
CD1. Filter = “文本文件｜ ______”
CD1. ______ =
Open______ For Output As #1
Print #1, ______
Close #1
End Sub
[填空题]在窗体上画一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为 C1的命令按钮。程序运行后，如果单击C1命令按钮，则弹出打开文件对话框，该对话框的标题是“打开文件”，此时如果单击对话框上的“打开”按钮，则把选中的文件读到内存，并在Text1中显示出来。下面给出了C1的Click事件过程。请填空。
Private Sub C1_ Click（ ）
Dim n As Long
CD1 ______=“打开文件”
CD1. FileName = ""
CD1 ______= “所有文件｜*.* ｜文本文件｜*.txt ｜Word 文档｜*.doc"
CD1. FilterIndex = 2
CD1.
If CD1. FileName ＜＞ " " Then
Open ______ For ______ As #1
n = LOF(1)
Text1. Text = Input (n, #1)
Close ______
End If
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
[单项选择]在窗体上画一个名称为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
[单项选择]在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click（ ） msg$ = "Retry" Title$ = "Error!" If Text1. Text = "a" And Text2. Text = "1" Then Unload Me Form 2. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form 2的窗体，则在两个文本框中应分别输入______ 。
A. a 1
B. a a
C. 1 a
D. 1 1
[单项选择]在窗体上画一个名称为 Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click( )
Dim iAsInteger， n As Integer
For i = 0 To 50
i = i + 3
n = n + 1
If i ＞ 10 Then Exit For
Next
Text1.Text = Str(n)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是________。
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Commmand1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click （ ）
Dim array 1 (10, 10) As Integer
Dim i, 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. 12
B. 13
C. 14
D. 15
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写 2
如下事件过程：
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. 12
B. 13
C. 14
D. 15
[单项选择]在窗体上画一个名称为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
