东北大学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 Sub  Function 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