《VB总复习.doc》由会员分享，可在线阅读，更多相关《VB总复习.doc（15页珍藏版）》请在三一办公上搜索。
1、1. 编写如下代码：Private Sub Form_Click( )Dim a,b,c as stringA=“你好”B=“北京”C=b & “,”& aPrint cEnd Sub单击窗体后输出结果为 。2. 读程序Function F(a As Integer) Dim b As Integer Static c As Integer b = b + 3 c = c + 3 F = a + b + cEnd FunctionPrivate Sub Command1_Click() Dim a As Integer a = 5 For i = 1 To 3 Print F(a) Next
2、iEnd Sub写出程序运行时，单击命令按钮在窗体上的输出结果。3. 读程序Sub Change(ByVal x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = t Print x, yEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 4: b = 8Change a, b Print a, bEnd Sub写出程序运行时单击窗体后，输出结果为： 4. 读程序Sub Change(ByVal x As Integer, y As
3、Integer) Dim t As Integer t = x x = y y = t Print x, yEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20Change a, bPrint a, bEnd Sub写出程序运行时单击窗体后，Form1上的输出结果。5. 读程序Private Sub Form_Click() Dim x As Integer Static y As Integer x = x + 5 y = x + y Form1.Print x=; x, y=; yEnd
4、Sub写出程序运行时连续单击三次窗体后，Form1上的输出结果。6. 读程序Private Sub Command1_Click() Dim n As Integer, y As Integer, x As Integer a = 1Do While a 8 n = n + 1 b = b + 2 a = a * (a + 1)Loop Text1.Text = n Text2.Text = a Text3.Text = bEnd Sub写出程序运行时单击Command1后，文件框Text1、 Text2和 Text3的输出结果。7. 读程序Private Sub Form_Click() D
5、im I As Integer, j As Integer Dim c As Integer c = 1 For I = 1 To 3 For j = 1 To 2 c = c + 3 Next j Next I Print cEnd Sub变量C的值是：8. 程序阅读Private Sub Command1_Click() Dim s As Double Dim i As Integer s = 5 i = 1 Do While i 9 i = i + 2 s = s + i Loop Text1.Text = sEnd Sub 写出程序运行时，单击命令按钮文本框Text1中的输出结果。9.
6、 阅读程序Private Sub Command1_Click() Dim x As IntegerStatic s As Integer x = Val(InputBox(请输入一个正整数=) If x n thenMax=mElseMax=nEnd ifEnd Function13. 编写程序，在窗体直接输出下面形式的数字。1121 2231 32 33 41 42 43 4414. Visual Basic是一种面向 的程序设计开发工具。15. 设a=“222”，b=“333”，则语句Print a+b的结果是 。 16. 设A=1，B=2，则表达式3*A OR B+8的值是 。 17.
7、 要从Function过程中退出，使用 语句。18. 启动VB后，就意味着建立了一个新的（ ） 窗体 程序 工程 文件19. Visual Basic主要用于开发（ ） DOS Windows DOS和Windows UNIX20. 工程文件的扩展名为（ ） A.frx B.bas C.vbp D.frm21. 以下关于标准模块，说法错误的是（ ） 标准模块也称程序模块文件，扩展名为.bas 标准模块由程序代码组成 标准模块用来声明全局变量和定义一些通用的过程 标准模块附属于窗体22. 下列不属于VB特点的是（ ） 对象的链接与嵌入 结构化程序设计 编写跨平台应用程序 事件驱动程序编程机制23
8、. 当一个工程中含有多个窗体时，其中的启动窗体是（ ）。 A启动VB时创建的第一个窗体 B第一个添加的窗体 C最后一个添加的窗体 D在“工程属性”对话框中指定的窗体24. 在运行状态下，用户无法对文本框中已有内容进行编辑，是由于 的属性值为True。 25. 针对下列程序代码，说法正确的是（ ）Text1.Top=200Text1.Left=1800 Text1对象左边界距窗体的左边界1800twip，上边界距窗体的上边界200twip Text1对象左边界距屏幕的左边界1800twip，上边界距屏幕的上边界200twip Text1对象的高度为1800twip，宽度为200twip Text
9、1对象的高度为1800点，宽度为200点26. 确定一个窗体或控件大小的属性是（ ） Width和Height Width和Top Top和Left Top或Left27. 任何控件都有（ ）属性 Name Caption BackColor BorderStyle28. 一个对象可执行的动作与可被一个对象所识别的动作分别是（ ） 事件、方法 方法、事件 属性、方法 过程、事件29. 只有一个对象的Visible和Enabled属性均为（ ）时，它才能接收焦点。 A0 B1 CFalse DTrue30. 决定控件上文字的字体、字形、大小、效果的属性是（ ） Text Caption Name
10、 Font31. 在VB中，下列合法的变量名是（ ） A2xy B x-y Cr_2 D Double32. 用来设置粗体字的属性是（） FontItalic FontName FontSize FontBold33. VB应用程序在（）模式下不能编写代码和设计界面。 运行 中断 设计 以上均不能34. 在设计阶段，双击窗体上的某个控件，可以打开（） 代码窗口 属性窗口 工具箱窗口 工程资源管理器窗口35. 表示x大于10且小于20的VB表达式是 （） A10x10 and x10 or x10: xZ And X+ZY And Y+ZX X+YZ Or X+ZY Or Y+ZX X+Y=Z
11、Or X+Z=Y Or Y+Z=X Not(X+YZ Or X+ZY Or Y+Z0 then y=x+3 else x=y-3Print x-y；y-x92. 程序执行后，整型变量C的值为 A=24B=566Select case b100Case 0C=a+bCase 1C=a*10+bCase 2C=a*100+bCase 3C=a*1000+bEnd select93. 读程序Private Sub Form_Click()Dim c As Integer, j As Integer, k As Integerk = 3c = 4For j = 1 To 5 If j 3 Then c
12、 = c + 5 Exit For Else k = k + 1End IfNext jPrint c, kEnd Sub 写出程序运行时单击窗体后，c,k的值分别是： 94. 程序运行后，单击命令按钮，则窗体上显示的内容是 。Private sub command1_click()Dim a as integer,s as integerA=169If a160 then s=1If a170 then s=2If a180 then s=3If a190 then s=4Print “s=”；sEnd sub95. 执行下列程序段后，A的值为 A=32B=12A=A+BB=A-BA=A-B
13、96. 新建一个工程，包括两个窗体，窗体Form1上有一个命令按钮Command1，单击该按钮，关闭Form1窗体，显示Form2窗体，程序如下：Private Sub Command1_Click() Form2.showEnd Sub请补充完整。97. 执行下列程序段后，x的值为 x=2If x0 then x=0If x1 then x=x+198. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()a=InputBox(“请输入一个整数”)b=InputBox(“请输入一个整数”)Print a+bEnd Sub程序运行后，单击命令按
14、钮，在输入对话框中分别输入123和321，输出结果为 。99. 执行下列程序段，单击窗体，输出结果为 private sub Form_click()Num=0Do while num=1Num=num+1Print numLoopEnd sub100. 下面程序的运行结果是 Private sub form_click()Dim I as integerFor i=1 to 3Print i;End sub101. 编写程序，分别在窗体直接输出下面图案。* * * * * * * * * * * * * * * * * * * * *102. 在VB中，下列变量名不合法的是（ ）。 Atak
15、e_1 Btake Ctake-1 Dtake_1_2 103. 如果创建了命令按钮数组控件，那么Click事件的参数是（） ATag BCaptionCIndex D没有参数104. 表达式3 + 15 Mod 4 * 2 + 2的值是 。 105. 要在窗体Form1内显示“欢迎您!”，使用的语句是 。106. 变量的声明方法有隐式和 声明两种。任何变量在声明后均有一个初始值，一般情况下，数值型变量的初始值为 。107. VB中参数传递的方式有两种，一种是 参数，另一种是 参数。 108. 在一个语句行内写多条语句时，语句之间应该用（ ）分隔。 A逗号 B分号 C顿号 D冒号109. 在Visual Basic中，变量的默认类型是（）。 ADouble BInteger CCurrency DVariant110. 要退出DoLoop循环，可使用的语句是（ ）语句。 AExit BExit For CExit Do D End Do 111. 为使文本框显示滚动条，必须首先设置的属性是（）。 AAutoSize BAlignment CMultiline DTabStop112. 在VB中，下列合法的变量名是（ ）。 A2ab B a-b Ca_2 D Double
