《一VB程序设计基础练习题库(17页).doc》由会员分享，可在线阅读，更多相关《一VB程序设计基础练习题库(17页).doc（17页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、-一、 单选题（共15小题，每小题2分，共30分） 1. 以下叙述中，错误的是（B ）。A) 在Visual Basic中，对象所能响应的事件是由系统定义的B) 对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定C) Visual Basic中允许不同对象使用相同名称的方法D) Visual Basic中的对象具有自己的属性和方法2. 下列叙述中，错误的是（ C ）。A、VB是可视化程序设计语言B、VB采用事件驱动编程机制C、VB是面向过程(对象)的程序设计语言D、VB应用程序可以以编译方式执行3. 下列（ A ）是合法的变量名。A、x_y （合法变量名以字母或下划线头） B、x-y
2、 C、2x D、and4. 选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（ C ）。A、T=1.7 And W=62.5 B、T=62.5C、T1.7 And W=1.7 Or W62.55. 设a=”Visual Basic”，下面使b=”Basic”的语句是（ B ）A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 取字符串a第8个字符开始的5个6. 如果x小于y的平方，则在窗体上输出“OK”。完成该要求的单行条件语句是（ C ）。A、If x y 2 Then OK B、If
3、x y 2 Then Show OKC、If x y 2 Then Print OK D、f x y,x,y) B、if xy Then Max=x Else Max=yC、Max=x D、if y=x Then Max=y（Else） If y=x Then Max=y Max=x9. 以下条件语句错误的是（ A ）。A、If X Then Y = Y + 1 B、If X = 0 Then Y = 0C、If X 0 Then Y = 1: Print Y D、If X Y Then Print Y End If10. 若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性
4、窗口中设置（ D ）。A、Text属性值为* B、Caption属性值为*C、Password属性值为空D、PasswordChar属性值为*11. 设置标签Label1的属性使它不可见的语句是（ D ）。A、Label1.Visible = -1 B、Label1.Visible = 1C、Label1.Visible = true D、Label1.Visible = False 12. 修改控件属性，既可以使用属性窗口，也可以通过（ D ）为控件属性赋值。A、属性 B、事件 C、方法 D、代码13. 在程序代码中引用一个控件时，应使用控件的（ B ）属性。A）Caption B）Name
5、 C）Text D）Index14. 若要获得列表框中被选中的列表框的内容，可以通过访问（ B ）属性来实现。A）Name B）ListIndex C）ListCount D）Text15. 以下叙述中正确的是（ B ）。 16. A一个 Sub 过程至少要一个 Exit Sub 语句 （）B一个 Sub 过程必须有一个 End Sub 语句 C可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程 D调用一个 Function 过程可以获得多个返回值 得分二、 填空题（共8空，每空2分，共16分）1. InputBox函数返回值的类型为 string 。2. 与事件
6、相关的一段程序代码称为 事件过程代码 。3. 循环语句FOR k=2 TO 30 STEP 5 使循环体执行的次数是 6 。 4. 可表示50,100之间的随机数的语句是 int(rnd*51+50) 。5. Print方法分区输出时，用 逗号 分隔多个表达式。当输出多个表达式或字符串时，各表达式用分隔符(逗号、分号或空格)隔开。如果输出的各表达式之间用逗号分隔，则按标准输出格式(分区输出格式)显示数据项。6. 强制性退出ForNext循环的语句是 exit for 。7. 当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的 caption 属性设置
7、成空白。8. 为了把焦点移到某个指定的控件，所使用的方法是 setfocus 。得分三、 基本操作题（共2小题，每小题10分，共20分）1打开工程文件A3-1.vbp，完成以下操作，并以原文件名保存。 P651 设置窗体运行后出现在屏幕中心；（2分）2 设置口令的长度小于等于6；（3分）3 设置输入的口令以“*”显示；（3分）4 设置“确定”按钮为缺省按钮。（2分）2打开工程文件A3-2.vbp，完成以下操作，并以原文件名保存。 P1111 在文本框中输入课程名称，单击“添加”按钮，将该课程添加到列表框中，并清文本框的内容；（3分）2 选中列表框某课程，单击“删除”按钮，将选中的课程从列表框中
8、删除；（4分）3 单击“清除”按钮，清除列表框中的所有课程。（3分）得分四、 程序填空（共4小题，每小题2空，每空3分，共24分）说明：打开已有的工程文件，根据要求实现的功能，在“?”处用相应的代码代替（不得删除原有的代码，必须在?处填写），使程序能正常运行。1 打开考试目录下的“A4-1.vbp”，完善程序并保存。要求：（1） 圆的半径r利用InputBox函数从键盘输入（r0）。（2） 圆周率定义为符号常量。（3） 求圆的周长lenth和面积area。（4） 用Print方法输出圆的周长和面积。原程序：Private Sub Command1_Click() Dim r As Single
9、 Dim lenth As Single, area As Single Const ? PI=3.14159 r = ? Val(InputBox(“圆的半径”,0) lenth = 2 * PI * r area = PI * r * r Print 半径=; r, 周长=; lenth, 面积=; areaEnd Sub2 打开考试目录下的“A4-2.vbp”，完善程序并保存。要求实现功能：利用Do WhileLoop语句求s=12+22+1002。（运行效果如下图所示）。原程序：Private Sub Command1_Click() Dim n As Integer, s As Lo
10、ng n = 1: s = 0 Do While ? n101 s = ? s+n*n n = n + 1 Loop Print s=; sEnd Sub3 打开考试目录下的“A4-3.vbp”，完善程序并保存。已知计算机等级考试的百分制成绩mark，要求用Select Case语句将百分制成绩mark转换成对应五级制的评定grade。评定条件如下：mark85，优60mark85，合格mark =85 grade = 优 Case 60 To 84 grade = 合格 ? Case Is0 If x amax Then amax = x End If If ? x max Then max
11、 = a(i)If a(i) n1 Then 为了求最小公倍数，增加m,n变量m = m1: n = n1Elsem = n1: n = m1End IfDor = m Mod nIf r = 0 Then Exit Dom = nn = rLoopPrint n1; ,; m1; 的最大公约数为; nPrint 最小公倍数=, m1 * n1 / nEnd Sub7.求逆序数（感觉题目类型太多）8. 级数有限项求和问题（题目类型太多）9. 求质因子问题Private Sub Command1_Click()Dim N As Integer, I As IntegerN = Val(Input
12、Box(请输入2的整数:)I = 2DoIf N Mod I = 0 ThenPrint I;N = N IElseI = I 1End IfLoop While N 1End Sub10. 字符统计Option Base1Option ExplicitPrivate Sub Command1_Click()Dim i as integer，A(26) as integer，n as integerDim S as string*1,Strl as stringStrl=Text1n=Len(Strl)For i=1 To nS=Mid(Strl,i,1)If UCase(S)=”A” And
13、 UCase(S)=”Z” ThenA(Asc(UCase(S)-64)+1End IfNext iFor i=1 To 26List1.Additem Chr(64+i) & “:” & A(i)Netx iEnd SubPrivate Sub Command_Click()EndEnd Sub第二大题1. 判定素数过程Function isprime(Num As Long) As BooleanIf Num = B, A, B) x存入最大值Y = IIf(A a(j) Thent = a(j - 1)a(j - 1) = a(j)a(j) = tEnd IfNextNextEnd Sub4顺序查找过程Private Sub Command1_Click()Dim i, j, t, a(1 To 10)RandomizePrint 原数组:For i = 1 To 10a(i) = Rnd * 10Print a( & i & ) = & a(i) & Space(2),If i Mod 2 = 0 Then PrintNext iPrintFor i = 1 To 9For j = i + 1 To 10If a(j) a(i) Thent = a(i)a(i -第 17 页-