《VB语言程序设计在线作业(共11页).doc》由会员分享,可在线阅读,更多相关《VB语言程序设计在线作业(共11页).doc(11页珍藏版)》请在淘文阁 - 分享文档赚钱的网站上搜索。
1、精选优质文档-倾情为你奉上VB语言程序设计_在线作业_3一、单选题(每题5分,共20道小题,总分值100分)1.通过设置Line控件的什么属性,可以绘制虚线、点划线等多种样式的直线(D)。(5分) A.Style B.DrawStyle C.FillStyle D.BorderStyle是否存疑2.在窗体上画两个单选按钮,名称分别为Option1和Option2,标题分别为“宋体”和“黑体”;一个复选框,名称为Check1,标题为“粗体”;一个文本框,名称为Text1,Text属性为“改变文字字体”。要求程序运行时,“宋体”单选按钮和“粗体”复选框被选中,则能够实现上述要求的语句序列是(C)。
2、(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.j
3、pg 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.如果“条
4、件”是一个为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
5、= 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 I
6、ntegera = 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.为了把窗体上的某个控件变为
7、活动的,应执行的操作是(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显示的消息框,以下叙
8、述中错误的是(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.
9、程序出错 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.当窗体最小化时缩小为一个图标,设置这个图标的属性是(C)。(5分) A.MousePoint B.Picture C.Icon D.MouseIcon是否存疑20.使文本框获得焦点的方法是(A)。(5分) A.SetFocus B.LostFocus C.GotFocus D.Change专心-专注-专业
限制150内