1、vb练习题有答案打印大学Visaul Basic程序设计复习题第一章 Visual Basic程序设计概述第一题：是非题（共10分，每项1分）1. VB6.0只能运行在Windows 2000下，不能运行在Windows 98下。13 A.对 B.错2. 用户控件和系统控件都可以加载到工具箱上，并且永久保留。4A.对 B.错第二题、 单选题（共45分，每项1.5分）1. VB中的工具栏可以从_菜单上的“工具栏”命令中移进或移出。15 A.工具 B.编辑 C.视图 D.调试2. 在VB的集成环境中创建VB应用程序时，除了工具箱窗口、窗体设计窗口、属性窗口外，必不可少的窗口是_。2 A.窗体布局窗
2、口 B.立即窗口 C.代码窗口 D.监视窗口第二章 VB的编程机制第一题：是非题（共10分，每项1分）1. 在事件驱动的应用程序中，代码是按照预定的路径执行的。15 A.对 B.错2. 标签控件即可以用来显示用户不能编辑和修改的文本，也可以用来编辑和修改文本。9 A.对 B.错3. 每一个控件实质上都是一个微型程序。2 A.对 B.错4. 窗体上的控件同样可以借助于剪贴板进行剪切、复制和粘贴。 A.对 B.错第二题、 单选题（共45分，每项1.5分）1. 文本框没有_属性。21 A.Enabled B.Visible C.BackColor D.Caption2. 文本框（Text1）中有选定
3、的文本，执行 Text1.SelText=”Hello”的结果是。9 A.“Hello”将替换掉原来选定的文本 B.“Hello”将插入到原来选定的文本之前 C.Text1.SelLength为5 D.文本框中只有“Hello”3. 要判断“命令按钮”是否被鼠标单击，应在“命令按钮”的_事件中判断。3 A.Chang B.KeyDown C.Click D.KeyPress4. 如果文本框的Enabled属性设为 False，则。6 A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容C.文本框的文本
4、将变成灰色，用户仍然能改变文本框中的内容 D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容第三题、 简单程序（共15分，每项1.5分）1. 以下程序的输出结果是_。 2 Private Sub Command1_Click() Dim x As Single x=0.000000075 Print x End Sub A.0.000000075 B.000000075 C.7.5E-8 D.7.5E-082. 在窗体中添加Command1和Command2两个命令按钮来测验文本框Text1的值，然后编写如下代码：4 Private Sub Command1_Cli
5、ck() Text1.Text = AB End Sub Private Sub Command2_Click() Text1.Text = CD End Sub 首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示_。 A.AB B.CD C.ABCD D.CDAB第二卷 主观题填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！）1. 下列程序段的运行结果。2 Private Sub Form_Click() Form1.CurrentX=500 Form1.CurrentY=500 Form1.Print ”您好！” E
6、nd Sub A.在距离窗体左边框500单位处，显示“您好” B.在距离窗体标题栏500单位处，显示“您好” C.在窗体的中心处，显示“您好” D.在距离窗体左边框和标题栏500单位处，显示“您好” 第三章 Visual_Basic语言基础第一题：是非题（共10分，每项1分）1. 一条Visual Basic语句如果不超过80个字符是不能运行的。3 A.对 B.错2. 以Rem开头的注释可以直接出现在语句后面。1 A.对 B.错3. 变量名是以字母或汉字开头，由字母、汉字、数字或下划线组成，长度可以任意的字符序列。9 A.对 B.错4. 逻辑型数据的值只有True与False两个值，非零为Tr
7、ue，0为False。2 A.对 B.错5. 是一个字符串，而不是一个字符串。7 A.对 B.错6. 表达式 “ab” & 34的结果是 “ab34”。5 A.对 B.错7. 用Dim语句声明变量时，VB系统不仅为变量分配相应数据类型的内在空间，而且还为变量赋所需的初值。8 A.对 B.错8. 在VB系统中，没有用Dim语句声明的变量不能使用，因为它没有数据类型。8 A.对 B.错9. 在程序运行过程中，变量中的值不会改变，而常量中的值会被改变。7 A.对 B.错10. 用Const语句定义的符号常量的名字必须用大写字母构成。4 A.对 B.错11. 函数Mid(abc123,3,3)的返回值
8、为c12。 A.对 B.错12. 在VB中，运算符“/”与“”都是除法运算符，所以表达式5/2与52的结果一样。 A.对 B.错第二题、 单选题（共45分，每项1.5分）1. 在下列表达式中，非法的是_。8 A.a=b+c B.ab+c C.abc D.a4 And 7=5的返回值为_。12 A.0 B.True C.-1 D.False4. 表达式Int(23.4)+Round(-35.5)的计算结果为_。16 A.-11 B.-12.1 C.-13 D.-12.55. Integer类型的数据由_字节组成。16 A.1 B.2 C.3 D.46. 在Visual Basic中，用于获得字符
9、串S最左边4个字符的函数是_。7 A.Left(S,4) B.Left(1,4) C.LeftStr(S) D.LeftStr(S,4)7. 以下_不能作为VB中的变量名。12 A.Abx45 B.P1234 C.89TasFF D.xy8. 下面四项中，_是VB中的数值变量。6 A.ABC B.E+2 C.True D.1.35E-29. 表达式a+b=c是_。6 A.赋值表达式 B.字符表达式 C.算术表达式 D.关系表达式10. 下列四个字符串进行比较，最小的是_。9 A.9977 B.B123 C.BASE D.DATA11. 在Visual Basic中，语句Print 39的输出结
10、果为_。14 A.0 B.1 C.-1 D.False12. 语句Print Format(HELLO, yz的正确VB逻辑表达式是_。12 A.xy And yz C.xy And z D.xy And yz19. 函数Int(Rnd*11)+10产生的数值的范围是_。8 A.（0,10） B.10,10 C.10,20 D.(0,20)20. 下列逻辑表达式中，其值为真的是_。4 A.bABC B.THATTHE C.9H D.Aa第三题、 简单程序（共15分，每项1.5分）1. 以下程序的输出结果是_。12 Private Sub Command1_Click() a=1234 b$=S
11、tr$(a) c=Len(Trim(b) print c;LenB(b) End Sub A.3 8 B.4 10 C.5 10 D.4 82. 以下程序的输出结果是_。12 Private Sub Command1_Click() Dim sum As Integer sum%=19 sum=2.32 Print sum%,sum End Sub A.19 2.32 B.19 19 C.2.32 2.32 D.2 23. 执行下面程序段后，变量c$的值为_。7 a$= Visual Basic Programming b$= Quick c$=b$ & Ucase(Mid$(a$,7,6)
12、& Right$(a$,12) A.Visual BASIC Programming B.Quick Basic Programming C.QUICK Basic Programming D.Quick BASIC Programming4. 以下程序的输出结果是_。6 Private Sub Command1_Click() a=ABCD b=efgh c=Lcase(a) d=Ucase(b) Print c+d End Sub A.abcdEFGH B.abcdefgh C.ABCDefgh D.ABCDEFGH5. 下面程序运行后，输出的结果为_。8 Private Sub Comm
13、and1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai” C$=Instr(Left(A$,2)+Right$(B$,2),C$) Print C$ End Sub A.10 B.0 C.8 D.6第四章 控制结构第二题、 单选题（共45分，每项1.5分）1. If结构的结束语句是_。5 A.End Select B.End Sub C.End If D.End Do2. InputBox函数的返回值的类型为_。4 A.数值 B.字符串 C.逻辑值 D.日期值3. MsgBox函数的返回值的类型为_。5 A.整数 B.字符串 C.逻辑值 D.日期
14、值4. 通过代码在运行时设置属性的语法格式为_。14A.对象名属性 .新值 B.对象名.属性新值C.对象名.新值=属性 .新值 D.对象名.属性=属性 .新值第三题、 简单程序（共15分，每项1.5分）1. 从键盘输入一个实数mm，利用字符串函数对输入的数进行处理，如果输出的内容不是字符则输出“END“，程序的输出结果是_。11 Private Sub Command1_Click() mm=Val(InputBox(请输入一个实数) n$=Str$(mm) p=InStr(n, .) InStr()函数：指定一字符串在另一字符串中最先出现的位置 If p0 Then Print Mid(n,
15、p) Mid 语句来得到某个字符串中的几个字符 Else Print END End If End Sub A.用字符方式输出数据mm B.输出数据的整数部分 C.输出数据的小数部分 D.只去掉数据部分的小数点，保留所有数码输出2. 运行下面程序后，在弹出的消息窗口中显示的是_。7 Private Sub Form_Click() score=Int(Rnd)+5 当参数为负数时，Int 函数返回小于或等于该参数之最大整数，rem 而 Fix 函数则返回大于或等于该参数之最小整数。 Select Case score Case 5 a$=Good Case 4 a$=Ok Case 3 a$=
16、Pass Case Else a$=Bad End Select MsgBox a$ End Sub A.Bad B.Pass C.Ok D.Good3. 以下程序的输出结果是_。8 Private Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a100 print a End Sub A.100 B.120 C.201 D.1014. 以下程序的循环次数是_。11 Private Sub Command1_Click() For j=8 To 35 Step 3 Print j; Next j End Sub A.10 int(35
17、-8)/3+1 B.9 C.27 D.285. 执行下面程序段后，变量a的值为_。20 For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A.3 B.9 C.14 D.216. 执行下面程序段后，变量x的值为_。20 x=5 For I=1 To 20 step 2 x=x+I5 Next I A.21 B.22 C.23 D.247. 当输入4时，以下程序的输出结果是_。7 Private Sub Command1_Click() x=InputBox(x) If x215 Then y=x2+1 Print
18、y End Sub A.4 B.17 C.18 D.0.258. 运行下面程序后，在弹出的消息窗口中显示的是_。3 Private Sub Form_Click() Dim counter counter=0 While counter20 counter=counter+1 Wend MsgBox counter End Sub A.0 B.21 C.20 D.199. 运行下面程序后，在窗体中显示的是_。4 Private Sub Form_Click() a$=*: b$=$ For k=1 To 3 x$=String$(Len(a$)+k,b$) 指定长度重复字符的字符串。 Prin
19、t x$; Next k Print End Sub A.、* * * B.*$*$*$ C.1*$2*$3*$ D.、$10. 下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为_。7 Private Sub Command1_Click() x=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub A.1和0 B.2和72 C.3和50 D.4和16811. 执行下面的程序段后，I的值为_。3 s = 2 For I = 3.2 To 4.9 Step 0.8 s =
20、s + 1 Next I A.6.4 B.5.6 C.4.8 D.7.212. 执行下面的程序段后，变量S的值为_。3 S5 For I 2.6 To 4.9 Step 0.6 S=S+1 Next I A.7 B.8 C.9 D.1013. 在窗体中添加一个文本框（其中Name属性为Text1）,然后编写如下代码：2 Private Sub Form_click() Text1.Text = Text1.SetFocus For I = 1 To 10 Sum = Sum + I Next I Text1.Text = Sum End Sub 上述程序运行后，单击窗体，则运行的结果_。 A.
21、在文本框Text1中输出55 B.在文本框Text1中输出0 C.出错 D.在文本框Text1中输出不定值14. 运行下面程序后，在弹出的消息窗口中显示的是_。2 Private Sub Form_Click() k=0 Do While k70 k=k+2 k=k*k+k a=a+k Loop MsgBox a End Sub A.64 B.72 C.78 D.148第二卷 主观题填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！）1. 请用正确的内容填空。以下程序找出50以内所有能构成直角三角形的整数组。14 Private Sub Form_
22、Click() For x=1 To 50 For y=x To 50 z=Sqr(x*x+y*y) If z = 50 And z=Int(z) Then Print x; y; z z是小于50的整数吗 Next y Next x Print End Sub2. 在窗体上画一个名称为Commandl的命令按钮，编写如下事件过程 2 Private Sub Command1_C1ick() Dim a As String a= “123456789” For I 1 To 5 Print Spc(6-I)；Mid$(a，6-I，2*I-1) Next I End Sub 程序运行后，单击命令
23、按钮，要求窗体上显示的输出结果为 5 456 34567 2345678 123456789 请填空。3. 请用正确的内容填空。下面程序运行后，输出的结果是： * * * * Private Sub Form_Click() For I=1 To 4 Print Tab(10+I); For j=1 To 8 Print *; Next j Print Next I End Sub4. 请用正确的内容填空。以下程序的功能是统计字符串a中出现字符串b的次数，然后输出。 Private Sub Form_Click() a$=ABCDEHGABCDEFABCDEABCDABCABA b$=AB c
24、=InStr(a$, b$) x=0 While c0 x=x+1 a$=Mid$(a$, c+2) c=InStr(a$,b$) Wend Print x End Sub5. 下面程序运行时，内层循环的循环总次数是_6_。9 For m = 1 To 3 For n = 0 To m - 1 Next n Next m6. 执行下面的程序段后，s的值为_7_。14 Private Sub Form_Click() Static s As Integer s = 5 For I = 1.4 To 2.1 Step 0.6 s = s + 1 Next I Print sEnd Sub7. 以下
25、程序的功能是：生成20个200到300之间的随机整数，输出数的位置能被5整除的数并求出它们的和。请填空。 14 Private Sub Commandl_C1ick() For I1 To 20 xInt( rnd*100+200) If I Mod 5 0 Then Print x SS+ x End If Next I Print Sum;S End Sub8. 执行下面的程序段后，X的值为_8_。3 X=5 For I=1 to 10 Step 2 X=X+I5 Next I9. 请用正确的内容填空。7 下面程序的作用是利用随机函数产生10个(1200)之间的随机整数，打印其中7的整数倍
26、的数并求其和。 Private Sub Form_Click() For I=1 To 10 x=Int(Rnd*200+1) If (x mod 7) = 0 Then k1=k1+x Print x End If Next I Print Print k1=;k1 End Sub10. 请用正确的内容填空。8 下面程序的功能是通过InputBox对话框接受一个 二进制数，并把它转换成一个十进制数，结果显示在窗体中。 Private Sub Form_Click() b=InputBox(请输入一个二进制数) m=Len(b) For j= 1 to m dec=dec*2+ val(Mid(b,j,1) Next j Print b;转换后的十进制数为：;dec End Sub11. 在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），单击命令按钮，在两个文本框Text1和Text2中分别显示的值是N和X,完成程序。2 Private Sub Command1_Click
