《VB程序设计—考前辅导.doc》由会员分享，可在线阅读，更多相关《VB程序设计—考前辅导.doc（4页珍藏版）》请在金锄头文库上搜索。
1、VB程序设计考前辅导 闭卷考试题型：单项选择题、判断题、填空题、程序填空题、程序阅读题、编程题一、基本知识点Visual Basic是一种面向对象的可视化程序设计语言，采取了（ A ）的编程机制。A事件驱动 Visual Basic应用程序保存在磁盘上，至少会有以（D）为扩展名两个文件。D.VBP和.FRM在一行内写多条语句时，每个语句之间用（B）符号分隔。B：对于窗体，下面（D）属性在程序运行时其属性设置起作用。 DLeft要使标签所在处透明显示背景，应把其BackStyle属性设置为（D）。D0标签和文本框的有关文本显示的区别是（B ）。B. 标签中的文本是可只读的文本，文本框中的文本是可
2、编辑的文本 当将（D ）属性设置为True时，可以滚动和选择控件中的文本，但不能编辑。D. Locked要判断在文本框是否按了Enter键，应在文本框的（D）事件中判断。 DKeyPress复选框的Value属性为1时，表示：（B）B复选框被选中当在滚动条内拖动滚块时触发（D ）事件。D. ScrollVB常用标识符来标记用户自定义的常量、类型、变量、控件、过程、函数等名字，标识符命名规则是必须以字母或汉字开头，不能用关键字或运算符。Rnd函数不可能为下列（B）值。 B1 赋值语句a=123 & Mid$(“123456”,3,2)执行后，a变量中的值是（A）。A”12334” VB提供了结构
3、化程序设计的三种基本结构，三种基本结构是选择结构、循环结构、顺序结构。结构化程序由三种基本结构组成，下面属于三种基本结构之一的是（B ）。B选择结构For-Next循环结构中，若循环控制变量的步长为0，则（A ）。A. 形成无限循环如果ForNext循环中含有Exit For语句，当执行到这条语句时，将（跳出循环），执行Next后面的语句。在循环语句中，反复执行的程序段称为（循环体）。如下数组声明语句，（B）正确的。 BDim a(3,4) As Integer 过程级变量属于（C ） 。C局部变量菜单的热键就是用键盘上的（A ）键和菜单项标题中带有下划线的一个字母来打开该菜单。 A. Alt
4、 设置或返回程序运行时要操作的驱动器，使用驱动器列表框 DriveListBox的（C ）属性。C. Drive代码窗是专用于编辑或查看程序代码的窗口，下面（D）无法打开该窗口。D通过编辑菜单有关命令目录列表框和文件列表框都有（C ） 属性。C. PathVB常用（标识符）来标记用户自定义的常量、类型、变量、控件、过程、函数等名字。例如：X_yz、标号、Int、Lab1是合法标识符；Print、123abc、Integer、X-Y是不合法的标识符当进入VB集成环境，发现没有显示“工具箱”窗口时，应选择(视图)菜单的(工具箱)选项，使“工具箱”窗口显示。在框架内可以设置一组相关控件，这些控件作为
5、框架的子控件，它们具有总体的（激活和屏蔽）特性。计时器Timer1每经过一个由Interval属性指定的时间间隔就会触发一次（Timer）事件。若使命令按钮不能接受和响应任何事件，可以设置（Enabled）属性的值为False。产生从整数a到整数b之间的随机整数或使用表达式（Int(Rnd*(b-a+1)+a)。整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是（(x Mod 10)*10+x10）要使过程里的一个局部变量在调用之前保持其值，必须使用(Static)关键字声明。若要将下拉菜单分成若干组，则只需要标题文本框中输入一个连字符“（）”时，那么在显示菜
6、单时就有一个分隔符。要把图形文件“c:samplediannt.jpg”装入到图片框Picture1上，使用的语句（Picture1.picture=loadpictur(c:samplediannt.jpg)若设置文本框的PasswordChar属性值为某个字符，则用户无论输入何种字符，在文本框中，全部显示为该字符。Integer类型的数据占用的字节数是2。Do与Loop必须成对使用，有一个Do就必须有一个Loop与之相对应。 Visual Basic的工作模式有三种模式，分别是设计模式、运行模式和中断模式。在程序设计过程中，双击窗体的任何地方，打开的窗口是代码窗口。通常情况下BASIC采用
7、解释工作方式，好处是边调试程序边运行，程序有错误可以直接指示出来。算术运算符和其优先级别：名称运算符算术运算符*、/Mod+、优先级高低如下运算符中运算优先级最高的是：（D）AB/ Cmod D表达式16/4-25*8/4 MOD 52的值为4。VB程序设计有三种循环结构，分别是：DoLoop循环结构、WhileWend循环结构、ForNext循环结构二、程序填空1、下列程序功能：求S123100的和，将求和结果显示在窗体的第10列位置处，显示内容为S5050。请填写程序空白处使程序完整。Private Sub Command1_Click() Dim k As Integer, s As L
8、ong s = 0 For k = 1 To 100 s = s + k Next Print Print Tab(10); s=; sEnd Sub2在窗体上有三个文本框Text1、Text2、Text3。在窗体装入时给Text1写入”Visual Basic”，Text2写入“您好！”，并使Text3为不可编辑，内容为空。在程序运行时完成如下功能： 操作时当Text1中输入字符，则在Text3中显示的是以Text1内容在前，Text2内容在后。Text1为不可操作，Text2为可操作。当Text2中输入字符，则在Text3中显示的是以Text2内容在前，Text1内容在后。Text2为不可
9、操作，Text1为可操作。请完成下面程序：Private Sub Form_ Load _()Text1 = Visual BasicText2 = 您好！Text3.Locked = TrueText3 = End SubPrivate Sub Text1_Change()Text3 = Text1 + Text2Text1.Enabled =_ False _: Text2.Enabled = TrueEnd SubPrivate Sub Text2 Change ()Text3 = _ Text2 + Text1_Text1.Enabled = TrueText2.Enabled = F
10、alseEnd Sub3下列程序功能：通过输入对话框输入三个数，将它们分别显示在窗体的三个标签框内，并求出其中最大数在输出对话框内输出结果。请填写程序空白处使程序完整。 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim c As Integer, m As Integer a = Val(InputBox(请输入第一个数, 输入对话框) _ b = Val(InputBox(请输入第二个数, 输入对话框) _ c = Val(InputBox(请输入第三个数, 输入对话框) Label1 = A= & a _ Lab
11、el2 = B= & b _ Label3 = C= & c If a b Then m = a Else _ m = b _ End If If c m Then m = c MsgBox 最大的数为： & m, vbOKOnly, 信息框 End Sub三、程序阅读1下列程序段运行后，输出结果为。 7 x = Int(Rnd) + 3 If x 2 8 Then y = x 2 + 1 If x 2 = 9 Then y = x 2 - 2 If x 2 8 Then y = x 3 Print y2下列程序段运行后，输出结果为42。 c = 1 Do While c 40 c = c *
12、 (c + 1) Loop Print c3下列程序段运行后，输出结果为。 For i = 5 To 1 Step -1 Print Spc(6 - i); For j = 1 To 2 * i - 1 Print *; Next j Print Next i 答案： * * *4下列程序运行后，输出结果为。49Private Sub Command1_Click() Dim a a = Array(1, 2, 3, 4, 5, 6, 7) For i = LBound(a) To UBound(a) a(i) = a(i) * a(i) Next i Print a(i - 1)End Su
13、b四、编程题1编写程序：随机产生三个数，求出其中最小的那个数。答案：Private Sub Command1_Click() a = Int(Rnd * 100) b = Int(Rnd * 100) c = Int(Rnd * 100) If (a c Then Min = c End If Print a; b; c Print Min=; MinEnd Sub2编写程序，利用随机函数产生100个099之间的整数，存放在数组中，然后在窗体上显示所有小于50的随机数。答案：Private Sub Command1_Click() Randomize Dim a(100) As Integer n = 0 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) 50 Then Print a(i); n = n + 1 If n = 10 Then
