窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Commandl的命令按钮。 运行后的窗体外观如下图所示。 设有如下的类型声明： Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test290.dat中。设文本框中的数据已正确地赋值给Person类型的变量P。
A. Open"c:Test29.dat"ForRandom As 1 Put1，1，p Close1
B. Open"c:Test29.dat"ForRandomAs1 Get1，1，p Close1
C. Open"c:Test29.dat"ForRandomAs1Len=Len(Put1，1，p Close1
D. Open"c:Test29.dat"ForRandomAS1Len=Len(Get1，1，p Close1
查看答案
相关试题
换一换
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：当向文本框Text1中输入小写字母a时，文本框Text2中显示的是（）
A.A B.a C.C D.c
答案
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下：Private Sub Text1_KeyUp（KeyCode As Integer，Shift As Integer)Dim c As Stringc=UCase（Chr（KeyCode))Text2.Text=Chr（Ase（c)+2)End Sub当向文本框Text1中输入小写字母a时，文本框Text2
A.A B.a C.C D.c
答案
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyDown事件过程如下： Private Sub Text1_KeyDown（KeyCode As Integer, Shift As Integer) Dim s As String s=Chr（KeyCode+35) Text2.Text=s End Sub 当向文本框Text1中输入小写字母a时，文本框Text2中显示的是
A.A B.a C.D D.d
答案
在窗体上有若干控件，其中有一个名称为Text1文本框。影响Text1的Tab顺序的属性是 ______。
A.TabStop B.Enabled C.Visible D.TabIndex
答案
在窗体上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示，下划线处应填( )。
A.图20-1 B.Private Sub Text1_ _________() C.Text2. Text=Text1. Text D.nd Sub
答案
在窗体上画两个名称分别为Text1、Text2的文本框，Text1的Text属性为“DatBase”，如下图所示。现有如下事件过程：运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（）
A.DataA B.DataB C.aData D.aBase
答案
（ 19 ）在窗体上画两个文本框（名称分别为 text1 和 text2 ）和一个命令按钮（名称为 command1 ） , 然后编写如下事件过程：
A.Private B.Sub C.Command1_ D.Click()x = 0 E.Do F.While x x = (x + 2) * (x + 3)n = n + 1 G.Text = H.Text = I.Str(x) J.End K.Sub 程序运行后，单击命令按钮，在两个文本框中显示的值分别为 L.A ） 1 和 0 M.B ） 2 和 72 N.C) 3 和 50 O.D ） 4 和 168
答案
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (a) d=UCase (b) Print c；d End Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是______ 。
A.abcEFG B.abcefg C.ABCefg D.ABCEFG
答案
在窗体上建立名称为Text1、Text2和删的三个文本框，其中Text1和Text2文本框用来接受两个整数（假设为M和N)，建立一个名称为command1的命令按钮，单击它将得到数M从右边起的N位数字，并把该数字显示在Text3文本框中，如下图所示。请填空。 private Fuction digit（ByVal m As Integer, ByVal n As Integer) As Integ
答案
在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text = "计算机" Text2.Text = Text1.Text Text1.Text = "等级考试" End Sub 程序运行后，单击命令按钮，两个文本框（Text1和Text2)内容分别为 （6) 和 （7) 。
答案
热门试题
在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Coraraand1_Click（) Text1.Text="计算机" Text2.Text=Text1.Text Text1.Text="等级考试" End Sub 程序运行后，单击命令按钮，两个文本框（Text1和Text2)内容分别为 和 。
在窗体上画两个名称分别为Text1、Text2的文本框。Text1的Text属性为“Database”， 如图所示。现有如下事件过程： Private Sub Text1_Change（)Text2.Text=Mid（Text1,1,1)End Sub运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是：（）。
在窗体上画两个文本框，名字分别为Text1和Text2，然后编写下列程序。程序运行后，如果在文本框 Text2中输入lmn，那么在文本框Text1中显示的内容将是 【8】 。 Private Sub Form_Load（) Show Text1.Text=" " Text2.Text=" " Text2.SetFocus End Sub Private Sub Text2_KeyPress（Key
在窗体上画两个文本框（其名称分别为Textl和Text2)和一个命令按钮（其名称为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click（)Text1.Text="Microsoft Visual Basic" End Sub Private Sub Text1_Change（)Text2.Text=UCase（Text1.Text) End Sub
在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮 (名称为Command1)，外观如下图所示。 编写如下程序： Private Sub Form_Load() Text1.Text="" Text2.Text="" Text3.Text="" End Sub Private Sub Commandl_Click() x=Val(Text1.Text) y=Val(Text2.Text) Text3.Text=f(x,y) End Sub Function f(ByVal x As Integer,ByValy As Integer) DoWhiley＜＞0tmp=x ModyX=yy=tmp Loop f=X End Function 运行程序，在Textl文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是( )。
在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1.Text="VB Programming" Text2.Text=Text1.Text Text1.Text="ABCD" End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为 （8) 和 （9) 。
在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（) Text1. Text＝"VB Programming" Text2. Text＝Text1. Text Text1. Text＝"ABCD" End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为 【7】 和 【8】 。
在窗体上画两个文本框和一个命令按钮，然后在代码窗口中编写如下事件过程： Private Sub Command1_Click（)Text1．Text="计算机"Text2．Text=Text1．TextText1．Text="等级考试" End Sub 程序运行后，单击命令按钮，两个文本框（Text1和Text2)中的内容分别为 【6】 和 【7】 。
在窗体上有一个文本框，其名称为Text1，编写下列事件过程：Private（）
在窗体上画3个标签、3个文本框（名称分别为Text1、Text2和Text3）和1个命令按钮（名称为Command1），外观如图所示。
窗体上有一个由两个文本框组成的控件数组，名称为Text1，并有如下事件过程： Private Sub Text1_Change（Index As Integer) Select Case Index Case 0 Text1 （1). FontSize = Text1 （0). FontSize * 2 Text1 （1). Text = Text1 （0). Text Case 1 Text1
在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数（假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数M从右边起的第N位数字，并把该数字显示在Text3文本框中，如图20-15如示。请填空。 Private Function digit（ByVal m As Integer，ByVal n As Integer)
在窗体上画2个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程： Private Sub Command1_Click() Text1.Text=”VB Programming” Text2.Text=Text1.Text Text1.Text=”ABCD” End Sub 程序运行后，单击命令按钮，两个文本框中显示的内容分别为____和____
在窗体(Name 属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Commnd1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_ Load ()Text1 Text=“”Text2 Text=“” End sub程序运行后，在第一个文本框(Text1)和第二个文本框(text2)中分别输入123和321，然后单击命令按钮，则输出结果为______ 。
在窗体上画两个文本框（名称分别为Text1和Text2)和一个命令按钮（名称为Command1)，然后编写如下事件过程： Private Sub Command1 Click（) Text1.Text = InputBox（"请输入数据1") Text2.Text = InputBox（"请输入数据2) End Sub 程序运行后，如果单击命令按钮，将先后显示两个输入对话框，在两个输入对话框中分
在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是()。
窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：在Text2中显示的是（）
在窗体（Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2)和一个命令按钮（Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click（)A=Text1.Text+Text2.TextPrint A End Sub Private Sub Form Load（)Text1.Text=" "Text2.Text
窗体上有名称分别为Text1、Text2的文本框，名称为Command1的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：Private Sub Command1_Click（)Text2.Text=UCase（Mid（Text1.Text，5，4))End Sub在Text2中显示的是（）。
在窗体（Name属性为Form1)上画两个文本框（其Name属性分别为Text1和Text2)和一个命令按钮（Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click（) a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_Load（) Text1.Text = " "
使用微信扫一扫登录
