填空题
在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请填空。
在窗体上画一个名称为Text1的文本框，然后画三个单选按钮，并用这三个单选按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单选按钮，则文本框中的字体将根据所选择的单选按钮切换，请填空。
Private Sub Option1_Click(Index As Integer)
Select Case ______
Case 0
a = "宋体"
Case 1
a = "黑体"
Case 2
a = "楷体＿GB2312"
End Select
text1. ______ =a
End Sub
发布于 2022-05-11 10:20:00
登录后免费查看答案
关注者
0
被浏览
14
1 个回答
推荐阅读
-
在窗体上画1个命令按钮(名称为Command1)和1个文本框(名称为Text1)，然后编写如下事件过程：Private Sub Command1_Click()x=Val(Text1.Text)Select Case xCase 1，3y=x*xCase Is>=10，Is<=-10y=xCase -10 To 10y=-xEnd SelectEnd Sub程序运行后，在文本框中输入3，然后单击命令按钮，则以下叙述中正确的是。
2022-05-11 关注 0 浏览19 1答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程Private Sub Command1_Click()Text1.Text = "Visual"Me.Text1 = "Basic"Text1 = "Program"End Sub程序运行后，如果单击命令按钮，则在文本框中显示的是
2022-05-11 关注 0 浏览17 1答案
-
窗体上有名称分别为Text1、Text2的2个文本框，有一个由3个单选按钮构成的控件数组Option1，如图1所示。程序运行后，如果单击某个单选按钮，则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100)，并将结果显示在Text2中，如图2所示。为了实现上述功能，在程序中的问号(?)处应填入的内容是。 Private Sub Option1_Click(Index As Integer)If Text1.Text<>""ThenSelect Case ?Case 0Text2.Text=Val(Text1.Text)Case 1Text2.Text=Val(Text1.Text)*10Case 2Text2.Text=Val(Text1.Text)*100End SelectEnd IfEnd Sub
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画四个文本框，并用这四个文本框建立一个控件数组，名称为Text1（下标从0开始，自左至右顺序增大），然后编写如下事件过程：Private Sub Command1_Click()For Each TextBox In Text1Text1(i) = Text1(i).Indexi = i + 1NextEnd Sub程序运行后，单击命令按钮，四个文本框中显示的内容分别为
2022-05-11 关注 0 浏览15 1答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then xit forNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是
2022-05-11 关注 0 浏览15 1答案
-
设窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并有以下事件过程：Private Sub Command1_Click()x! = Val(Text1.Text)Select Case xCase Is < -10, Is >= 20Print "输入错误"Case Is < 0Print 20 - xCase Is < 10Print 20Case Is <= 20Print x + 10End SelectEndSub程序运行时，如果在文本框中输入-5，则单击命令按钮后的输出结果是（ ）。
2022-05-11 关注 0 浏览12 1答案
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Text1.text=“”Call P1(x,y,z)Text1.Text=Str(x)End SubSub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是
2022-05-11 关注 0 浏览17 1答案
-
在窗体上有一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。程序运行后， Command1 为禁用（灰色），此时如果在文本框中输入字符，则命令按钮 Command1 变为可用。请填空。Private Sub Form_Load()Command1.Enabled=FalseEnd SubPrivate Sub Text1_ ______ ()Command1.Enabled=TrueEnd Sub
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x=InputBox("Input")Select Case xCase 1,3Print "分支 1"Case Is >4Print "分支 2"Case ElsePrint "Else 分支 "End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是
2022-05-11 关注 0 浏览9 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下事件过程：Private Sub Co mmand1＿Click（）x＝InputBox（＂Input＂）Select Case x Case 1，3Print ＂分支1＂Case Is ＞4Print ＂分支2＂Case ElsePrint ＂Else 分支＂End SelectEnd Sub程序运行后，如果在输入对话框中输入2，则窗体上显示的是（ ）。
2022-05-11 关注 0 浏览11 1答案
