题目内容
（请给出正确答案）
A.2 4 2 4
B.2 4 4 8
C.4 4 8 8
D.10 10 58 58
如果结果不匹配，请 联系老师 获取答案
更多“窗体上有两个文本框Text1、Text2以及一个命令按钮Co…”相关的问题
窗体上有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
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
在窗体(Name属性为form1)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮 (Name属性为Command1)，然后编写如下两个事件过程，该过程的运行结果为______。Private Sub Command1_Click() a = Text1, Taxt + Text2, Text Print aEnd SubPrivate Sub form_ Load() Text1.Text = "123" Text2.Text = "321"End Sub
A．444
B．321123
C．123321
D．132231
在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：
Private Sub Form_Load（）
Show
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Text1_Change（）
Text2.Text = Mid（Text1.Text, 8）
End Sub
程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是（）。
A．BeijingChina
B．China
C．Beijing
D．BeijingC
在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：
Private Sub Command1_Click()
Text1＝"VB programming"
Text2＝Text1
Text1＝"ABCD"
End Sub
程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。
.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
在窗体下画两个文本框Text1和Text2，一个命令按钮Command1，请阅读下列程序段：
Private Sub Command1_Click()
x=0
Do Until x＞=50
x=(x+4)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
运行程序后，单击命令按钮，在两个文本框中显示的值分别为()。
A．1和0
B．2和240
C．3和50
D．4和168
在名为Form1的窗体上绘制两个文本框，名称分别为Text1和Text2(如下图所示)，初始情况下都没有内容。请编写适当的事件过程，使得程序在运行时，在Text1中输入的任何字符，立即显示在Text2中。
.jpg)
注意：
程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise7/vbp，窗体文件名为execise7.frm。
.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
在窗体(Name属性为Forml)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Commandl)，然后编写如下两个事件过程： Private Sub Commandl_Click() a=Text1.Text+Text2.Text Printa End Sub Private Sub Form_Load() Text1.Text="" Text2.Text="" End Sub 程序运行后，在第一个文本框(
A．165
B．8778
C．7788
D．7887
