VB语言程序设计-在线作业-3

WORD格式-专业学习资料分享VB语言程序设计_在线作业_3一、单选题 ( 每题5分, 共20道小题, 总分值100分 )1.通过设置Line控件的什么属性，可以绘制虚线、点划线等多种样式的直线（  D  ）。(5分)· A. Style· B. DrawStyle· C. FillStyle· D. BorderStyle是否存疑2.在窗体上画两个单选按钮，名称分别为Option1和Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1，标题为“粗体”；一个文本框，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是（  C  ）。(5分)· A. Option1.Value = True    Check1.Value = False· B. Option1.Value = True Check1.Value = True· C. Option1.Value = True Check1.Value = 1· D. Option2.Value = False Check1.Value = True是否存疑3.下列可以把当前目录下的图形文件pic1.jpg装入图片框Picture1中的语句为（  A  ）。(5分)· A. Picture1. Picture = LoadPicture("pic1.jpg")· B. Picture.Handle = "pic1.jpg"· C. Picture = LoadPicture("pic1.jpg")· D. Picture = "pic1.jpg"是否存疑4.设a = 2，b = 3，c = 4，d = 5，下列表达式Not a <= c Or 4 * c = b 2 And b <> a + c的值是（  D  ）。  (5分)· A. 1· B. True· C. -1· D. False是否存疑5.假定有以下循环结构Do Until 条件       循环体Loop则正确的描述是（   C ）。(5分)· A. 如果“条件”是一个不为0的常数，则至少执行一次循环体· B. 不论“条件”是否为“真”，至少要执行一次循环体· C. 如果“条件”是一个为0的常数，则无限次执行循环体· D. 如果“条件”是一个为0的常数，则一次循环体也不执行是否存疑6.确定一个控件在窗体上的位置的属性是（  D  ）。  (5分)· A. Width和Height· B. Width或Height· C. Top或Left· D. Top和Left是否存疑7.在窗体上画两个名称分别为Label1和Label2的标签，然后编写如下事件过程：Private Sub Form_Click()    x = -5: s = -5    Select Case s        Case Is > 0            y = x + 1        Case Is >= 0            y = x + 2        Case Else            y = x + 3    End Select    Label1.Caption = x    Label2.Caption = yEnd Sub程序运行后，单击窗体，标签Label1和Label2中显示的内容分别是（  D  ）。(5分)· A. -5和-4· B. -5和-3· C. -5和-5· D. -5和-2是否存疑8.以下程序段的输出结果是（ B   ）。    a = Sqr(3)    b = Sqr(2)    c = a > b    Print c(5分)· A. -1· B. True· C. False· D. 0是否存疑9.阅读下面的程序：Function F(a As Integer)    Static c    b = 0    b = b + 1    c = c + 1    F = a + b + cEnd FunctionPrivate Sub Command1_Click()    Dim a As Integer    a = 2    For i = 1 To 3        Print F(a)    Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为（  C  ）。(5分)· A. 4 6 8· B. 4 4 4· C. 4 5 6· D. 4 7 9是否存疑10.对一个磁盘上的顺序文件进行读操作，打开方式为（  C  ）。(5分)· A. Random· B. Output· C. Input· D. Append是否存疑11.图像框控件有一个属性，可以自动调整图像框的大小，以适应图像的尺寸，这个属性是（ A   ）。(5分)· A. Stretch· B. Appearance· C. AutoRedraw· D. AutoSize是否存疑12.为了把窗体上的某个控件变为活动的，应执行的操作是（ D   ）。(5分)· A. 单击窗体的边框· B. 双击窗体· C. 双击该控件· D. 单击该控件的内部是否存疑13.下列可作为VB的变量名的是（  C  ）。(5分)· A. 3*Delta· B. AB· C. PrintChar· D. Abs是否存疑14.在显示菜单时，菜单的哪个属性为True时将用灰色显示该菜单项标题（  B  ）。(5分)· A. Visible· B. Enabled· C. Checked· D. Caption是否存疑15.下列程序段的执行结果为（  D  ）。    x = 2: y = 1    If x * y < 1 Then y = y - 1 Else y = y + 1    Print y - x > 0(5分)· A. -1· B. 1· C. True· D. False是否存疑16.对用MsgBox显示的消息框，以下叙述中错误的是（  B  ）。(5分)· A. 可以有两个按钮· B. 可以有任意多个按钮· C. 可以有一个按钮· D. 可以有三个按钮是否存疑17.阅读下面的程序：Sub subP(b() As Integer)    For i = 1 To 4        b(i) = 2 * i    Next iEnd SubPrivate Sub Command1_Click()    Dim a(1 To 4) As Integer    a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8    subP a()    For i = 1 To 4        Print a(i)    Next iEnd Sub运行上面的程序，单击命令按钮，输出结果为（  D  ）。(5分)· A. 程序出错· B. 5 6 7 8· C. 10     12 14 16· D. 2   4 6 8是否存疑18.阅读下面的程序：Private Sub Form_Click()    Dim Check, Counter    Check = True    Counter = 0    Do        Do While Counter < 20            Counter = Counter + 1            If Counter = 10 Then                Check = False                Exit Do            End If        Loop    Loop Until Check = False    Print Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为（ C   ）。(5分)· A. 15      0· B. 10      True· C. 10  False· D. 20  -1是否存疑19.当窗体最小化时缩小为一个图标，设置这个图标的属性是（  C  ）。(5分)· A. MousePoint· B. Picture· C. Icon· D. MouseIcon是否存疑20.使文本框获得焦点的方法是（  A  ）。(5分)· A. SetFocus· B. LostFocus· C. GotFocus· D. Change-