单选题假定在窗体上添加了一个通用对话框控件，其名称为CD1，并有如下程序段： CD1．ShowOpen：CD1．DefaultExt="doc" 在打开文件的对话框中选择了"c：＼filel．txt"文件，则FileTitle属性的值是
单选题下列 ______ 是Single型变量。 A) Time% B) Sheight! C) Name＄ D) cxyz@
单选题在表单文件中Init是指下列哪一项触发的基本事件?( )
单选题以下叙述中错误的是_________。
A.在同一窗体的菜单项中，不允许出现标题相同的菜单项
B.在菜单的标题栏中，"&"所引导的字母指明了访问该菜单项的访问键
C.在程序运行过程中，可以重新设置菜单的Visible属性
D.弹出式菜单也在菜单编辑器中定义
单选题在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Option Base 1 Private Sub Command1_Click() Dim a a＝Array(1，2，3，4)：j＝1 For i＝4 To 1 Step－1 s＝s＋a(i)*j：j＝j*10 Nexti Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是( )。
单选题Visual Basic数据类型中，占用内存最小的是( )。
单选题能够将Picture对象P加载当前目录中的face．bmp的语句是______。
单选题在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (
单选题在窗体上画一个列表框和一个命令按钮，其名称分别为List1和Command1，然后编写如下事件过程。 Private Sub Form_Load() List1.AddItem“Itemn 1” List1.AddItem“Itemn 2” List1.AddItem”Item 3” End Sub Private Sub Command1_Click() List1.List( List1.ListcountF AAAA" End Sub 程序运行后，单击命令按钮，其结果为( )。 A) 把字符串“AAAA”添加到列表框中，但位置不能确定 B) 把字符串“AAAA”添加到列表框的最后(即“Item 3”的后面) C) 把列表框中原有的最后一项改为“AAAA” D) 把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)
单选题已知列表框控件List1中已放入若干表项，下列关于List1的叙述中错误的是
单选题在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程： Private Sub Command1 Click() Dim i As Integer， x As Integer For i=1 To 6 If i=1 Then x=i If i＜= 4 Then x=x+1 Else x=x+2 End If Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为
单选题已知学生关系是；学生(学号，姓名，性别，专业号，班长)，其中“学号”是主码，“班长”属性表示该学生所在班级的班长的学号，则学生关系是 ______。
单选题执行语句 Print Right$(Mid$("ABCDEFG", 2, 5), 3) 后的输出是
单选题下列不属于软件工程3个要素的是( )。
单选题以下不属于单选按钮的属性是
单选题函数过程Fun1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。 Function Fun1(b As Integer) if Then Fun1=0 Else Fun1=1 End If End Function 使该功能完整，应在空行处填入( )。 A) b Mod 2＜＞0 B) b Mod 2=0 C) b/2=1 D) b/2=0
单选题已知在4行3列的全局数组score(4，3)中存放了4个学生3门课程的考试成绩(均为整数)。 现需要计算每个学生的总分，某人编写程序如下： Option Base1 Private Sub Command1_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 i End Sub 运行此程序时发现，除第1个人的总分计算正确外，其他人的总分都是错误的，程序需要修改。以下修改方案中正确的是
单选题有下面程序代码： Option Base1 Private Sub Command1_Click() Dim a(10)As Integer，x，b x=InputBox("请输入一个多位整数") For k=l To Len(x) b=Mid(x，k，1) a(Val(b)+1)=a(Val(b)+1)+1 Next k For k=1 To 10 Print a(k)： Next k End Sub 程序运行时，单击命令按钮Command1，输入2355270224，则输出是
单选题下面的程序执行时，将把当前目录下的顺序文件smtext1．txt的内容读入内存，并在文本框Text1中显示出来。在横线处应填写( )。Private Sub Command1_Click()Dim inData As StringText1．Text=" "Open"．＼smtext1．txt"______________As#1Do While______________Input#1．inDataText1Text=Text1．Text&inDataLoopClose#1End Sub
单选题设有下面程序代码：
Option Base 1
Private Sub Command1_Click()
Dim x(6)
a=Array(4, 2, 5, 1, 6, 3)
b=Array(64, 24, 98, 27, 58, 41)
For k=1 To 6
x(a(k))=b(k)
Next k
For k=1 To 6
Print x(k);
Next k
End Sub
程序运行时的输出是