更多"在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本"的相关试题:
[简答题]
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框。程序运行后，Command1显示为禁用(灰色)。当向文本框中输入任何字符时，命令按钮Command1变为可用。请在______处填入适当的内容，将程序补充完整。
Private Sub Form_Load（ ）
Command1. Enabled=False
End Sub
Private Sub Text1______（ ）
Command1. Enabled=True
End Sub |
[单项选择]在窗体上画一个名为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim arrayl(10, 10)As Integer
Dim i As Integer, 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
[填空题]在窗体上画一个名称为Text1的文本框和一个名为Command1的命令按钮，然后编写如下事件过程。
Privace Sub Command1_Click（ ）
Dim array1(3，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.value=array1(2，3)+array1(3，4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。
[填空题]在名称为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
[单项选择]在窗体上画1个名为Text1的文本框和1个名为Label1的标签，再画4个名为Op1的单选按钮控件数组，其Index属性按季度顺序为0～3，如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图 2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句( )。
Option Base 1
Dim sales(12) As Long
Private Sub Form_Load（ ）
open"c:/sales.txt"For Input As #1
For k=1 To 12
Input #1,sales(k)
Next k
Close #1
End Sub
Private Sub ______ (Index As Integer)
Dim sum As Long,k As Integex,month As Integer
sum=0
month=Index*______
For k=1 To 3
month=month+1
sum=sum+sales(month)
Next k
Label1.Caption=______.Caption &"销售总额:"
Text1=sum
End Sub
A. Op1_Click 3 Op1(Inde
B. Op1_Click 0 Option1(Inde
C. Option1_Cliek 1 Op1(Inde
D. Option1_Click 2 Option1(Inde
[填空题]在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1。程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换。请填空。
Private Sub Option1_Click(Index As Integer)
Select Case 【10】
Case 0
a=“宋体”
Case 1
a=“黑体”
Case 2
a=“楷体GB2312”
End Select
Text1. 【11】 =a
End Sub
[单项选择]在窗体上画一个名称为Text1的文本框，然后画3个单选按钮，并用这3个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请选择空白处合适的语句( )。 Private Sub Optionl_Click(Index As Integer) Select Case Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体 GB2312" End Select Text1. =a End Sub
A. Option Text
B. Index Text
C. Index Font
D. Option Font
[单项选择]在窗体上画一个名称为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（ ）
a = InputBox( "Enter an integer" )
b = Text1. Text
Text1. Text = b + a
End Sub
程序运行后，在文本框中输入456，然后单击命令按钮，在输入对话框中输入123，则文本框中显示的内容是( )。
A. 579
B. 123
C. 456123
D. 456
