VB语言程序设计在线作业(共11页).doc
精选优质文档-倾情为你奉上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专心-专注-专业
