15春学期《可视化程序设计Ⅰ》在线作业1-3答案

李老师

15春学期《可视化程序设计Ⅰ》在线作业1
试卷总分：100       测试时间：--
单选题  


一、单选题（共 20 道试题，共 100 分。）V 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.
      满分：5  分
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
      满分：5  分
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
      满分：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.  在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是
A. Enabled
B. Visible
C. Interval
D. Timer
      满分：5  分
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
      满分：5  分
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
      满分：5  分
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
      满分：5  分
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. 没有显示
      满分：5  分
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
      满分：5  分
11.  要获得当前驱动器应使用驱动器列表框的哪个属性？（ ）
A. Path
B. Drive
C. Dir
D. Patten
      满分：5  分
12.  下列关于过程叙述不正确的是（）
A. 过程的传值调用是将实参的具体值传值递给形参
B. 过程的传址调用是将实参在内存的地址传递给形参
C. 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D. 无论过程传值调用还是过程传址调用，参数传递都是双向的
      满分：5  分
13.  (1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A. "A) 工程资源管理器窗口
B. "
C. "B) 工具箱窗口"
D. C) 代码窗口
E.
      满分：5  分
14.  关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是
A. "dx,dy为传送源左上角坐标"
B. "dx,dy为传送目标左上角坐标"
C. "sw,sh为传送目标的大小"
D. "dw,dh为传送源的大小"
      满分：5  分
15.  以下叙述中错误的是
A. 一个工程可以包括多种类型的文件
B. Visual Basic应用程序既能以编译方式执行，也能以解释方式执行
C. 程序运行后，在内存中只能驻留一个窗体
D. 对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
      满分：5  分
16.  设在菜单编辑器中定义了一个菜单项，名为menu1。为了在运行时隐藏该菜单项，应使用的语句是
A. menu1.Enabled=True
B. Munu1.Enabled=False
C. Menu1.Visible=True
D. Menu1.Visible=False
      满分：5  分
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
      满分：5  分
18.  以下叙述中错误的是
A. 如果过程被定义为Static类型，则该过程中的局部变量都是Static类型
B. Sub过程中不能嵌套定义Sub过程
C. Sub过程中可以嵌套调用Sub过程
D. 事件过程可以像通用过程一样由用户定义过程名
      满分：5  分
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整除的数
      满分：5  分
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"
      满分：5  分