东大17秋学期《可视化程序设计Ⅰ》在线作业1 免费答案
17秋18春《可视化程序设计Ⅰ》在线作业1
一、单选题（共 20 道试题，共 100 分。）
1. 在窗体中添加一个通用对话框Commondialog1和一个命令按钮Command1，当单击按钮时打开颜色对话框，能实现此功能的程序段是（）
A. Private Sub Command1_Click()CommonDialog1.ShowEnd Sub
B. Private Sub Command1_Click()Open CommonDialog1.ShowColorEnd Sub
C. Private Sub Command1_Click()CommonDialog1.ShowFontEnd Sub
D.
正确答案：B
2. 在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为
A. A) For i=0 To List1.ListCount-1……
B. B) For i=0 To ListCount-1……Next
C. C) For i=1 To List1.listCount……Next
D. D) For i=1 To ListCount……Next
正确答案：A
3. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = -5If Sgn(x) Then y = Sgn(x ^ 2)Else y = Sgn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是
A. -5
B. 25
C. 1
D. -1
正确答案：C
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 "
正确答案：C
5. 在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_
()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是
A. Enabled
B. Visible
C. Interval
D. Timer
正确答案：D
6. 假定窗体上有一个Text1文本框，为使它的文本内容位于中间并且没有边框，则正确的属性设置为
A. Text1.Alignment=1: Text1.BorderStyle=0
B. Text1.Alignment=2: Text1.BorderStyle=1
C. Text1.Alignment=1 : Text1.BorderStyle=1
D. Text1.Alignment=2 : Text1.BorderStyle=0
正确答案：D
7. 在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() For I=1 To 4 For J=0 To 1 Print Chr$(65+I); Next J Print Next I End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. "BB CC DD EE"
B. A BB CCC DDD
C. B CC DD EEE
D. AA BBB CCCC DDDD
正确答案：A
8. 假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为
A. Label1. BackStyle=0Label1.Borderstyle=0
B. Label1.BackStyle=1Label1.Borderstyle=1
C. Label1.BackStyle=TrueLabel1.BorderStyle=True
D. Label1.BackStyle=FalseLabel1.Borderstyle=False
正确答案：A
9. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Text1.text=“”Call P1(x,y,z)Text1.Text=Str(x)End SubSub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是
A. 0
B. 12
C. Str(z)
D. 没有显示
正确答案：B
10. 在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern=10z=n+zy=y+zx=x+zLabel1.caption=xLabel2.caption=yLabel3.caption=zEnd Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是
A. 10 10 10
B. 30 30 30
C. 30 30 10
D. 10 30 30
正确答案：A
11. 要获得当前驱动器应使用驱动器列表框的哪个属性？（）
A. Path
B. Drive
C. Dir
D. Patten
正确答案：B
12. 下列关于过程叙述不正确的是（）
A. 过程的传值调用是将实参的具体值传值递给形参
B. 过程的传址调用是将实参在内存的地址传递给形参
C. 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D. 无论过程传值调用还是过程传址调用，参数传递都是双向的
正确答案：C
13. (1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A. "A) 工程资源管理器窗口
B. "
C. "B) 工具箱窗口"
D. C) 代码窗口
E.
正确答案：C
14. 关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
正确答案：B
15. 以下叙述中错误的是
A. 一个工程可以包括多种类型的文件
B. Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
C. 程序运行后，在内存中只能驻留一个窗体
D. 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
正确答案：C
16. 设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
正确答案：D
17. 假定有如下的Sub过程：Sub S（x As Single,y As Single）t = xx =t/y y =t Mod yEnd
Sub在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click ( )Dim a As SingleDim b As Singlea =5b =4S a,b Print a,bEnd Sub程序运行后，单击命令按钮，输出结果为
A. 5 4
B. 1 1
C. 1.25 4
D. 1.25 1
正确答案：D
18. 以下叙述中错误的是
A. 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B. Sub过程中不能嵌套定义Sub过程
C. Sub过程中可以嵌套调用Sub过程
D. 事件过程可以像通用过程一样由用户定义过程名
正确答案：C
19. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click() n = Val(Text1.Text) For i = 2 To n For j = 2 To sqr(i) If i Mod j = 0 Then Exit For Next j If j > Sqr(i) Then Print i Next iEnd Sub该事件过程的功能是
A. 输出n以内的奇数
B. 输出n以内的偶数
C. 输出n以内的素数
D. 输出n以内能被j整除的数
正确答案：C
20. 对窗体编写如下事件过程：Private Sub Form _MouseDown(Button As Integer, _ Shift As Integer, X As Single Y As Single)If Button =2 ThenPrint "AAAAA"End IfEnd Sub Private Sub Form _ MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Single)Print "BBBBB"End
A. AAAAABBBBB"
B. BBBBB
C. AAAAA
D. "BBBBBAAAAA"
正确答案：A