VB题库程序填空

1.'功能：以下程序段用于计算n的阶乘：n！。（1！=1）

2. 已知某城市一年的交通事故车辆报废情况，编程序计算该城市的交通事故一年损失金额。 3. 下面的程序用\冒泡\法将数组a中的10个整数按从小到大排列，请将程序补充完整。 4. '程序运行界面。键盘输入3个数，将它们按由大到小的顺序输出，-1为结束标志。

5. '在窗体有三个复选框，名称分别为 Ch1、Ch2和Ch3，标题依次为'\体育\、\音乐\、\美术\，还有一个命令按钮，名称为C1，标题'为\显示\。要求程序运行后，如果选中某个复选框，则当单击'\显示\命令按钮时，则显示相应的信息。例如，如果选中\体育\和\音乐\复选框，则单击\显示\命令按钮后，在窗体上显示'\我的爱好是体育音乐\（如图1所示）；而如果选中\体育\、'\音乐\和\美术\复选框，则单击\显示\按钮后，在窗体上显示\我的爱好是体育音乐美术\。

6. 窗体上建立了一个文本框Text1(\输入口令\和一个命令按钮Command1(\检查\。' 判断密码是否正确，并显示相应提示在加载窗体时设置密码框最大长度为8，密码显示字符为“*” 7. 下面的程序用于求三个数中最大数

8. 要求输入若干学生的成绩，计算平

三、填空题 1、【程序说明】

下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。 Private Sub Form_Click()

Dim n As Integer, a As Integer, b As Integer, c As Integer Dim x As Integer

For a =0 to 9 '个位数数码

For b = 0 To 9 '十位数数码 For c = ----1----

If a<>b And b<>c And a<>c Then x =a+10*(b+10*c) n = ----2---- ----3----

If n mod 15 = 0 Then Print End If Next c,b,a

Print \总共有这样的三位数\个\End Sub 1、1 to 9

2、n+1

所有填空题

1、VB6.0是运行于______操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即______和______。

答案： 1：Windows 9x/NT#Windows9x/NT#Windows 9x\\NT#Windows9x\\NT#Windows 9x#Windows

NT#Windows9x#WindowsNT#windows 9x/NT#windows9x/NT#windows 9x\\NT#windows9x\\NT#windows 9x#windows NT#windows9x#windowsNT

2：事件驱动编程#可视化设计 3：可视化设计#事件驱动编程 等级：1 难度：1 知识点：VB知识点/VB简介

2、VB是一种面向______的可视化编程语言，它采用______的编程机制。

答案： 1：对象

2：事件驱动 等级：1 难度：1

知识点：VB知识点/VB的编程环境

3、在VB集成开发环境中，运行应用程序的方法有两种：______或______。

答案： 1：编译运行模

所有填空题

1、VB6.0是运行于______操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即______和______。

答案： 1：Windows 9x/NT#Windows9x/NT#Windows 9x\\NT#Windows9x\\NT#Windows 9x#Windows NT#Windows9x#WindowsNT#windows 9x/NT#windows9x/NT#windows 9x\\NT#windows9x\\NT#windows 9x#windows NT#windows9x#windowsNT 2：事件驱动编程#可视化设计 3：可视化设计#事件驱动编程 等级：1 难度：1

知识点：VB知识点/VB简介

2、VB是一种面向______的可视化编程语言，它采用______的编程机制。

答案： 1：对象 2：事件驱动 等级：1 难度：1

知识点：VB知识点/VB的编程环境

3、在VB集成开发环境中，运行应用程序的方法有两种：______或______。

答案： 1：编译运行模式#解释运行模式#编译运行#解释运行 2：解释运行模式#编译运行模式#解释运行#编译运行 等级：1 难度

一、单选 共300题 （共计300分）

滚动条的( )属性用于指定用户单击滚动条的滚动箭头时,Value属性值的改变量. A:Value B:LargeChange C:Change D:SmallChange 答案：D

运行时,当用户向文本框输入新的内容,或在程序代码中对文本框 的TEXT属性进行赋值从而改变了文本框的TEXT属性值时,将触发文 本框的()事件. A:CLICK B:DBLCLICK C:GOTFOCUS D:CHANGE 答案：D

要获得用户在组合框输入的内容,应利用的组合框的属性是( ). A:List B:ListIndex C:Selected D:Text 答案：D

输入对话框InputBox的返回值的类型是 . A:长整数

1

B:字符串 C:浮点数 D:整数 案：B

要使得标签能自动扩充以满足字体大小则可对其()属性进行设置. A:alignment B:usemnemonic C:autosize D:tag 答案：C

假设变量BOOLVAR是一个布尔型变量,则下面正确的赋值语句是(). A:BOOLVAR='TRUE' B:BOOLVAR=.TRUE. C:BOOLVAR=#TR

一、选择题

1. 下列操作不能向工程中添加窗口是（ ）

A. 执行?工程?菜单中的‘添加窗体’命令 B. 单击工具栏中的‘添加窗体’按钮

C. 用鼠标右键单击窗体，在弹出的快捷菜单选择‘添加窗体’命令

D. 用鼠标右键单击职员管理器，在弹出的快捷菜单选择“添加”命令，然后再下一级

菜单中选择‘添加窗体’命令

2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ） A.工程资源管理器窗口 B.工具箱窗口 C．代码窗口 D。属性窗口

3. 建立一个新的”标准EXE工程后，不在工具箱中出现的控件是（ ） A.单选按钮 B。图标框 C．通用对话框 D.文本框

4. 以下不能再资源管理器窗口中列出的文件类型是（ ） A.bas B.res C.frm D.OCX 5. 以下叙述中错误的是( )

A. Visuai.Basic是事件驱动型可视化编程工具

B. Visuai.Basic应用程序不具有明显的开始和结束语句

C. Visuai.Basic工具箱中的所有控件都具有宽度(Width)和高度

一、选择题

1. 下列操作不能向工程中添加窗口是（ ）

A. 执行?工程?菜单中的‘添加窗体’命令 B. 单击工具栏中的‘添加窗体’按钮

C. 用鼠标右键单击窗体，在弹出的快捷菜单选择‘添加窗体’命令

D. 用鼠标右键单击职员管理器，在弹出的快捷菜单选择“添加”命令，然后再下一级

菜单中选择‘添加窗体’命令

2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ） A.工程资源管理器窗口 B.工具箱窗口 C．代码窗口 D。属性窗口

3. 建立一个新的”标准EXE工程后，不在工具箱中出现的控件是（ ） A.单选按钮 B。图标框 C．通用对话框 D.文本框

4. 以下不能再资源管理器窗口中列出的文件类型是（ ） A.bas B.res C.frm D.OCX 5. 以下叙述中错误的是( )

A. Visuai.Basic是事件驱动型可视化编程工具

B. Visuai.Basic应用程序不具有明显的开始和结束语句

C. Visuai.Basic工具箱中的所有控件都具有宽度(Width)和高度

一、选择题

1. 下列操作不能向工程中添加窗口是（ ）

A. 执行?工程?菜单中的‘添加窗体’命令 B. 单击工具栏中的‘添加窗体’按钮

C. 用鼠标右键单击窗体，在弹出的快捷菜单选择‘添加窗体’命令

D. 用鼠标右键单击职员管理器，在弹出的快捷菜单选择“添加”命令，然后再下一级

菜单中选择‘添加窗体’命令

2. 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ ） A.工程资源管理器窗口 B.工具箱窗口 C．代码窗口 D。属性窗口

3. 建立一个新的”标准EXE工程后，不在工具箱中出现的控件是（ ） A.单选按钮 B。图标框 C．通用对话框 D.文本框

4. 以下不能再资源管理器窗口中列出的文件类型是（ ） A.bas B.res C.frm D.OCX 5. 以下叙述中错误的是( )

A. Visuai.Basic是事件驱动型可视化编程工具

B. Visuai.Basic应用程序不具有明显的开始和结束语句

C. Visuai.Basic工具箱中的所有控件都具有宽度(Width)和高度

9、Visual Basic程序改错

1. 程序功能：求s=1+3+5+7+...直到s>2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 (2025) 平方和

Private Sub Form_Click()

Dim i As Integer, s As Long s = 0 : i = 1

Do Until s < 2000 s = s + i i = i + 1 Loop Print s End Sub

答案：s>2000 ; i+2

2. 程序功能：计算s=2!+4!+8!。程序中有两行有错误。

改正错误，使它能输出正确的结果。 (40346) Private Sub Command1_Click()

Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 i = 1

Do While i <= 3 t = 1 k = 1

While k <= 2*i t = t * k k = k + 1 Wend s = s + t i = i + 1 wend Print s End Sub

答案：k<=2^i ; loop

3. 程序功能：计算s=2!+4!+6!+8!。程序中有错误。改正错误，使它能输出正确的结果。 (41066) Private Sub Command1_Click()

Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 : i = 1

Do While

技术选考习题 命题：杜宗飞

VB程序填空表达式专题练习

行政班： 教学班： 姓名： 学号：

一、Len函数

1、已知字符串变量s其值为某个字符串，将其字符串长度存储在整数变量n中 n=Len(s) 2、在文本框Text1中输入字符串，将其字符串长度存储在整数变量n中 n=Len(Text1.Text) 二、Mid函数

Mid(X,n,k)取字符串X中第n个字符起长度为k的子串。Mid(\其值为\1、取出字符串变量s中的前2个字符，并存储在字符串变量ch中 ch=Mid(s,1,2) 2、取出字符串变量s中的最后2个字符，并存储在字符串变量ch中 ch=Mid(s,Len(s)-1,2) 3、取出字符串变量s中的前k个字符，并存储在字符串变量ch中 ch=Mid(s,1,k) 4、取出字符串变量s中的最后k个字符，并存储在字符串变量ch中 ch=Mid(s,Len(s)-k+1,2) 5、取出字符串变量s中的第i个字符，并存储在字符串变量ch中 ch=Mid(s,i,1) 6、取出字符串变量s中的第i个字符之前的2个字符（不包括第i个字