题目内容
（请给出正确答案）
Private Sub Option1_Click(Index As Integer)
If Text1.Text＜＞""Then
Select Case______
Case 0
Text2.Text=Text1.Text
Case 1
Text2.Text=Text1.Text*10
Case 2
Text2.Text=Text1.Text*100
End Setect
End If
End Sub
.jpg)
A．Opfion1.Index
B．Index
C．Opfion1.(Index)
D．Opfion1(Index).Value
如果结果不匹配，请 联系老师 获取答案
更多“窗体上有名称为Text1、Text2的两个文本框，和一个由3…”相关的问题
注意：下面出现的“考生文件夹”均为c：\wexam\25160001。
(1) 在名称为Form1的窗体上画一个名称为H1的水平滚动条，请在“属性”窗口中设置它的属性值，使之满足以下要求：它的最大刻度值为100，最小刻度值为1，在运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。再在滚动条下面画两个名称分别为L1和L2的标签，并分别显示1和100，运行时的窗体如图19-1所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm
(2) 在名称为Form1的窗体上画两个文本框，名称分别为Text1和Text2，均无初始内容；再建立一个下拉菜单，菜单标题为“操作”，名称为M1，此菜单下含有两个子菜单项，名称分别为Cooy和Clear、标题分别为“复制”和“清除”。请编写适当的事件过程，使得程序运行时，单击“复制”菜单项，则把 Text1中的内容复制到Text2中，单击“清除”菜单项，则清除Text2中的内容(即在Text2中填入空字符串)。程序运行界面如图19-2所示。要求在程序中不得使用任何变量，每个事件过程中只能写一条语句。
注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
.jpg)
注意，保存时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
2．在考生文件夹中有工程文件sjt4.vbp，其中包含窗体Form1，该程序是不完整的。请在有？号的地方填入正确内容，然后删除？及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：
在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为Command1，标题
.jpg)
为“计算”的命令按钮(如图2—2所示)。要求程序运行后，在Text1和Text2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含着两个整数)累加起来并在Text3中显示出来。注意：保存时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
.jpg)
.jpg)
设有如下的类型和变量声明：
Private Type Person
name As String*8
mjot As String+20
End Type
Dim P As Person
设文本框中的数据已正确地赋值给Person类型的变量P，当单击“保存”按钮时，能够正确地把变量中的数据写入随机文件Test2．dat中的程序段是
A．Open“c：＼Test2．dat”ForOutputAs#1 Put#1，1，P Close#1
B．Open”c：＼Test2．dat”For Random As#l Get#1，1，P Close#1
C．Open“c：＼Test2．dat”For Random As#1 Len=Len(P) Put#1，1，P C10se#1
D．Open“c：＼Test2．dat”ForRandomAs#l Len=Len(p) Get#1，1，P C10Se#1
.jpg)
设有如下的类型声明 TyPe Person name AS String*8 major AS String*20 End TyPe 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29 .dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是
A．Open"c：\Test29.dat"For Random As#1 Put#1，1，p C10se #1
B．OpeH"c：\Test29.dat"For Random As #1 Get#1，1，p C108C#1
C．Open"c：\Test29.dat"For Random As#1 Len=Len(p) Put#1，1，p C108C#1
D．OPell"c：\Test29.dat"For，Random As#1 Len=Len(p) Get#1，1，p C106e#1
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，外观如图所示。
.jpg)
编写如下程序 Private Sub Form. Load() Text1.Text=" " Text2.Text=" " Text3.Text=" " End Sub Private Sub Command1 Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByVal y As Integer) Do While y＜＞0 tmp=x Mod y x=y y=tmp Loop f=x EndFunction 运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是______。
A．4
B．6
C．8
D．12
在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（）。
A．TabStop
B．Enabled
C．Visible
D．TabIndex
A．10
B．20
C．30
D．40
A． 200
B．50
C．100
D．150
在窗体上有一个名称为Check1的复选框数组(含4个复选框)，还有一个名称为Text1的文本哐，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的文字罗列在文本框中(如图1所示)。下面能实现此功能的事件过程是（）。
A.21
B.19
C.17
D.34
窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click()
Dim x As Integer
x=2
Text1.Text=Fun2(Fun1(x),y)
Text2.Text=Fun1(x)
End Sub
Private Function Fun1(x As Integer) As Integer
x=x+y:y=x+y
Fun1=x+y
End Function
Private Function Fun2(x As Integer，y As Integer) As Integer
Fun2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是
A．2 4 2 4
B．2 4 4 8
C．10 10 58 58
D． 4 4 8 8
