VB语言程序设计在线作业

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 = -5Select Case sCase Is 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectLabel1.Caption = xLabel2.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 bPrint c(5分) A.-1 B.True C.False D.0是否存疑9.阅读下面的程序：Function F(a As Integer)Static cb = 0b = b + 1c = c + 1F = a + b + cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera = 2For i = 1 To 3Print 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 = 1If x * y 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 4b(i) = 2 * iNext iEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8subP a()For i = 1 To 4Print 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, CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后，单击窗体，输出结果为（C）。(5分) A.15 0 B.10 True C.10 False D.20 -1是否存疑19.当窗体