更多"在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称"的相关试题:
[填空题]在窗体上添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim a(10,10)As Integer
Dim i,j As Integer
For i=2 To 4
For j=3 To 6
a(i,j)=i*j
Next j
Next i
Text1.Text=a(2,3)+a(4,6)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。
[单项选择]在窗体中添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下代码：
Private Sub Command1_Click( )
Dimaarray1(10，10)As Integer
Dim i，j As Integer
For i=1 To 3
For j=2 T0 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
[单项选择]在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序：
Private Sub Command1_Click(
)
Dim x As String, y As String, c As String, d As String
x = Text1.Text : y = Text2.Text
c = LCase(x): d = UCase(y)
Print c; d
End Sub
程序运行后，在文本框Text1、Text2中分别输入AbC和efG，结果是________。
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
[单项选择]在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim x As String，y As String， C As String，d As String
x = Text1．Text ： y = Text2．Text
c = LCase(x)：d = UCase(y)
Print c； d
End Sub
程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
[单项选择]在窗体中添加一个名称为Command1的命令按钮和一个名称为text1的文本框，然后编写如下程序； ( ) Private Sub Commandl_Click（ ） Dim x，y，z As Integer x=5：y＝7：z=O Text1．Text="" Call Pl(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(
D. 没有显示
[单项选择]在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码：
Private Sub Command1_Click( )
Text1.Text="AB"
End Sub
Private Sub Command2_Cliek( )
Text1.Text="CD"
End Sub
首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示
A. AB
B. CD
C. ABED
D. CDAB
[填空题]在名称为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的文本框，在文本框中输入以下字符串： Microsoft Sub Command1_Click（ ） 然后编写如下事件过程： Private Sub Command1_Click（ ） 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 V B P
D. m v b p
[单项选择]在窗体中添加一个命令按钮(名称为Command1)和一个文本框(名为text1)，然后编写如下事件过程：
Private Sub Command_Click（ ）
Dim x As Integer, y As Integer, z As Integer
x=5: y=7: z=0
Me!Text1=""
Call p1(x, y, z)
Me!Textl=z
End Sub
Sub p1 (a As Integer, b As Integer, Byval c As Integer)
c=a+b
End Sub
打开窗体运行后，单击命令按钮，文本框中显示的内容是
A. 12
B. 0
C. 5
D. 7
[填空题]在窗体中添加一个名称为Text1的文本框，两个名称分别为Command1和Com mand2的命令按钮。要求程序运行后，用户向文本框中输入字母，单击Command1按钮则文本框中字母全部转换为大写；然后单击Command2按钮则文本框中字母全部转换为小写。请在 【13】 、 【14】 和 【15】 处填入适当的内容，将程序补充完整。
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
【13】 ：Text1. Text
End Sub
Private Sub Command1_Click（ ）
Text1. Text＝ 【14】
End Sub
Private Sub Command2 【15】 （ ）
Text1. Text＝LCase(Text1. Tag)
End Sub
[单项选择]窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序如下：
Private Type x
a As Integer
b As Integer
End Type
Private Sub Command1_Click( )
Dim y As x
y. a = InputBox( )
If y. a/2 =y. a / 2 Then
y. b=y. a * y. a
Else
y. b = Fix(y. a / 2)
End If
Text1. Text = y. b
End Sub
对以上程序，下列叙述中错误的是( )。
A. x是用户定义的类型
B. InputBox函数弹出的对话框中没有提示信息
C. 若输入的是偶数，y. b的值为该偶数的平方
D. Fix(y. a/2)把y. a/2的小数部分四舍五入，转换为整数返回
