问题：
[填空题] 下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text 为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。 Private Sub Command1_Click( ) Selct Case Val(Text1.Text) Case【】 Print "您的成绩为优秀！" Case【】
问题：
[填空题] 在Visual Basic中按文件的编码方式不同，可将文件分为 【15】 。
问题：
[填空题] 执行下面程序，第一行输出结果是 【14】 ，第二行输出结果是47。 Option Explicit Private Sub Form_Click( ) Dim A As IntegerA=2Call Sub1 (A) End Sub Private Sub1 (x As Integer) x=x*2+1 If x＜10 Then Call Sub1 (x) End If x=x*2+1 Print xEnd Sub
问题：
[填空题] 在E盘当前目录文件夹下建立一个名为“Student．txt’’’的顺序文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。 Private Sub Form _ Click( ) 【 】 For i=1 To 5 StuName=InputBox("请输入姓名") StuGrade=InputBox("请输入年级号") StuAge=Inp
问题：
[填空题] 如果存在如下过程： Private Function FMax( a( ) As Integer) Dim First As Integer, Last As Integer, i As Integer First = LBound(a) Last = UBound(a) Max = a(First) For i = First To Last If a (i)＞Max Then Max=a (i) Next FMax = Max End Function Private
问题：
[填空题] 在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。 Sub SORT( ) Dim a(1 To 10) For i=1 To 10 a(i)=Val(InputBox(" " ，" "，0)) Next i For i=【 】 k=i For j=【 】 If a(k)＞a(j)Then 【 】 If k＜
问题：
[填空题] 下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。 例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox("请
问题：
[填空题] 菜单项的唯一事件是 【8】 。
问题：
[填空题] 如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查 找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查 找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显 示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。Private Sub Command1_Click()Dim k As Integer, n As Integer, found As Boolean found = Falsen
问题：
[填空题] 为了使计时器控件Timer1每隔0.5秒触发一次Timer事件，应将Timer1控件的【 】属性设置为【 】。
鄂公网安备 42120202000370号