（28 ） 窗体上有名称分别为 Text1 、 Text2 的 2 个文本框 ， 要求文本框 Text1 中输入的数据小于 500 ， 文本

A . A、“确定”和“OK” B . B、“OK”和“确定” C . C、“Command1”和“OK” D . D、“Command1”和“确定”

A . 15和1 B . 27和3 C . 195和3 D . 600和4

A . Frm1_Click（）Cmd1_Click（） B . Form_Click（）Command1_Click（） C . Frm1_Click（）Command1_Click（） D . Form_Click（）Cmd1_Click（）

A．108 B．18 C．810 D．出错

<img src='https://img2.soutiyun.com/ask/uploadfile/4317001-4320000/63c20c661602bfec53b19f6c83268fac.jpg' /> A.Private Sub save Click（） Text1．Text=file．save．Caption End Sub B.Private Sub save Click（） Text1．Text=save．Caption End Sub C.Private Sub file Click（） Text1．Text=file．save．Caption End Sub D.Private Sub file Click（） Text1．Text=save．Caption End Sub

<img src='https://img2.soutiyun.com/shangxueba/ask/4359001-4362000/4359886/ct_ctvbbm_choose_05019(20092).jpg' /> 设有如下的类型声明 TyPe Person name AS String*8 major AS String*20 End TyPe 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29 .dat中。设文本框中的数据已正确地赋值给Person类型的变量P.则能够正确地把数据写入文件的程序段是 A．Open"c：\Test29.dat"For Random As1 Put1，1，p C10se 1 B．OpeH"c：\Test29.dat"For Random As 1 Get1，1，p C108C1 C．Open"c：\Test29.dat"For Random As1 Len=Len(p) Put1，1，p C108C1 D．OPell"c：\Test29.dat"For，Random As1 Len=Len(p) Get1，1，p C106e1

<img src='https://img2.soutiyun.com/shangxueba/ask/3102001-3105000/3104740/ct_ctvbbm_choose_04645(20092).jpg' /> Private Sub Text1_ _________() TextText=Text1.Text End Sub A．SetFocus B．Change C．GetFocus D．Click

<img src='https://img2.soutiyun.com/ask/uploadfile/4887001-4890000/63a34c5c137b801731b9056652595682.gif' /> A) Option1. value = False Check1. value = True B) Option1. value = True Check1. value = 0 C) Option1. value = True Check1. value = 2 D) Option1. value = True Check1. value = 1

Private Sub Text1_LostFocus（） Call CheckInput（Text1，500） End Sub Private Sub Text2_LostFocus（） Call CheckInput（Text2，1000） End Sub Sub CheckInput（t As ？，x As Integer） If Val（t.Text）＞x Then MsgBox"请重新输入!" End If End Sub A．Text B．SelText C．Control D．Form

窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图1所示)，就可以把文本框中的内容写到文件Out．txt中，每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是（）。<img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/9ee39e48e3711140203a592ce77b107b.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/2340001-2343000/54c76f430783fad60b8a548d0f7a9765.jpg' />

要求程序运行后：单击“读取数据”按钮后，从考生文件夹下的in5．txt中读出数据，并在标签Text1中显示人数；单击“计算总分”便在Text2中显示总分并将结果写入考生文件夹下out5．txt文件中；执行完毕，“读取数据”按钮变成“读取完成”，且无效（变灰），如图60-5所示。 <img src='https://img2.soutiyun.com/ask/uploadfile/11274001-11277000/5ec6e2b50afd4185cfebcb98fe4e9b51.png' /> 注意：请在有“？”号的地方填入正确内容，然后删除“？”及代码前的所有注释符（即“‘”号），但不能修改其他部分。存盘时不得改变文件名和文件夹，程序编写完整后执行一次操作，将结果保存到考生文件夹下的out5．txt文件中，否则没有成绩。

<img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182692/ct_ctvbjj_ctvbjbasicope_00011(20096).jpg' /> 要求： (1)编写适当的事件过程，使得程序运行时，单击LeR按钮，则焦点位于Text1上。 (2)单击Right按钮，则焦点位于Text2上。 注意： 程序中不得使用变量，事件过程中只能写一条语句：文件必须存放在考生文件夹中，工程文件名为execise110.vbp，窗体文件名为execise110.frm。

Private Sub Command1_Click() Dim x!, y!, z!, t! x = Text1 y = Text2 z = Text3 If x< y then t = x x = y y = t End If If y< z then t = y y = z z = t If x< y then t = x x = y y = t End If End If Label1.Caption = x & "," & y & "," & z End Sub 当在文本框text1、text2 和 text3 中分别输入5、3和8，则标签显示的结果为() A.3,5,8 B.5,3,8 C.8,5,3 D.3.8.5

在窗体(Name属性为Form1)上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() A=Text1.Text+TextText Print a End Sub Private SUb Form胃Load() Text1.Text= " " TextText=" " End Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入33和44，然后单击命令按钮，则输出结果为 A．77 B．33+44 C．3344 D．4433

则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文 本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中：单击退出按钮则退出。 请将下列程序填空补充完整。 Private Sub Command1_Click() Me!Text1="" Me!Text2="" Me!Text3="" Me!Text4="" End Sub Pdvate Sub Command2_Click() If Me!Text1="" Or Me!Text2="" Or Me!Text3=""then MsgBox"成绩输入不全" Else Me!Text4=(【 】+Val(Me!Text2)+Val(Me!Text3))/3 【 】 End Sub Private Sub Command3_Click() Docmd. 【 】 End Sub

A．语句fun=n有错，因为n是整型，fun没有定义类型 B．运行程序，输入值为5时，文本框中显示655 C．运行程序，输入值为6时，文本框中显示42 D．ByRef表示参数按址传递

A．单击“打开”按钮，显示打开文件的对话框 B．单击“保存”按钮，显示保存文件的对话框 C．单击“打印”按钮，能够设置打印选项，并执行打印操作 D．单击“退出”按钮，结束程序的运行

A． d=UCase ( B． &