15秋学期《可视化程序设计Ⅰ》在线作业1

李老师

15秋学期《可视化程序设计Ⅰ》在线作业1

1.  下列不能打开菜单编辑器的操作是
A. 按Ctrl+E
B. 单击工具栏中的“菜单编辑器”按钮
C. 执行“工具”菜单中的“菜单编辑器”命令
D. 按Shift + Alt + M
正确答案：D      满分：5  分  得分：5
2.  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程rivate Sub Command1_Click() c = 1234 c1 = Trim(Str(c)) For i = 1 To 4 Print　 NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容1121231234则在下划线处应填入的内容为
A. "Right(c1,i)"
B. "Left(c1,i)"
C. "Mid(c1,i,1)"
D. "Mid(c1,i,i)"
正确答案：B      满分：5  分  得分：5
3.  下列叙述中正确的是
A. 在窗体的Form_Load事件过程中定义的变量是全局变量
B. 局部变量的作用域可以超出所定义的过程
C. 在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D. 在调用过程时，所有局部变量被系统初始化为0或空字符串
正确答案：C      满分：5  分  得分：5
4.  执行下面的程序段后，x 的值为。x=5For i=1 To 20 Step 2x=x+i\5Next i
A. 21
B. 22
C. 23
D. 24

5.  在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是
A. Enabled
B. Visible
C. Interval
D. Timer

6.  (1)在设计阶段，当双击窗体上的某个控件时，所打开的窗口是
A. "A) 工程资源管理器窗口
B. "
C. "B) 工具箱窗口"
D. C) 代码窗口
E.

7.  以下关于变量作用域的叙述中，正确的是
A. 窗体中凡被声明为Private的变量只能在某个指定的过程中使用
B. 全局变量必须在标准模块中声明
C. 模块级变量只能用Private关键字声明
D. Static类型变量的作用域是它所在的窗体或模块文件

8.  窗体中有3个按钮Command1、Command2和Command3，该程序的功能是当单击按钮Command1时，按钮2可用，按钮3不可见，正确的程序是
A. Private Sub Command1_Click( ) Command2.Visible=True :Command3.Enabled=TrueEnd Sub
B. Private Sub Command1_Click( ) Command2.Visible=False:Command3.Enabled=False End Sub
C. Private Sub Command1_Click( ) Command2.Enable=True :Command3.Visible=FalseEnd Sub
D. Private Sub Command1_Click( ) Command2.Enabled=False : Command3.Visible=False End Sub

9.  假定有如下的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

10.  关于Line语句正确的说法是
A. Line只能绘制直线
B. Line可以绘制矩形，但是不可以设置填充色
C. Line在绘制矩形，填充色由FillColor属性决定
D. Line在绘制矩形，填充色由forecolor属性决定

11.  software and hardwarB) softwareC) hardwareD) 1(26)执行如下语句a=InputBox("Today","Tomorrow","Yesterday",,,"Day before yesterday",5)将显示一个输入对话框，在对话框的输入区中显示的信息是
A. Today
B. Tomorrow
C. Yesterday
D. Day before Yesterday

12.  列表框控件中的列表内容是通过（ ）属性设置的
A. Name
B. Caption
C. List
D. Text

13.  在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then xit forNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是
A. 2
B. 3
C. 4
D.

14.  以下语句的输出结果是。Print Format $(32548.5,“000,000.00”)
A.  32548.5
B. "32,548.5"
C. "032,548.50"
D. "32,548.50"

15.  在窗体上画一个名称为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

16.  比较图片框（PictureBox）和图像框（Image）的使用，正确的描述是（ ）
A. 两类控件都可以设置AutoSize属性，以保证装入的图形可以自动改变大小
B. 两类控件都可以设置Stretch属性，使得图形根据物件的实际大小进行拉伸调整，保证显示图形的所有部分
C. 当图片框（PictureBox）的AutoSize自属性为Flase时，只在装入图元文件（*.wmf）时，图形才能自动调整大小以适应图片框的尺寸
D. 当图像框（Image）的Stretch属性为True时，图像框会自动改变大小以适应图形的大小，使图形充满图像框

17.  在窗体上画一个命令按钮，名称为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

18.  在窗体中添加一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮。要求单击命令按钮时，打开一个打开文件的通用对话框。该窗口的标题为“打开”，在文件类型框中显示的是TextFiles(*.txt)。则能够满足上述要求的程序是（ ）
A. "rivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
B. "rivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub"
C. "rivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex =1CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"
D. "rivate Sub Command1_Click()CommonDialog1.Flags = cdlOFNHideReadOnlyCommonDialog1.Filter = ""allfiles(*.*)|*.*|textfiles"" & ""(*.txt)|*.txt|Batchfiles(*.bat)|*.bat""CommonDialog1.FilterIndex = 2CommonDialog1.ShowSaveMsgBox CommonDialog1.FileNameEnd Sub"

19.  在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Move 500，500End Sub
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 命令按钮移动到距窗体左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500

20.  在窗体中添加一个命令按钮Command1和一个文本框Text1,编写命令按钮Command1的Click事件代码： Private Sub Command1_Click( ) Dim s As String*20 S=Text1.text …… End Sub 该程序的功能是当单击按钮Command1时，把变量s中内容写入一个顺序文件dat1.dat中，正确的程序是（ ）
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 "