东大20秋学期《可视化程序设计（VB）》在线平时作业1[答案]答案
20秋学期《可视化程序设计（VB）》在线平时作业1
试卷总分:100 得分:100
一、单选题 (共 15 道试题,共 75 分)
1.以下定义数组或给数组元素赋值的语句中，正确的是（ ）。
A.Dim a As Variant a=Array(1,2,3,4,5)
B."Dim a(10) As Integer a=Array(1,2,3,4,5)"
C."Dim a%(10) a(1)="ABCDE"
D."Dim a(3),b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a"
2.在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是（）。
A.Timer1.Interval=0.5
B.Timer1.Interval=5
C.Timer.Interval=50
D.Timer1.Interval=500
3.在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序如下： Private Sub Timer1_ () TxtTime.text=Time End Sub在下划线上应填入的内容是（）。
A.Enabled
B.Visible
C.Interval
D.Timer
4.要改变窗体的标题时，应当在属性窗口中改变的属性是（ ）。
A.Caption
B.Name
C.Text
D.Label
5.表示滚动条控件取值范围最大值的属性是（ ）。
A.Max
B.LargeChange
C.Value
D.Max-Min
6.设x=4,y=8,z=7，表达式x<y And (Not y>z) Or z<x的值是（）。
A.1
B.-1
C.TRUE
D.FALSE
7.下面程序段是计算（ ）公式的。 s=0:t=1 For i=1 To 10 t=t*i s=s+t Next i
A.s=1+2+3+4+5+6+7+8+9+10
B.s=1*2*3*4*5*6*7*8*9*10
C.s=1!+2!+3!+4!+5!+6!+7!+8!+9!+10!
D.s=1+2*3+3*4+4*5+5*6+6*7+7*8+8*9+9*10
8.保存一个编写好的程序，“过程名”是以（ ）作为扩展名的。
A..frm
B..vbp
C..bat
D..bas
9.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（）。
A.Autosize
B.Stretch
C.AutoRedraw
D.Appearance
10.设a=5,b=10，在执行c=int((b-a)*Rnd +a)+1语句后，求c值的范围为（ ）。
A.5~10
B.6~9
C.6~10
D.5~9
11.下面程序段运行后，变量m的值为（ ）。 a=2:b=1:c=5 IF a<b Then m=a Else m=b IF c<m Then m=c
A.2
B.1
C.5
D.以上答案都不对
12.下列属于字符常量的是（ ）。
A.Abs(x)
B."100"
C."val("100")"
D.10000/100
13.在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（ ）。
A.TabStop
B.Enabled
C.Visible
D.TabIndex
14.在窗体上画一个名称为CommandDialog1的通用对话框，一个名称为Command1的命令按钮。然后编写如下事件过程： Private Sub Command1_Click() CommonDialog1.FileName ="" CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt" CommonDialog1.FilterIndex=2 CommonDialog1.DialogTitle="VBTest" CommonDial
A.该对话框被设置为“打开”对话框
B.在该对话框中指定的默认文件名为空
C.该对话框的标题为VBTest
D.在该对话框中指定的默认文件类型为文本文件(*.Txt)
15.用于注释语句的单词是（ ）。
A.Rem
B.End
C.Else
D.Loop
东大20秋学期《可视化程序设计（VB）》在线平时作业1[答案]标准满分答案
二、判断题 (共 5 道试题,共 25 分)
16.“菜单编辑器”由菜单属性设置区、编辑区两部分组成。
17.窗体或控件的事件的名称可以由编程人员确定
18.程序代码的基本结构有三种：顺序结构、选择结构和过程结构。
19.事件可以由用户引发，也可以由系统引发
20.下列程序段的语法是正确的。 If x >0 Then x=x+2 Else x=x-2 End If
东大20秋学期《可视化程序设计（VB）》在线平时作业1[答案]历年真题如下：
