在窗体上画一个名称为Text1的文本框,然后画3个单选按钮,并用这3个单选按钮建立一个控件
Private Sub Option1_Click(Index As Integer)
Select Case 【8】
Case 0
a="宋体"
Case 1
a="黑体"
Case 2
a="楷体_GB2312"
End Select
Text1 【9】 =a
End Sub
![](https://lstatic.shangxueba.com/sxbcn/h5/images/tips_org.png)
Private Sub Option1_Click(Index As Integer)
Select Case 【8】
Case 0
a="宋体"
Case 1
a="黑体"
Case 2
a="楷体_GB2312"
End Select
Text1 【9】 =a
End Sub
第1题
设有如下通用过程:在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如 下事件过程:
End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是()。
A. 30
B. 25
C. 20
D. 15
第2题
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Label1),程序运行后如果在文本框中输入文本,则标签中立即显示相同的内容。以下可以实现上述操作的事件过程是()。
A.Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub
B.Private Sub Label 1_Change() Label1.Caption=Text1.Text End Sub
C.Private Sub Text1_Click() Label1.Caption=Text1.text End Sub
D.Private Sub Label1_Click() Label1.Caption=Text1.Text End sot
第3题
在窗体上画一个名称为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)+arrayl(3,4) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是______。
A.12
B.13
C.14
D.15
第4题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编如下事件过程:
Private Sub Command1_Click()
Dim i As Integer, n As Integer
n=0
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next i
Text1.Text=Str(n)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是______。
第5题
在窗体上画一个命令按钮(名称为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的值变为______。
第6题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim array1(10,10)As Integer Dim i,j As Integer For i;1 TO 3 For i=2 To 4 array1(i,j)=i+j Next j Next i TextText=array1(2,3)+array1(3,4) End Sub 程序运行后,单击命令按钮,则文本框中显示的值是 ______。
A.12
B.13
C.14
D.15
第7题
在窗体上画一个文本框(名称为Text1)和一个标签(名称为Labe11),程序运行后,在文本框中每输入一个字符,都会立即在标签中显示文本框中字符的个数。下列可以实现上述操作的事件过程是()。
A.Private Sub Text1 Change()
Labe11.Caption=Str(Len(Text1.Text))
End Sub
B.Private Sub Text1 Click()
Labe11.Caption=str(Len(Text1.Text))
End Sub
C.Private Sub Text1 Change()
Labe11.Caption=Text1.Text
End Sub
D.Private Sub Labe1 1_Change()
Labe11.Caption=Str(Len(Text1.Text))
End Sub
第9题
在窗体上画一个名称为Text1的文本框,然后编写如下的事件过程:Pfivate Sub Text1_KeyPress(Keyascii As Integer) … End Sub 若焦点位于文本框中,则能够触发此事件的操作是()。
A.单击文本框
B.双击文本框
C.单击文本框
D.按键盘上的某个键
第10题
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(10,10)As Integer,i,j As Integer
For i=1 To 3
For j=2 To 4
arr(i,j)=i+j
Next
Next
Text1.Text=arr(2,3)+arr(3,4)
End Sub
程序运行后,单击命令按钮,在文本框中显示的值是
A.12
B.13
C.14
D.15
第11题
在窗体上画一个名称为Text1的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程: Private Sub Commandl_Click() Dimarrayl(10,10)As Integer Dimi As Integer,j As Integer Fori=1 To 3 Forj=2 To 4 arrayl(i,j)=i+j Nextj Nexti Text1.Text=array
A.12
B.13
C.14
D.15
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!