单选题设有如下函数过程： Function fun(a As Integer, b As Integer) Dim c As Integer If a＜b Then c=a:a=b:b=c End If c=0 Do c=c+a Loop Until c Mod b=0 fun=c End Function 若调用函数fun时的实际参数都是自然数，则函数返回的是
单选题假定有如下事件过程： Privte Sub Form_Click0 Dim x As Integer,n As Integer x=1 n=0 Do While x＜28 x=x*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果是( )。
单选题设在工程文件中有一个标准模块，其中定义了如下记录类型
Type Books
Name As String*10
TelNum As String*20
End Type
在窗体上画一个名称为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是
单选题以下叙述错误的是( )。
单选题在窗体上画一个命令按钮，然后写出如下事件过程：
Private Sub Command1 _ Click( )
S=1
Do
S=(S + 1) ^(S + 2)
Number=Number+1
Loop Until S＞=6
Print Number，S
End Sub
程序运行后，输出的结果是( )。
单选题已知在4行3列的全局数组score(4，3)中存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分，某人编写程序如下：Option Base 1Private Sub Commandl_Click() Dim sum As Integer sum=0 For i=1 To 4 For j=1 To 3 sum=sum+score(i，j) Nextj Print"第"&i&"个学生的总分是："；sum Next iEnd Sub运行此程序时发现，除第1个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。以下修改方案中正确的是
单选题窗体上有名称分别为Text1、Text2的文本框，名称为Commandl的命令按钮。运行程序，在Text1中输入“FormList”，然后单击命令按钮，执行如下程序：
Private Sub Commandl_Click()
Text2.Text=UCase(Mid(Text1.Text,5,4))
End Sub
在Text2中显示的是______。
单选题在E盘当前目录文件夹下建立一个名为“Student.txt”，的随机文件，要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有下列记录类型和窗体的事件过程，请选择正确的语句完成程序( )。 Private Type student StuName As String*10 StuGrade As String*10 StuAge As Integer End Type Private Sub Form_Click() Dim s As student Open"c:/student.txt"For Random As#1 Len=Len(s) For i=1 To 1 s.StuName=InputBox("请输入姓名") s.StuGrade=InputBox("请输入年级号") s.StuAge=Val(InputBox("请输入年龄")) ______ Next i Close#1 End Sub
单选题以下关于文件的叙述中，正确的是
单选题在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程： Private Sub Command1_Click() aS=“software and hardware” b$=Right(aS，8) c$=Mid(a$，1，8)：MsgBox aS，，b$，c$，1 End Sub 则在弹出的信息框标题栏中显示的标题是
单选题为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True，然后再将 ScrollBars属性设置为
单选题下列程序段的执行结果为{{U}} {{/U}}。 a=6
For k=1 To n a=a+k Next
Print k; a
A. -16
B. -116
C. 16
D. 11 21
单选题可以用InputBox函数产生“输入对话框”。若执行下列语句 st$=InputBox("请输入字符串"，"字符串对话框"，"字符串") 当用户输入完毕，按“确定”按钮后，st$变量的内容是( )。
单选题设有如下程序段：Dim x As Integerx = Val(InputBox("输入变量x的值"))Select Case x Case ________________ Print "*" Case Else Print "#"End Select以上程序段的功能是，当变量x的值在5到10之间，或者大于20时，输出"*"，其它情况输出"#"，则程序中横线处应填入的内容是( )。
单选题对关系S和R进行集合运算，结果中既包含S中的所有元组也包含R中的所有元组，这样的集合运算称为{{U}} {{/U}}。
A. 并运算
B. 交运算
C. 差运算
D. 积运算
单选题下列控件不支持MouseDown事件的是__________。
A.HsrcollBar
B.Command Button
C.PictureBox
D.TextBox
单选题下面( )不是VB的文件系统控件。
单选题顺序文件在一次打开期间
单选题有如下一个函数过程：在窗体上添加一个命令按钮，事件过程如下：运行该程序，单击命令按钮，输出结果是______。
单选题下面4个选项中，不是窗体属性的是( )。