东大17秋学期《可视化程序设计Ⅰ》在线作业2答案答案
17秋学期《可视化程序设计Ⅰ》在线作业2
试卷总分:100 得分:0
一、 单选题 (共 20 道试题,共 100 分)
1. 为了保存一个VB应用程序，下列中正确的是
A. 只保存窗体文件（.frm）
B. 只保存工程文件（.vbp）
C. 分别保存工程文件和窗体文件
D. 分别保存工程文件和标准模块文件（.bas）
专业答案:----
满分：5 分
2. 若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置
A. Text属性值为#
B. Caption属性值为
C. #PasswordChar属性值为
专业答案:----
D. #PasswordChar属性值为真
正确答案:----
满分：5 分
3. 在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Commandl_Click()Dim aa = Array(1,2,3,4)j = 1For i = 4 To Step -1s = s + a(i)*jj =j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是
专业答案:----
A. 4321
B. 12
C. 34
D. 1234
正确答案:----
满分：5 分
4. 设有如下的类型声明 Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29．dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是
正确答案:----
A. "open”c：＼Test29．dat"" For Random As#1 Put #1，1，p Close #1 "
正确选项:----
B. "open ""c:＼Test29.dat"" For Random As #1 Get#1，1，p C10se #1 "
专业答案:----
C. "open ""c＼Test29．dat"" For Random As #1 Len＝Len(p) Put #1，1，p Close #1 "
专业答案:----
D. "Open ""c：＼Test29．dat "" For Random As #1=Len(p) Get #1，1，p CloSe #1 "
正确选项:----
满分：5 分
5. 对窗体编写如下代码：Option Base 1Private Sub Form_KeyPress(KeyAscii As Integer)a = Array(237,126,87,48,498)m1 = a(1)m2 = 1If KeyAscii = 13 ThenFor i =2 To 5If a(i)>ml Thenm1 =a(j)m2 =iEnd IfNext iEnd IfPrint m1Print m2End Sub程序运行后，按回车键，输出结果为
正确选项:----
A. 48 4
B. 237 1
C. 498 5
D. 498 4
正确答案:----
满分：5 分
6. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是
正确答案:----
A. 7
B. 15
C. 157
D. 538
正确选项:----
满分：5 分
7. 在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1_Click() n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; nEnd Sub Public Function f1(ByRef x) x=x*x f1=x+xEnd Function Public Function f2(ByVal x) x=
正确答案:----
A. 7236
B. 10836
C. 726
D. 1086
正确答案:----
满分：5 分
8. 在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是
正确答案:----
A. ") Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function"
正确选项:----
B. "Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function"
正确选项:----
C. "Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function "
正确选项:----
D. "Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
专业答案:----
满分：5 分
9. 目录列表框的Path属性的作用是
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件
正确选项:----
满分：5 分
10. 关于Line语句正确的说法是
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
正确选项:----
满分：5 分
11. 当利用Line方法进行添加图时，以下正确的说法是（ ）
A. 有7种不同的线型，而且不管线宽多少都可以绘制虚线/点划线/点线
B. "使用Line(100,100)-(1000,1200)和Line(100,100)-Step(900,1100)将绘制两条相同位置的直线 "
C. "可利用Line方法添加矩形，如Line(300,300)-(2000,2000),BF "
D. "可利用Line方法添加矩形，如Line(300,300)-(2300,2300),B+F "
正确答案:----
满分：5 分
12. 设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A. menu1.Enabled=True
正确答案:----
B. Munu1.Enabled=False
正确选项:----
C. Menu1.Visible=True
D. Menu1.Visible=False
正确选项:----
满分：5 分
13. 为了使标签中的内容居中显示，应把Alignment属性设置为
A. 0
B. 1
C. 2
D. 3
正确选项:----
满分：5 分
14. 设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是（ ）
A.
B. Name
C. Text
D. Value
正确选项:----
满分：5 分
15. 执行下面的程序段后，x 的值为。x=5For i=1 To 20 Step 2x=x+i5Next i
A. 21
B. 22
C. 23
D. 24
正确答案:----
满分：5 分
