东大（本部）17春学期《可视化程序设计Ⅰ》在线作业1答案

作业辅导

东北大学17春学期《可视化程序设计Ⅰ》在线作业1答案
东北大学（本部）

一、单选题：
1.窗体上画一个命令按钮，名称为Command1。然后编写如下程序：Private Sub Command1Click(    )For I=1 To 4For J=0 To 1Print Chr$(65+I);Next JPrintNext IEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是          (满分:5)
    A. BB CC CC DD EE
    B. A BB CCC DDDD
    C. B BB CCC DDDD
    D. AA CC DDD CCCC
2.表示滚动条控件取值范围最大值的属性是          (满分:5)
    A. Max
    B. LargeChange
    C. Value
    D. Max-Min
3.在窗体上画一个文本框（其中Name属性为Text1），然后编写如下事件过程：Private Sub FormLoad(    )Ttext1.Text=""Text1.SetFocusFor i=1 To 10Sum=Sum+iNext iText1.Text=SumEnd Sub上述程序的运行结果是          (满分:5)
    A. 在文本框Text1中输出55
    B. 在文本框Text1中输出0
    C. 出错
    D. 在文本框Text1中输出不定值
4.在窗体上画一个名称为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
5.VB6.0集成环境的主窗口中不包括          (满分:5)
    A. 标题栏
    B. 菜单栏
    C. 状态栏
    D. 工具栏
6.关于子窗体说法正确的是          (满分:5)
    A. MDI子窗体与普通窗体没有区别
    B. MDI子窗体与普通窗体不同，其活动区域为MDI窗体工作区，而普通窗体则没有此限制
    C. MDI窗体菜单和子窗体可以同时显示出来
    D. 当子窗体激活时仅仅显示子窗体菜单
7.在窗体上面一个命令按钮（其Name属性为Commandl），然后编写如下代码：Option Base 1Private Sub CommandlClick(    )Dim a(4,4)For i =1 To 4For j =1 To 4a(i,j) =(i-1)*3+jNext jNext iFor i =3 To 4For j =3 To 4Print a(j,i);Next jPrintNext iEnd Sub程序运行后，单击命令按钮，其输出结果为          (满分:5)
    A. 6 9 7 10
    B. 7 10 8 11
    C. 8 11 9 12
    D. 9 12 10 13
8.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程Option Base 0Private Sub Command1Click(    )Dim city As VariantCity=Array("北京"，"上海"，"天津"，"重庆")Print city(1)End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是          (满分:5)
    A. 空白
    B. 错误提示
    C. 北京
    D. 上海
9.在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是          (满分:5)
    A. "Private Sub Command1Click(    )x=InputBox(“请输入整数”)a=F1(Val(x))Print aEnd Sub Function F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function"
    B. "Private Sub Command1Click(    )x=InputBox(“请输入整数”)a=F1(Val(x))Print aEnd Sub Function F1(ByRef b As Integer)If b Mod 2=0 ThenF1=0ElseF1=1End IfEnd Function"
    C. "Private Sub Command1Click(    )x=InputBox(“请输入整数”)F1(Val(x))Print aEnd Sub Function F1(ByRef b As Integer)If b Mod 2=0 ThenF1=1ElseF1=0End IfEnd Function"
    D. "Private Sub Command1Click(    )x=InputBox(“请输入整数”)F1(Val(x))Print aEnd Sub Function F1(ByRef b As Integer)If b Mod 2=0 ThenReturn 0ElseReturn 1End IfEnd Function"
10.目录列表框的Path属性的作用是          (满分:5)
    A.
    B. 显示当前驱动器或指定驱动器上的某目录下的文件名
    C. 显示根目录下的文件名
    D. 显示该路径下的文件
11.可以惟一标识控件数组中的每一个控件属性的是          (满分:5)
    A. Name
    B. Caption
    C. Index
    D. Enabled
12.关于PaintPicture spic,dx,dy,dw,dh,sx,sy,sw,sh,rop语句正确的说法是          (满分:5)
    A. "dx
    dy为传送源左上角坐标"
    B. "dx
    dy为传送目标左上角坐标"
    C. "sw
    sh为传送目标的大小"
    D. "dw
    dh为传送源的大小"
13.要获得文件列表框中当前被选中的文件的文件名，则应使用哪个属性?(    )          (满分:5)
    A. Dir
    B. Path
    C. Drive
    D. FileName
14.在窗体上画一个名称为Command1的命令按钮和三个名称分别为Label1、Label2、Label3的标签，然后编写如下代码Private x As IntegerPrivate Sub Command1Click(    )Static y As IntegerDim z As Integern=10z=n+zy=y+zx=x+zLabel1.caption=xLabel2.caption=yLabel3.caption=zEnd Sub运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是          (满分:5)
    A. 10 10 10
    B. 30 30 30
    C. 30 30 10
    D. 10 30 30
15.在窗体上画一个命令按钮，然后编写如下事件过程：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
16.在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1Click(    )Dim x As Integer,n As Integerx=1n=0Do While x<20x=x*3n=n+1LoopText1.Text=Str(x)Text2.Text=Str(n)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别是          (满分:5)
    A. 15和1
    B. 27和3
    C. 195和3
    D. 600和4
17.设置图片框pic1大小随所加载图像大小变化的正确语句是          (满分:5)
    A. pic1.autosize =true
    B. pic1.strech =true
    C. pic1.drawmode =1
    D. pic1. drawmode =2
18.为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为(    )          (满分:5)
    A. Get文件号，记录号，变量名
    B. Get文件号，变量名，记录号
    C. Put文件号，变量名，记录号
    D. Put文件号，记录号，变量名
19.把焦点移到某个指定的控件，所使用的方法是          (满分:5)
    A. SetFocus
    B. Visible
    C. Refresh
    D. GetFocus
20.列表框控件中的列表内容是通过(    )属性设置的          (满分:5)
    A. Name
    B. Caption
    C. List
    D. Text
更多免费学习资料请登录www.openhelp100.com