2020年程序设计语言VB习题集含答案精品版

1、精选文档程序设计语言VB课程习题集一、单选题1. Visual Basic是一种面向（D ）的程序设计语言。A.用户B.事件C.程序D.对象2 .在Visual Basic6.0中规定工程文件的扩展名是（ A）。A. vbpB. forC. frmD. bas3 . Visual Basic6.0中规定窗体文件的扩展名是（ B ）。A. forB. frmC. vbpD. bas4 .如何使一个标签或按钮控件在运行时不可用（C）。A.把它的Visible属性设置成 FalseB.把它的Visible属性设置成TrueC.把它的Enabled属性设置成FalseD.把它的Enabled属性设置成

2、 True5 .控件的字体可在属性窗口的（ A）属性中调整？A. FontB. ColorC. TextD. Caption6 .若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（C ）。A. ValueB. CancelC. DefaultD. Enabled7 .在VB中，记录对象数据的是（C）。A.方法8 .事件C.属性精选文档精选文档D.语句8.在文本框上显示文本的属性是（B）。A. ValueB. TextC. PrintD. Enabled9 . InputBox函数返回值的类型为（A）。A.字符串B.数值C.变体D.数值或字符串（视输入的数据而定）10 .设有语句：

3、a = InputBox（"请输入数值："，"输入示例","100”）程序执行后 若从键盘上输 入数值20并按回车键，则变量a的值是（A）。A.字符串"20"B.字符串"120"C.默认值100D.数值12011 .下列控件中可用于接受用户输入文本，又可用于显示文本的是（ B）。A. Label 控件B. TextBox 控件C. Timer 控件D. CommandButton 控件12.语句PRINT "25*4"的输出结果是（A）。A. 25*4B. "100"

4、;C. 100D.出现错误信息13 .只能用来显示字符信息的控件是（ B）。A.文本框B.标签框C.图片框D.图像框14 .下列可作为 Visual Basic变量名的是（D）。A. A%AB. 4AC. ?xyD. Stemp15.下列哪个符号不能作为VB中的变量名（D）。A. timefly精选文档精选文档B. pass4C. min4maxD. R816 .在窗体内声明的变量是（B）。A.局部变量B.模块变量C.公共变量D.任意变量17 .语句Dim x As Integer作用是：将x定义为（B）变量。A.单精度型B.整型C.布尔型D.字符型18 .在VB中，用Boolean来表示的数

5、据类型是（C）。A.长整型B.字符型C.布尔型D.单精度型19 .定义常量需要用到的关键字是（A）。A. ConstB. DimC. PrivateD. Public20.如果要处理3.1415类数据，使用的变量类型应该是（A）。A. SingleB. LongC. IntegerD. String21.表达式2*3A2+2*8/2+3人2 的值为（C）。A. 27B. 31C. 35D. 4222.数学表达式 XA2+3XY对应的VB算术表达式是（C）。A. X*2+3X*YB. X*X+3XYC. X*X+3*X*YD. X*X+3*XY23.在VB语言中，求余运算符是（B）。精选文档精选

6、文档A. %B. MODC. *D. /24.判断两个逻辑关系任一满足的逻辑运算是（ A）。A. OrB. AndC. NotD. Ok25.表达式 4+5 6 * 7 / 8 Mod 9 的值是（B）。A. 4B. 5C. 6D. 726.选拔身高T超过1.7米且体重 W小于60公斤的人，表示该条件的布尔表达式为（C）。A. T>=1.7 And W<=60B. T<=1.7 Or W>=60C. T>1.7 And W<60D. T>=1.7 Or W<60E. . VB中下列逻辑表达式书写正确的是（ A）。A. a>b and a&g

7、t;cB. a>b>cC. a<bD. aw 12228.设 x=4,y=8,z=7 ,表达式 x<y And （Not y>z） Or z<x 的值是（D ）。A. 1B. -1C. TRUED. FALSE29. Sqr（81）+Fix（3.6）的值是（A）。A. 12B. 7C. 8D. 930.把字符串“ 123”转换为数值123时应该使用的函数是（B）。A. StrB. ValC. LenD. Log精选文档精选文档31,表达式 Abs （-3） +int（3.14）的值为（B）。A. 5B. 6C. 0.14D. 6.1432. Int（Rnd

8、* 100）表示的是（C）范围内的一个整数。A. 0,100B. 1,99C. 0,99D. 1,10033. Len（ "Friend"）的值是（A）。A.6B.7C.8D.934. Int（-3.14）的值是（C）。A. -3B. -3.14C. -4D. 3.1435. Right （"banana” , 4 ）的值是（C）。A. baB. bananaC. nanaD. ban36.表达式 Mid（ "Hello"，2, 3）的值是（C）。A. “ll”B. “llo”C. “ell”D. “ello”37.语句 if 3*4>=

9、10 then a=1 else a=2 执行后，a 的值为（C ）。A. 12B. 10C. 1D. 238.语句If x=1 Then y=1,下列说法正确的是（ C）。A. x=1和y=1均为赋值语句B. x=1和y=1均为关系表达式C. x=1为关系表达式，y=1为赋值语句精选文档精选文档D. x=1为赋值语句，y=1为关系表达39.下面程序段中，（D）不是把两个数中的大值赋给变量Max。A. Max=IIf（x>y,x,y）B. If x>y Then Max=x Else Max=yC. Max=x : If y>=x Then Max=yD. If y>=

10、x Then Max=y Max=x40.在Select判断结构中，下面的表述中不正确的是（ B）。A. Case 1B. Case a > 5C. Case 3 To 6D. Case is <1041.由"Fo门=1 To 16 Step 3”决定的循环结构被执行（ C）次。A.4B.5C.6D.742 . Dim a（5, 5） As Long 定义的数组元素的个数是（ D）。A.10B.11C.25D.3643 .用于清空数组数据的关键字是（ A）。A. EraseB. LboundC. UboundD. Redim44 .下列关于 do while loop和d

11、o - loop while循环执行循环体次数的描述正确的是 （B）。A. do while 100P循环和do100P while循环至少都执行一次B. do while100P循环可能不执行，do100P while循环至少执行一次C. do while100P循环至少执行一次，do - - loop while循环可能不执行D. do while100P循环和do - loop while循环可能都不执行45 . For - Next语句属于程序基本结构中的（ B）。A.顺序结构B.循环结构C.分支结构D.选择结构46 .下列关于Exit For的说法，正确的是（D）。A.它可以退出任何

12、类型的循环精选文档精选文档B. 一个循环只能有一个Exit ForC,每个循环必须有 Exit ForD. Exit For本身是无条件退出循环47 .在Visual Basic代码窗口中，将某一条语句加以注释和说明时，应在语句前加（C）。A.,B.:C.,D. ?48 .为了将一个语句写在多行上所使用的行续接符是：（B）。A. &B. _C.,D. ：49 .在一个语句内写多条语句时，每个语句之间分隔符号是（C）。A.,B.；C.:D.,50 . Function过程的定义，不必须有的是（ B ）。A.过程的名称B.虚参C. End FunctionD.给过程赋值51 .下列过程调用

13、语句中，被调用的过程一定是Sub子过程的语句是（D）。A. Pro1（x）B. Print Pro2（x）C. x= Pro3（x）D. Call Pro4（x）52 . Sub过程与Function过程最根本的区别是（C）。A. Sub过程可以用 Call语句直接使用过程名调用，而 Function过程不可以B. Function过程可以有形参，Sub过程不可以C. Sub过程不能返回值，而 Function过程能返回值D.两种过程参数的传递方式不同53 .当拖动滚动条中的滚动块时，将触发滚动条的事件是（ D）。A. MoveB. SetFocusC. ScrollD. Change54.列

14、表项选择后得到的选中索引是指（ D）。精选文档精选文档A. ValueB. ListValueC. IndexD. Listindex55.定时器定时工作所触发的事件是(C)。A. Click()B. Change()C. Timer()D. Load()56.在图片框中加载图形(c:666.jpg)的方法是(A)。A. Loadpicture("c:666.jpg")B. Loadpicture()C. print("c:666.jpg")D. cls57 .以下关于VB列表框的叙述中(A)是错误的。A.可通过属性“Item”，返回列表框中的项目B.可

15、通过属性“ Text”，得到当前列表项中的内容C.可通过属性" Listindex ”返回当前选中的列表项的索引D.可通过属性" ListCount”返回列表框中项目的数目58 .为了把焦点移到某个指定控件，所使用的方法是(D)。A. GetFocusB. VisibleC. RefreshD. SetFocus59.为了隐藏一个窗体，所使用的方法为( C)。A. LoadB. ShowC. HideD. UnLoad60.如果窗体被遮挡，通过调用( B)方法，可以将其显示。A. HideB. ShowC. UnloadD. load61 . VB窗体设计器的主要功能是(A

16、)。A.建立用户界面B.画图C.编辑文字D.编写程序代码精选文档精选文档62 .窗体的（B）方法可以清除窗体上的图形与文本。A. printB. clsC. loadD. circle63.窗体没有（B ）属性。A. CaptionB. TextC. PictureD. Top64 .当一个工程有多个窗体时，其中的启动窗体是（ D ）。A.第一个添加的窗体B.最后一个添加的窗体C.启动VB时建立的窗体D.在工程属性对话框中指定的窗体65 .在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（C）。A.工程资源管理器窗口B.工具箱窗口C.代码窗口D.属性窗口66 .以下哪种属性或者方法可以重新

17、定义VB坐标系？ （ B ）A. ScaleMode 属性B. Scale 方法C. DrawWidth 和 DrawStyle 属性D. BorderWidth 和 BorderStyle 属性67 .指令 Circle （2000, 3000）, 2000, QBColor , 3.14/2, 3.14 将绘制以下哪种图形?（C ）A.圆B.椭圆C.扇形D.圆弧68 .使用Line方法时，参数B和F可以组合使用，下列组合中（ D ）是不允许的。A.不使用B和FB. BC. B 和 FD. F69.执行命令 Line （200, 200） - step （500, 500）后，Current

18、X = （ C ）。A. 200B. 500精选文档 精选文档C. 700D. 30070 .在Visual Basic中，以下选项中表示单击事件的是（ B）。A. KeyUpB. ClickC. ActivateD. Load71 .下面不属于键盘事件的是（ D）。A. KeyUpB. KeyDownC. KeyPressD. Click72 .每当窗体失去焦点时会触发的事件是（ D）。A. ActiveB. DeactiveC. LostFocusD. Initialize73 .设在窗体上有一通用对话框控件Commonialog1 ,通过调用（C）语句可以建立"颜色"

19、对话框。A. Commonialog1.ShowOpenB. Commonialog1.Action=2C. Commonialog1.ShowColorD. Commonialog1.Action=574 .用语句Commonialog1.ShowOpen建立了 "打开”对话框以后，要得到用户所选择文 件的路径及文件名，应使用Commonialog1的（C ）。A. DialogTitle 属性B. FileTitles 属性C. FileName 属性D. InitDir 属性75 .用于显示弹出式菜单的方法名是（D ）。A. ShowOpenB. ShowMenuC. Show

20、PopupD. PopupMenu76 .打开菜单编辑器的快捷键是（C）。A. CTRL+FB. Alt+FC. CTRL+ED. Alt+E精选文档精选文档77 .下列叙述中，错误的是（ A）。A.顺序文件打开后，既可以读又可以写B.随机文件打开后，既可以读又可以写C.顺序文件打开后，只能读或者只能写D.顺序文件和随机文件的打开都使用Open语句78. VB编程中顺序文件的处理将用到关键字是（C）。A. FileB. SaveC. OpenD. Disk二、填空题179. Private Sub Command1_Click()a=3b=1For i=1 To 3f=a + ba=bb=fN

21、ext iPrint fEnd Sub以上程序段运行后，f的结果为_9。80. 设有如下通用过程：Public Sub fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFor i = 1 To 5arr(i) = 2* iNextfun arr, n精选文档精选文档Textl.Te

22、xt = Str(n)End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是_3081 .阅读下列程序段Option ExplicitPrivate Sub Command1_Click()Dim str1 As StringDim str2 As Stringstr1 = "ABCDEFG”MySub str1, str2Print str2End SubPrivate Sub MySub(ByVal a As String, b As String)Dim c As StringDim i As IntegerFor i = Len(a) To 1 Step -1c =

23、 c+ Mid(a, i, 1)Nextb= cEnd Sub程序运行后，“print”语句的输出结果是 GFEDCBA _。82 .在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = Int(Rnd) + 6If x A 2 > 25 Then y = x A 2 + 5xi = Int(Rnd) + 4If x a 2 < 25 Then y = x a 2xii = Int(Rnd) + 5If x a 2 = 25 Then y = x a 2 - 5Print yEnd Sub程序运行后，单击命令按钮，其输出结果为

24、_20_。83 .阅读下列程序段Private Sub Command3_Click()Print pl(3, 6)End SubPublic Function pl(x As Single, n As Integer) As SingleIf n = 0 Then精选文档 精选文档pl = 1ElseIf n Mod 2 = 1 Thenpl = x * x + nElsepl = x * x - nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的结果是3.84 .阅读下列程序段Private Sub Command2_Click()Fori = 1

25、To 3x = 1Forj = 1 To 3x = 3 + jFor k = 1 To 3x = x + 3Next kNext jNext iPrint xEnd Sub运行程序后，单击命令按钮，输出结果是15。85 .阅读下列程序段Private Sub Command1_Click()Dim i As IntegerDim k As Integer k = 0For i = 0 To 10k = k + 1i = i + kNextPrint k; iEnd Sub请问其循环体共执行了4次，i的值是 14 。86 . Private Sub Command1_Click()Dim i A

26、s IntegerDim x As Integer精选文档精选文档i = 1x = 2Do i = i + 1 x = x + iLoop Until i >= 7Print i , xEnd Sub单击命令按钮后，i和x的值分别是7、29。87 .下面程序运行后，a、b、c、d的结果分别3、1、5、12Private Sub Command1_Click()Dim a, b, c, d As Integer DoFor a = 1 To 2 b = b + 1 If a = 1 Then b = 0 c = 5 d = d + 2Next aLoop Until d > 10Pr

27、int a, b, c, dEnd Sub88 .假定有如下的Sub过程：Sub S(x As Single, y As Single) t = x x = t + x y = t - yEnd SubPrivate Sub Command2_Click() Dim a As Single, b As Single a = 6 b = 4Call S(a, b)Print a, bEnd Sub程序运行后，单击命令按钮输出结果为12、2。89 .阅读下列程序段Dim a(3, 3) As Integer精选文档精选文档For m = 1 To 3For n = 1 To 3a(m, n) =

28、(m - 1) * 3 + nNext nNext mFor m = 2 To 3For n = 1 To 2Print a(m, n);Next nNext m4、5、7、8。程序运行后，显示结果为:三、综合设计题90 .编制程序实现：在窗体上，单击按钮1,在文本框中动态显示当前时间；单击按钮2,则停止动态显示；单击按钮3,清除文本框内容。提示：可用定时器控制时间，用系统函数 Now 显示时间（如 Text1.Text = Now）。91 .编制程序：求出100-200之间所有可以被3整除的数的总和，将结果用消息框显示输 出。92 .编制程序：利用输入框输入10个不同的整数，将它们从小到大排

29、序，并打印输出。93 .编制程序实现：设计在一框架中包含三个复选框，只有当其 1,3选中而2未选中时， 才在Text1中显示"Hello"字符。94 .编一程序能实现在窗体上打印出如下图所示的图形。AAAAAAAAAAAAAAAABBBBBBBBBBBBBBBB95 .编一程序用于判断一正整数是否为素数。（提示：只能被1和本身整除的正整数称为素数。为了判断一个数 n是不是素数，可以将 n被2到sqr（n）之间的所有整数除，如果都 除不尽，则n就是素数，否则n是非素数。）96 .选用If和Select判断结构中任意一种编写满足下列条件的计税要求的程序：少于1600元，免税；1

30、601-5000元，征2%的税；多于5000元，超过部分征 5%的税。97 .有a、b、c三个数，编一程序实现通过文本框给a、b赋值；再调用能完成 a、b比较大小的子过程，用 c将大数回传。要求按值传送 a bo精选文档 精选文档98 .编一程序用于求所有的"水仙花数"。所谓"水仙花数”是指一个3位数，其各位数字立 方和等于该数本身。例如：153就是一水仙花数，因为 153 = 13+53+33。99 .设计一弹出式菜单，用于设置窗体的背景色，背景色包含白色、黄色、红色三种颜色。100 .编写程序实现：输入三角形的三条边a,b,c的值，根据其数值判断能否构成三角形

31、。如果能，则判断三角形是否是直角三角形，若是则计算该直角三角形的面积。提示：判断能否构成三角形的方法是，求最长的一边，判断它的边长是否小于另外两边边长之和；或求最短的一边，判断它的边长是否大于另外两边之差。101 .编写程序：通过四个命令按钮Command1-Command4 ,在图片框 Picture1内分别实现画点、画线、画圆、擦除等功能。102 .编写程序实现：在窗体上单击按钮1,可通过输入对话框输入两个字符串；单击按钮2,将输入的两个字符串连接为一个字符串，并计算该字符串长度，然后在消息框中显不出来。103 .编一程序：用三个文本框分别输入a、b、c,求一元二次方程 ax2+bx+c=

32、0的解x1和x2,只包括实根。104 .编一程序：利用输入对话框输入两个正整数，求最大公约数。四、简答题（略）答案三、综合设计题90. Private Sub Command1_Click()Timer1.Interval = 5Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click()Timer1.Enabled = FalseText1.Text =""精选文档精选文档End SubPrivate Sub

33、 Timer1_Timer() Textl.Text = NowEnd Sub91. Private Sub Command1_Click()Dim i, s As IntegerFor i = 100 To 200If i Mod 3 = 0 Then s = s + iNext iMsgBox ("100-200之间所有可以被 3整除的数的总和为："& Str(s) End Sub92. Private Sub Command1_Click()Dim a(9) , i, j, m As IntegerFori = 0 To 9a(i) = Val(InputBo

34、x("第"& i + 1 & "个数：") Next iFori = 0 To 9For j = i + 1 To 9If a(i) > a(j) Then m = a(i) a(i) = a(j) a(j) = mEnd IfNext jNext iFori = 0 To 9Print a(i);Next iEnd Sub93. Private Sub Command1_Click()If Check1.Value = 1 And Check2.Value = 1 And Check3.Value = 0 ThenText1.Te

35、xt = "Hello"End IfEnd Sub94. Private Sub Command1_Click()Dim i, j As IntegerFor i = 1 To 4For j = 1 To (2 * i - 1) Print "A"精选文档精选文档Next jPrintNext iFor i = 4 To 1 Step -1For j = (2 * i - 1) To 1 Step -1Print "B"Next jPrintNext iEnd Sub95. Private Sub Command4_Click()Di

36、m n, k, i, temp As Integer n = InputBox("请输入一个正整数 ") k = Int(Sqr(n)1 = 2temp = 0Do While i <= k And temp = 0If n Mod i = 0 Thentemp = 1Else1 = i + 1End IfLoopIf temp = 0 ThenPrint n;"是一个素数"ElsePrint n;"不是素数"End IfEnd Sub96. Private Sub Command1_Click()Dim n, p As Sin

37、glen = Val(Text1.Text)Select Case nCase Is <= 1600 p = 0Case 1600 To 5000p = (n - 1600) * 0.02Case Elsep = 5000 * 0.02 + (n - 5000) * 0.05精选文档精选文档End SelectEnd Sub97. Private Sub c1(ByVal a As Single, ByVal b As Single, c) If a > b Then c = a Else c = bEnd SubPrivate Sub Command1_Click()Dim a,

38、 b, c As Singlea = Val(Text1.Text)b = Val(Text2.Text)Call c1(a, b, c)Print cEnd Sub98. Private Sub Command1_Click()Dim a, b, c, n As IntegerFor n = 100 To 999a = Int(n / 100)b = Int(n - a *100) / 10)c = n - (a * 100 + b * 10)If n = a A 3 + b A 3 + c A 3 Then Print n;NextEnd Sub99. Private Sub Form_M

39、ouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then PopupMenu MenuAEnd IfEnd SubPrivate Sub B_Click(Index As Integer)Select Case IndexCase 1Form1.BackColor = vbWhiteCase 2Form1.BackColor = vbYellowCase ElseForm1.BackColor = vbRedEnd SelectEnd Sub精选文档精选文档100. Private Sub Command1_Click()Dim a(2), i, j, m As IntegerFori = 0 To 2a(i) = Val(InputBox("第"& i + 1 & "条边为：")Next iFor i = 0 To 2For j = i + 1 To 2If a(i) > a(j) Thenm = a(i)a(i) = a(j)a(j) = mEnd IfNext jNext iIf a(0