在窗体上有一个文本框，名称为TextBox1，程序运行后，要求该文本框不能接收键盘输入，但能输出信息，以下设置正确的是（ ）。

A . Enabled B . Visible C . Interval D . Timer

Private Sub Form_Load（） List1.AddItem "北京" List1.AddItem "上海" List1.AddItem "河北" End Sub Private Sub List1 【9】 （） Labe1.Caption= 【10】 End Sub

Private Sub Timer1_ TxtTime.text=Time End Sub 在下画线上应填入的内容是 A．Enabled B．Visible C．Interval D．Time

<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/shangxueba/ask/11175001-11178000/11176558/ct_cstvbm_ctvbbblank_00048(200912).jpg' /> 程序填空处应是______。

Private Sub Option1_Click（Index As Integer） Select Case 【8】 Case 0 a="宋体" Case 1 a="黑体" Case 2 a="楷体_GB2312" End Select Text1 【9】 =a End Sub

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

<img src='https://img2.soutiyun.com/ask/uploadfile/10839001-10842000/b6e1961a1ece372d5b5d9638e1f875a5.jpg' />

窗体上有一个名称为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' />

<img src='https://img2.soutiyun.com/ask/uploadfile/2523001-2526000/b1da673322f0d1df5aa81b5625094699.jpg' /> 在下划线上应填入的内容是 A．Time B．False C．True D．Timer

A．将txtNoteEdit中的所有内容存放到st变量中，并将txtNoteEdit选中的内容清除，实现了剪切 B．将txtNoteEdit选中的内容存放到st变量中，并将txtNoteEdit中所有的内容清除，实现了剪切 C．将txtNoteEdit选中的内容存放到st变量中，并将txtNoteEdit选中的内容清除，实现了剪切 D．以上说法都不正确

注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl．vbp，窗体文件名为ylcl.frm。 <img src='https://img2.soutiyun.com/shangxueba/ask/11067001-11070000/11067794/ct_ctvbjm_basicope_00030(20092).jpg' />

求出数组alt中的各元素的立方并赋值回相应的元素，例如，arr(2)=2,则令art(2)=arr(2)*arr(2) *arr(2)=8。把计算后的数组的值全部写入考生文件夹中的文本文件out99.txt中，并在文本框中显示出来，最后Save按钮也变为无效。 <img src='https://img2.soutiyun.com/shangxueba/ask/11259001-11262000/11261465/ct_ctvbjj_ctvbjsimpapp_00144(20096).jpg' /> 本程序不完整，请补充完整，并能正确运行。 要求； 去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

(1)在属性窗口中修改Text3的适当属性，使其在运行时不显示，窗体如下图所示。 <img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182683/ct_ctvbjj_ctvbjcompapp_00297(20096).jpg' /> (3)窗体文件中始出了所有事件过程，但不完整，请去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，以便实现以下功能：当光标所在的文本框中无内容时，“剪切”和“复制”菜单项不可用，否则可以把该文本框中的内容剪切或复制到Text3中；若Text3中无内容，则“粘贴”菜单项不能用，否则可以把Text3中的内容粘贴在光标所在的文本框中的内容之后。 注意： 不能修改程序中的其他部分。各菜单项的标题名称必须正确。存盘时，工程文件名为 execise3.vbp，窗体文件名为execise3.frm。

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

A．Alt+F2 B．ab1 C．随机显示 D．不显示任何信息