窗体上确文本框Text1和一个菜单，菜单标题、名称见表，结构如图2所示。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中，下面可实现此功能的事件过程是（)。<img src='https://img2.soutiyun.com/ask/uploadfile/3720001-3723000/2daea35c50446486325ab2b833ad772c.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/3720001-3723000/c5a5d84d5fd308b7bf9c516906e56e26.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/3720001-3723000/babcd9cc880d2945c42f8544a8f15442.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/3720001-3723000/04b7f78ca506fa249fe332133814c632.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/3720001-3723000/ae3e47caf49f04dab63566bdf9722f83.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/3720001-3723000/ea25f65cdb532e7d91f69f44cf47ca27.jpg' /><img src='https://img2.soutiyun.com/ask/uploadfile/3720001-3723000/fe0cc2410aadcd0163e2756bc76edecc.jpg' />

<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/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 Command1_Click（） n = Val（Text1.Text） For i = 2 To n For j = 2 To sqr（i） If i Mod j = 0 Then Exit For Next j If j ＞ Sqr（i） Then Print i Next i End Sub 该事件过程的功能是（）。 A．输出n以内的奇数 B．输出n以内的偶数 C．输出n以内的素数 D．输出n以内能被j整除的数

框 Text2 中输入的数据小于 1000 ，否则重新输入。为了实现以上功能，在下列程序中问号（）处 应填入的内容是（）。 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

A．“项目”：[Forms]![Form1]，“表达式”：[Forms]![Form1]![Text1] B．“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Text1] C．“项目”：[Forms]![Form1].[Caption]，“表达式”：[Forms]![Form1]![Command1] D．“项目”：[Forms]![Form1]![Text1]，“表达式”：[Forms]![Form1]![Command1]

<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' />

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写 如下事件过程： Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To Sqr(i) If i Mod j=0 Then Exit For Next j If j＞Sqr(i)Then Print i Next i End Sub 该事件过程的功能是 A．输出n以内的奇数 B．输出n以内的偶数 C．输出n以内的素数 D．输出n以内能被j整除的数

<img src='https://img2.soutiyun.com/ask/uploadfile/2586001-2589000/23e1201b59bd107c459be2a1be30957d.jpg' /> 程序运行后，单击命令按钮，在文本框中显示的值是 A．2 B．3 C．4 D．5

<img src='https://img2.soutiyun.com/ask/uploadfile/4884001-4887000/bf8d65c222511bcbd6a987853bf72602.gif' /> A ） Me!Text1.Caption=sum B ） Me!Text1.Valuc=sum C ） Me!Text1.Text=sum D ） Me!Text1.Visiblc=sum

在名为Form1的窗体上绘制一个文本框(名称为Text1)和一个水平滚动条(名称为 HSl)。在属性窗口中对滚动条设置如下属性： Min 500 Max 2000 LargeChange 50 SmallChange 20 编写适当的事件过程，使程序运行后，若移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的宽度始终是其高度的1.2倍。运行后的窗体如下图所示。 <img src='https://img2.soutiyun.com/shangxueba/ask/11181001-11184000/11182470/ct_ctvbjj_ctvbjbasicope_00061(20096).jpg' /> 注意： 要求程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为execise58.vbp，窗体文件名为execise58.frm。

注意：存盘时必须存放在考生文件夹下，工程文件名为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' /> 本程序不完整，请补充完整，并能正确运行。 要求； 去掉程序中的注释符“'”，把程序中的问号“？”改为正确的内容，使其实现上述功能，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。

<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。

(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。

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

ASCII码为13)后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此．某人在Form1窗体文件中编写如下程序： Private Sub Text 1 KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If Text1．Text=&quot;Teacher&quot;Then Form2．input．Visible=True Else Form2．input．Visible False End If End If Forml．Hide Form2．Show End Sub 菜单结构 标题 名称 级别 成绩管理 mark 1 成绩查询 query 2 成绩录入 mput 3 程序运行时发现刚输入口令时就隐藏了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是（）。 A.把Form1中Text1文本框及相关程序放到Form2窗体中 B.把Form1．Hide、Form2．Show两行移动2个End If之间 C.把If KeyAscii=13 Then改为If KeyAseii=&quot;Teacher&quot;Then D.把2个Form2 input．Visible中的“Form2．”删去

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

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