东北大学17秋学期《可视化程序设计Ⅰ》在线作业2参考答案
17秋学期《可视化程序设计Ⅰ》在线作业2一、单选题:【20道,总分:100分】
1.为了保存一个VB应用程序，下列中正确的是 (满分:5)
A. 只保存窗体文件（.frm）
B. 只保存工程文件（.vbp）
C. 分别保存工程文件和窗体文件
D. 分别保存工程文件和标准模块文件（.bas）
2.若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置 (满分:5)
A. Text属性值为#
B. Caption属性值为
C. #PasswordChar属性值为
D. #PasswordChar属性值为真
3.在窗体上面画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub CommandlClick( )Dim aa = Array(1,2,3,4)j = 1For i = 4 To Step -1s = s + a(i)*jj =j*10Next iPrint sEnd Sub运行上面的程序，单击命令按钮，其输出结果是 (满分:5)
A. 4321
B. 12
C. 34
D. 1234
4.设有如下的类型声明 Type Person name As String*8 major As String*20 End Type 当单击“保存”按钮时，将两个文本框中的内容写入一个随机文件Test29．dat中。设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是 (满分:5)
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.对窗体编写如下代码：Option Base 1Private Sub FormKeyPress(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程序运行后，按回车键，输出结果为 (满分:5)
A. 48 4
B. 237 1
C. 498 5
D. 498 4
6.在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1Click( )For i=1 To 4x=4For j =1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是 (满分:5)
A. 7
B. 15
C. 157
D. 538
7.在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：Private Sub Command1Click( ) n = Val(Text1.Text) If n\2 = n/2 Then f = f1(n) Else f = f2(n) End If Print f; nEnd SubPublic Function f1(ByRef x) x=x*x f1=x+xEnd FunctionPublic Function f2(ByVal x) x= (满分:5)
A. 7236
B. 10836
C. 726
D. 1086
8.在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是 (满分:5)
A. ") Private Sub Command1Click( ) x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End SubFunction F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function"
B. "Private Sub Command1Click( ) 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 Command1Click( ) 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 Command1Click( ) 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
9.目录列表框的Path属性的作用是 (满分:5)
A.
B. 显示当前驱动器或指定驱动器上的某目录下的文件名
C. 显示根目录下的文件名
D. 只显示当前路径下的文件
10.关于Line语句正确的说法是 (满分:5)
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定
11.当利用Line方法进行添加图时，以下正确的说法是( ) (满分:5)
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 "
12.设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是 (满分:5)
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
13.为了使标签中的内容居中显示，应把Alignment属性设置为 (满分:5)
A. 0
B. 1
C. 2
D. 3
14.设置一个检查框所代表选项的选中状态，应当在属性窗口中改变的属性是( ) (满分:5)
A.
B. Name
C. Text
D. Value
15.执行下面的程序段后，x 的值为。x=5For i=1 To 20 Step 2x=x+i\5Next i (满分:5)
A. 21
B. 22
C. 23
D. 24
16.在窗体上画两个文本框(其Name 属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：Private Sub Command1Click( )x=0Do While x<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为 (满分:5)
A. 1和0
B. 2和72
C. 3和50
D. 4和168
17.(3)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 (满分:5)
A. 单选按钮
B. 图片框
C. " 通用对话框
D. "
E. 文本框
18.要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性?( ) (满分:5)
A. Dir
B. Path
C. Drive
D. FileName
19.假设有如下事件过程Private Sub FormMouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Button=2 ThenPopupMenu popFormEnd IfEnd Sub则以下描述中错误的是 (满分:5)
A. 该过程的功能是弹出一个菜单
B. popForm是在菜单编辑器中定义的弹出式菜单的名称
C. 参数X、Y指明鼠标的当前位置
D. Button=2表示按下的是鼠标左键
20.在窗体中添加一个命令按钮Command1和一个文本框Text1,编写命令按钮Command1的Click事件代码： Private Sub Command1Click( ) Dim s As String*20 S=Text1.text …… End Sub 该程序的功能是当单击按钮Command1时，把变量s中内容写入一个顺序文件dat1.dat中，正确的程序是( ) (满分:5)
A. "Open “dat1.dat” For Input As #1Write #1,SClose #1"
B. "Open “dat1.dat” For Output As #1 Write #1,S Close #1 "
C. "Open “dat1.dat” For Binary As #1 Write #1,SClose #1"
D. "Open “dat1.dat” For Random As #1 Write #1,S Close #1 "
更多学习资料请登录www.openhelp100.com
页:
[1]