文档库 最新最全的文档下载
当前位置:文档库 › VB试题(选择、填空)

VB试题(选择、填空)

VB试题(选择、填空)
VB试题(选择、填空)

一,选择题

1、如果VB环境中缺少某个窗口,一般应从主菜单__C____的下拉菜单中找到相应的激活命令。(1分)

错误!未找到引用源。A、编辑错误!未找到引用源。B、文件

错误!未找到引用源。C、视图错误!未找到引用源。D、调试

2、启动Visual Basic后,VB为用户建立的第一个窗体是__B____。(1分)

错误!未找到引用源。A、Form错误!未找到引用源。B、Form1

错误!未找到引用源。C、窗体1错误!未找到引用源。D、窗体

3、不属于一个工程文件(*.vbp)里的文件是____A__。(1分)

错误!未找到引用源。A、*.txt文件错误!未找到引用源。B、*.bas文件

错误!未找到引用源。C、*.cls文件错误!未找到引用源。D、*.frm文件

4、与传统的程序设计语言相比较,Visual Basic最突出的特点是__C____。(1分)

错误!未找到引用源。A、结构化的程序设计错误!未找到引用源。B、数据处理

错误!未找到引用源。C、面向对象的可视化编程错误!未找到引用源。D、中文支持

5、文本框中的ScrollBars属性已设置为 3-Both,但却没有水平和垂直滚动条的效果,原因可能是___B___。(1分)

错误!未找到引用源。A、文本框中没有内容错误!未找到引用源。B、文本框的MultiLine属性为False 错误!未找到引用源。C、文本框的MaxLength属性为0错误!未找到引用源。D、文本框的Locked属性是True

6、能够盛放其他控件,而且是最基本的对象是___A___。(1分)

错误!未找到引用源。A、窗体错误!未找到引用源。B、图像

错误!未找到引用源。C、标签错误!未找到引用源。D、文本

7、任何控件都具有的属性是____C__。(1分)

错误!未找到引用源。A、Picture错误!未找到引用源。B、Caption

错误!未找到引用源。C、Name错误!未找到引用源。D、AutoSize

8、窗体上有一个标签Label1和一个命名按钮Command1,当程序运行时每单击一次命令按钮,标签就向右移动一定距离。在Command1_Click()

中能完成这个功能的命令为___D___。(1分)

错误!未找到引用源。A、Label1.Left = 100错误!未找到引用源。B、Label1.Left = Label1.Left - 100错误!未找到引用源。C、Label1.Move 100错误!未找到引用源。D、Label1.Move Label1.Left + 100

9、要把一个Image控件对象设置成隐藏,应设置的属性是___A___。(1分)

错误!未找到引用源。A、Visible错误!未找到引用源。B、Enabled

错误!未找到引用源。C、Default错误!未找到引用源。D、Cancel

10、以下___B___是正确的For … Next结构。(1分)

错误!未找到引用源。A、For x=1 To Step 10 … Next x错误!未找到引用源。B、For x=3 To -3 Step -3 … Next x 错误!未找到引用源。C、For x=1 To x=10 … Next x错误!未找到引用源。D、For x=3 To 10 Step 3 … Next y

11、能产生[10,32]之间随机整数的函数表达式为___B___。(1分)

错误!未找到引用源。A、Int(Rnd*22)+10错误!未找到引用源。B、Int(Rnd*23)+10

错误!未找到引用源。C、Int(Rnd*22)+11错误!未找到引用源。D、Int(Rnd*23)+11

12、程序如下:k = 0: Do Until k > 10: k = k + 1: Loop的循环体执行次数是___C___。(1分)

错误!未找到引用源。A、9错误!未找到引用源。B、10

错误!未找到引用源。C、11错误!未找到引用源。D、无数次

13、若要使标签控件显示时,不覆盖其背景内容,应设置的属性是___C___。(1分)

错误!未找到引用源。A、Forecolor错误!未找到引用源。B、BackColor

错误!未找到引用源。C、BackStyle错误!未找到引用源。D、BorderStyle

14、Print Format(1234.234, "###.#####"); Format(1234.234, "########.##")的显示结果是___A___。(1分)

错误!未找到引用源。A、1234.234 1234.23错误!未找到引用源。B、123.23400 1234.234错误!未找到引用源。C、123.23400 1234.23错误!未找到引用源。D、1234.2341234.234

15、运行程序:x = 2: For i = 1 To 10 Step 2: x = x + i: Next,x的值是___B___。(1分)

错误!未找到引用源。A、26错误!未找到引用源。B、27

错误!未找到引用源。C、38错误!未找到引用源。D、57

16、Cls方法可以清除窗体或图片框中的__C____。(1分)

错误!未找到引用源。A、在设计阶段使用Picture设置的背景位图错误!未找到引用源。B、在设计阶段放置的控件错误!未找到引用源。C、在运行阶段产生的图形和文字错误!未找到引用源。D、以上全部内容

17、如果想用Print方法将计算结果显示在窗体上,则必须保证属性值为True的属性是___C___。(1分)

错误!未找到引用源。A、Enabled错误!未找到引用源。B、Apperance

错误!未找到引用源。C、AutoRedraw错误!未找到引用源。D、Moveable

18、窗体文件的扩展名__D____。(1分)

错误!未找到引用源。A、.bas错误!未找到引用源。B、.vbp

错误!未找到引用源。C、.exe错误!未找到引用源。D、.frm

19、以下关于MsgBox的叙述中,错误的是___D___。(1分)

错误!未找到引用源。A、MsgBox函数返回一个整数错误!未找到引用源。B、通过MsgBox函数可以设置信息框中图标和按钮的类型

错误!未找到引用源。C、MsgBox过程语句没有返回值错误!未找到引用源。D、MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数

20、能够通过标准工具栏打开的窗口是___C___。(1分)

错误!未找到引用源。A、代码窗口错误!未找到引用源。B、设计器窗口

错误!未找到引用源。C、属性窗口错误!未找到引用源。D、立即窗口

21、在下列逻辑表达式中,逻辑值为"真"的是__A____。(1分)

错误!未找到引用源。A、Not (1 > 2)错误!未找到引用源。B、Not (3 + 4 < 4 + 6)错误!未找到引用源。C、1 > 2 Or 2 > 3错误!未找到引用源。D、2 > 1 And 3 < 2 22、下面关系运算中,输出结果为“True”的是___C___。(1分)

错误!未找到引用源。A、"1" + 2 = "12"错误!未找到引用源。B、"1" + "2" = "3"

错误!未找到引用源。C、"1" & 2 = "12"错误!未找到引用源。D、"1" & "2" = "3"

23、执行程序段:Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs,输出的结果是__B____。(1分)

错误!未找到引用源。A、232 232032错误!未找到引用源。B、232 232

错误!未找到引用源。C、232.32 232.32错误!未找到引用源。D、显示出错信息

24、假设变量iVar是一个整型变量,则执行赋值语句iVar = "2" + "3" 之后,变量 iVar 的值是__D__。(1分)

错误!未找到引用源。A、2错误!未找到引用源。B、3

错误!未找到引用源。C、5错误!未找到引用源。D、23

25、假设变量iVar是一个整型变量,则执行赋值语句iVar = "2" + 3之后,变量iVar 的值是___C___。(1分)

错误!未找到引用源。A、2错误!未找到引用源。B、3

错误!未找到引用源。C、5错误!未找到引用源。D、23

26、用户自定义数据类型时,其成员不能是___B___。(1分)

错误!未找到引用源。A、定长字符串和数组错误!未找到引用源。B、变长字符串和数组

错误!未找到引用源。C、货币型和日期型错误!未找到引用源。D、变长字符串和货币型

27、执行程序段:a$ = "Visual Basic Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 11),变量c$的值为___D___。(1分)

错误!未找到引用源。A、Visual BASIC Programing错误!未找到引用源。B、Quick Basic programing

错误!未找到引用源。C、QUICK Basic Programing错误!未找到引用源。D、Quick BASIC Programing

28、某中心选拔身高T超过1.7米且体重W小于52.5公斤的学员,能正确表示该条件的布尔表达式是___C___。(1分)

错误!未找到引用源。A、T >= 1.7 And W <= 52.5错误!未找到引用源。B、T <= 1.7 Or W >= 52.5

错误!未找到引用源。C、T > 1.7 And W < 52.5错误!未找到引用源。D、T > 1.7 Or W < 625

29、m、n是整数,且n>m,在以下4个语句中,能将x赋值为一个m~n之间(含m ,n)的任意整数,即满足m≥x≥n的是___B___。(1分)<此题目有错误,理论上B正确>

错误!未找到引用源。A、x = Int(Rnd * n) + m错误!未找到引用源。B、x = Int(Rnd * (n–m + 1)) + m

错误!未找到引用源。C、x = Int(Rnd * m) + n错误!未找到引用源。D、x = Int(Rnd * (n-m)) + m

30、执行语句Print Format(32548.5, "###,##0.00"),输出结果是____D__。(1分)

错误!未找到引用源。A、32548.5错误!未找到引用源。B、32,548.5

错误!未找到引用源。C、032,548.50错误!未找到引用源。D、32,548.50

31、下列选项中,__D____不是字符串常量。(1分)

错误!未找到引用源。A、"你好"错误!未找到引用源。B、""

错误!未找到引用源。C、"True"错误!未找到引用源。D、#False#

32、下列不合法的常量形式是__C___。(1分)

错误!未找到引用源。A、"1O0"错误!未找到引用源。B、100.0

错误!未找到引用源。C、1OE+0.5错误!未找到引用源。D、Const G = 23 + 12

33、表达式Val(".123E2CD")的值是____B__。(1分)

错误!未找到引用源。A、.123错误!未找到引用源。B、12.3

错误!未找到引用源。C、O错误!未找到引用源。D、.123E2CD

34、下列符号中,属于Visual Basic合法变量名的是___A___。(1分)

错误!未找到引用源。A、x23错误!未找到引用源。B、8xy

错误!未找到引用源。C、END错误!未找到引用源。D、X8[B]

35、下列符号常量的声明中,__C____是不合法的。(1分)

错误!未找到引用源。A、Const a As Single = 2.6错误!未找到引用源。B、Const a As String = "ab"

错误!未找到引用源。C、Const a As Double = Sin(1)错误!未找到引用源。D、Const a = "OK"

36、表达式"Turbo" + "C" > "True" + "Basic"的值是___A___。(1分)

错误!未找到引用源。A、True错误!未找到引用源。B、False

错误!未找到引用源。C、Null错误!未找到引用源。D、出错信息

37、执行MsgBox 123 + 123,信息框中可以出现__C___。(1分)

错误!未找到引用源。A、123 + 123错误!未找到引用源。B、123123

错误!未找到引用源。C、246错误!未找到引用源。D、显示出错信息

38、执行程序段:m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$),输出的结果是___D___。(1分)错误!未找到引用源。A、abcabc错误!未找到引用源。B、ABCABC

错误!未找到引用源。C、65错误!未找到引用源。D、97

39、Single(单精度)型数据占___B___个字节。(1分)

错误!未找到引用源。A、2错误!未找到引用源。B、4

错误!未找到引用源。C、8错误!未找到引用源。D、10

40、变量未赋值时,数值型变量的值为___A___。(1分)

错误!未找到引用源。A、O错误!未找到引用源。B、空串""

错误!未找到引用源。C、Null错误!未找到引用源。D、没任何值

41、如果在图片框Picture1中装入一个图形,为了清除该图形(不删除图片框),应采用的方法是___C___。(1分)

错误!未找到引用源。A、选择图片框,在属性窗口中选择Picture

错误!未找到引用源。B、选择图片框,然后按Del键

属性条,然后按回车键

错误!未找到引用源。C、执行语

错误!未找到引用源。D、执行语句 Picture1.Picture = ""

句 Picture1.Picture = LoadPicture("")

42、Visual Basic的编程机制是___C___。(1分)

错误!未找到引用源。A、面向过程错误!未找到引用源。B、面向对象

错误!未找到引用源。C、事件驱动错误!未找到引用源。D、可视化

43、设n=10,执行n=IIF(n=3,n,-n)后,n 的值为___B__。(1分)

错误!未找到引用源。A、10错误!未找到引用源。B、-10

错误!未找到引用源。C、3错误!未找到引用源。D、-3

44、除了系统默认的工具箱之外,还可以通过___B___方法来增加控件。(1分)

错误!未找到引用源。A、执行“文件”菜单中的“添加工程”命令错误!未找到引用源。B、执行“工程”菜单中的“部件”命令

错误!未找到引用源。C、在工具箱处执行其快捷菜单中的“添加选错误!未找到引用源。D、执行“工程”菜单中的“添加窗体”命令

项卡”命令

45、在设计工作状态,当双击窗体上任何一个控件时,打开的窗口是___D___。(1分)

错误!未找到引用源。A、窗体布局窗口错误!未找到引用源。B、窗体设计窗口错误!未找到引用源。C、属性窗口错误!未找到引用源。D、代码窗口

46、有一个命令:Text1= "欢迎您!",表达方式中省略了对象的___B___。(1分)

错误!未找到引用源。A、方法错误!未找到引用源。B、属性名

错误!未找到引用源。C、对象名错误!未找到引用源。D、标题

47、窗体设计器是用于设计___D___。(1分)

错误!未找到引用源。A、窗体的代码错误!未找到引用源。B、对象的属性

错误!未找到引用源。C、应用程序的代码错误!未找到引用源。D、应用程序的界面48、以下关于MsgBox的叙述中,错误的是___D___。(1分)

错误!未找到引用源。A、MsgBox函数返回一个整数错误!未找到引用源。B、通过MsgBox函数可以设置信息框中图标和按钮的类型

错误!未找到引用源。C、MsgBox过程语句没有返回值错误!未找到引用源。D、MsgBox函数的第一个参数是一个整数,该参数只能确定对话框中显示的按钮数

49、在程序运行模式能够__A___。(1分)

错误!未找到引用源。A、中断程序错误!未找到引用源。B、添加程序

错误!未找到引用源。C、输入程序错误!未找到引用源。D、编辑程序

50、下面四个语句中,正确的赋值语句是___A___。(1分)

错误!未找到引用源。A、a = a + c错误!未找到引用源。B、a + c = a

错误!未找到引用源。C、c + a = a错误!未找到引用源。D、a - c = a

51、Select Case 语句中的“表达式列表”不能是____A__。(1分)

错误!未找到引用源。A、变量名的列表,例如 Case x ,y ,z错误!未找到引用源。B、值的列表,例如 Case "a ","b","c"错误!未找到引用源。C、To 表达式,例如 Case 1 to 10错误!未找到引用源。D、Is关系表达式,例如 Case Is <8 52、比较两个数中较大的数的程序段,错误的是__C____。(1分)

错误!未找到引用源。A、IF x >y Then max=x Else max=y错误!未找到引用源。B、max=IIF(x>y , x, y)

错误!未找到引用源。C、IF x >y Then max=x : max=y错误!未找到引用源。D、max=x: If x< y Then max=y

53、要把一个Image控件对象设置成隐藏,应设置的属性是___A___。(1分)

错误!未找到引用源。A、Visible错误!未找到引用源。B、Enabled

错误!未找到引用源。C、Default错误!未找到引用源。D、Cancel

54、保存一个Visual Basic应用程序,正确的是___D___。(1分)

错误!未找到引用源。A、只保存工程文件(.vbp)错误!未找到引用源。B、只保存窗体文件(.frm)

错误!未找到引用源。C、只保存标准模块文件(.bas)错误!未找到引用源。D、分别保存窗体文件和工程文件

55、表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是___B___。(1分)

错误!未找到引用源。A、4错误!未找到引用源。B、5

错误!未找到引用源。C、6错误!未找到引用源。D、7

56、语句Print "int(-23.4)= "; ; Int(-23.4)的输出结果为(1分)D

错误!未找到引用源。A、Int(-23.4)=-23.4错误!未找到引用源。B、(-23.4)=23.4错误!未找到引用源。C、Int(-23.4)=-23错误!未找到引用源。D、Int(-23.4)=-24 57、下列叙述中,正确的是__B____。(1分)

错误!未找到引用源。A、工程文件(.vbp)应用程序可以在任何计算机上运行错误!未找到引用源。B、打开一个工程文件,系统自动装入与该工程有关的窗体文件

错误!未找到引用源。C、VB工程文件中可以没有窗体文件错误!未找到引用源。D、退出VB系统前要保存新创建的应用程序,只需保存工程文件(.vbp)即可

58、下列各组中,两个函数功能完全相反的是__B____。(1分)

错误!未找到引用源。A、Str(x)和Val(x)错误!未找到引用源。B、Asc(x)和Chr(x)

错误!未找到引用源。C、LTrim(x)和RTrim(x)错误!未找到引用源。D、Timer(x)和Time(x)

59、设a=3,b=5,则以下表达式值为假的是___A___。(1分)

错误!未找到引用源。A、a>=b And b> l0错误!未找到引用源。B、(a>b) Or (b>2)

错误!未找到引用源。C、(a<0) or (b>0)错误!未找到引用源。D、(5>a) And (b>2)

60、执行MsgBox 123 + 123,信息框中可以出现___A___。(1分)

错误!未找到引用源。A、123 + 123错误!未找到引用源。B、123123

错误!未找到引用源。C、246错误!未找到引用源。D、显示出错信息

61、下列表达式中,表示"X和Y之中有一个是奇数"的表达式是__D____。(1分)

错误!未找到引用源。A、X Mod 2 = 1 And Y Mod 2 = 1错误!未找到引用源。B、X Mod 2 = 1 Or Y Mod 2 = 1

错误!未找到引用源。C、

(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mod 2 = 1)错误!未找到引用源。D、

(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mod 2 = 1)

62、下列符号常量的声明中,___C___是不合法的。(1分)

错误!未找到引用源。A、Const a As Single = 1.1错误!未找到引用源。B、Const a As Integer = "12"错误!未找到引用源。C、Const a As Double = Sin(1)错误!未找到引用源。D、Const a = "OK"

63、以下声明语句中,错误的是___C___。(1分)

错误!未找到引用源。A、Const varl=123错误!未找到引用源。B、Const var2="ABC"

错误!未找到引用源。C、Public const="计算机等级考试"错误!未找到引用源。D、Static var3 as Integer 64、下面表达式中,___D___的运算结果与其他3个不同。(1分)

错误!未找到引用源。A、Log(Exp(-3.5))错误!未找到引用源。B、Int(-3.5) + 0.5

错误!未找到引用源。C、-Abs(-3.5)错误!未找到引用源。D、Sin(30 * 3.14 / 180)

65、Print Format(32556, "#######"); Format(32556, "###")的输出结果是___A___。(1分)

错误!未找到引用源。A、3255632556错误!未找到引用源。B、32556—32556

错误!未找到引用源。C、32556-325错误!未找到引用源。D、--32556325

66、下列数据中,___C___是日期型数据。(1分)

错误!未找到引用源。A、"01/30/2004"错误!未找到引用源。B、Date("01/30/2004")

错误!未找到引用源。C、#01/30/2004#错误!未找到引用源。D、01/30/2004

67、执行语句Print Format(32548.5, "###,##0.00"),输出结果是___D___。(1分)

错误!未找到引用源。A、32548.5错误!未找到引用源。B、32,548.5

错误!未找到引用源。C、032,548.50错误!未找到引用源。D、32,548.50

68、InputBox函数返回值的类型为___B___。(1分)

错误!未找到引用源。A、数值错误!未找到引用源。B、字符串

错误!未找到引用源。C、变体错误!未找到引用源。D、数值或字符串

69、m、n是整数,且n>m,在以下4个语句中,能将x赋值为一个m~n之间(含m ,n)的任意整数,即满足m≥x≥n的是__B____。(1分)

错误!未找到引用源。A、x = Int(Rnd * n) + m错误!未找到引用源。B、x = Int(Rnd * (n–m + 1)) + m

错误!未找到引用源。C、x = Int(Rnd * m) + n错误!未找到引用源。D、x = Int(Rnd * (n-m)) + m

70、在下列逻辑表达式中,逻辑值为"真"的是_____A_。(1分)

错误!未找到引用源。A、Not (1 > 2)错误!未找到引用源。B、Not (3 + 4 < 4 + 6)

错误!未找到引用源。C、1 > 2 Or 2 > 3错误!未找到引用源。D、2 > 1 And 3 < 2

71、表达式Str(Len("123")) + Str(77.7) 的值是__B____。(1分)

错误!未找到引用源。A、377.7错误!未找到引用源。B、3 77.7

错误!未找到引用源。C、80.7错误!未找到引用源。D、12377.7

72、表达式"Turbo" + "C" > "True" + "Basic"的值是___A___。(1分)

错误!未找到引用源。A、True错误!未找到引用源。B、False

错误!未找到引用源。C、Null错误!未找到引用源。D、出错信息

73、执行程序段:Dim axs As Integer: axs% = 232: axs = 232.32: Print axs%; axs,输出的结果是___B___。(1分)

错误!未找到引用源。A、232 232032错误!未找到引用源。B、232 232

错误!未找到引用源。C、232.32 232.32错误!未找到引用源。D、显示出错信息

74、执行x = -6 ^ 2: Print Sgn(x) + Abs(x) + Int(x)的结果是___C___。(1分)

错误!未找到引用源。A、-36错误!未找到引用源。B、1

错误!未找到引用源。C、-1错误!未找到引用源。D、-32

75、假设变量iVar是一个整型变量,则执行赋值语句iVar = "2" + "3" 之后,变量 iVar 的值是__D____。(1分)

错误!未找到引用源。A、2错误!未找到引用源。B、3

错误!未找到引用源。C、5错误!未找到引用源。D、23

76、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后,显示的结果是___B___。(1分)

错误!未找到引用源。A、0错误!未找到引用源。B、1

错误!未找到引用源。C、随机数错误!未找到引用源。D、显示出错信息

77、语句Print "int(-23.4)= "; ; Int(-23.4)的输出结果为(1分) D

错误!未找到引用源。A、Int(-23.4)=-23.4错误!未找到引用源。B、(-23.4)=23.4

错误!未找到引用源。C、Int(-23.4)=-23错误!未找到引用源。D、Int(-23.4)=-24

78、设a=3,b=5,则以下表达式值为假的是____A__。(1分)

错误!未找到引用源。A、a>=b And b> l0错误!未找到引用源。B、(a>b) Or (b>2)

错误!未找到引用源。C、(a<0) or (b>0)错误!未找到引用源。D、(5>a) And (b>2)

79、处于设计状态时,在窗体上双击鼠标,则系统在代码窗口显示的事件过程模板是___A___。(1分)

错误!未找到引用源。A、Load错误!未找到引用源。B、Click

错误!未找到引用源。C、DblClick错误!未找到引用源。D、MouseDown

80、运行程序:x = 2: For i = 1 To 10 Step -2: x = x + i: Next,x的值是___A___。(1分)

错误!未找到引用源。A、2错误!未找到引用源。B、26

错误!未找到引用源。C、27错误!未找到引用源。D、38

81、启动Visual Basic后,VB为用户新建立的第一个工程的名字是____D__。(1分)

错误!未找到引用源。A、窗体1错误!未找到引用源。B、工程

错误!未找到引用源。C、窗体错误!未找到引用源。D、工程1

82、决定窗体标题栏显示内容的属性是__C____。(1分)

错误!未找到引用源。A、Text错误!未找到引用源。B、Name

错误!未找到引用源。C、Caption错误!未找到引用源。D、BackStyle

83、Select Case 语句中的“表达式列表”不能是___A___。(1分)

错误!未找到引用源。A、变量名的列表,例如 Case x ,y ,z错误!未找到引用源。B、值的列表,例如 Case "a ","b","c"

错误!未找到引用源。C、To 表达式,例如 Case 1 to 10错误!未找到引用源。D、Is关系表达式,例如 Case Is <8

84、若要选择Text对象的Text1_KeyPress事件,可以___C___。(1分)

错误!未找到引用源。A、在属性窗口中选择错误!未找到引用源。B、在工程资源管理器窗口中选择

错误!未找到引用源。C、在代码设计窗口中利用对象列表框、过程

列表框选择

错误!未找到引用源。D、在窗体设计窗口中双击Text1对象

85、如果对文本框Text1设置了PasswordChar=“$”,且程序运行时向文本框中输入“abcd”,则文本框中显示的是___B___。(1分)错误!未找到引用源。A、1个“$”错误!未找到引用源。B、4个“$”

错误!未找到引用源。C、不显示内容错误!未找到引用源。D、“*”

86、以下关于InputBox函数的叙述中,错误的是___C___。(1分)

错误!未找到引用源。A、InputBox函数的“提示信息参数”不能缺省错误!未找到引用源。B、每执行一次InputBox函数,只能输入一个值

错误!未找到引用源。C、InputBox 函数的返回值是数值型的错误!未找到引用源。D、要保存InputBox函数的返回值必须赋予一个变量

87、假设变量iVar是一个整型变量,则执行赋值语句iVar = "2" + 3之后,变量iVar 的值是____C__。(1分)错误!未找到引用源。A、2错误!未找到引用源。B、3

88、执行程序段:m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$),输出的结果是___D___。(1分)错误!未找到引用源。A、abcabc错误!未找到引用源。B、ABCABC

错误!未找到引用源。C、65错误!未找到引用源。D、97

89、下列不合法的常量形式是__C____。(1分)

错误!未找到引用源。A、"1O0"错误!未找到引用源。B、100.0

错误!未找到引用源。C、1OE+0.5错误!未找到引用源。D、Const G = 23 + 12

90、执行语句age = InputBox("请输入数值", "年龄输入框", "38"),如果从键盘上输入数值20并按回车键,则下列叙述中,不正确的叙述是__A____。(1分)

错误!未找到引用源。A、变量Age的值是数值20错误!未找到引用源。B、对话框标题栏中显示的是"年龄输入框"

错误!未找到引用源。C、对话框的默认值是38错误!未找到引用源。D、对话框的提示文字为"请输入数值"

91、执行语句Print Format(32548.5, "###,##0.00"),输出结果是____D__。(1分)

错误!未找到引用源。A、32548.5错误!未找到引用源。B、32,548.5

错误!未找到引用源。C、032,548.50错误!未找到引用源。D、32,548.50

92、m、n是整数,且n>m,在以下4个语句中,能将x赋值为一个m~n之间(含m ,n)的任意整数,即满足m≥x≥n的是___B___。(1分)

错误!未找到引用源。A、x = Int(Rnd * n) + m错误!未找到引用源。B、x = Int(Rnd * (n–m + 1)) + m

错误!未找到引用源。C、x = Int(Rnd * m) + n错误!未找到引用源。D、x = Int(Rnd * (n-m)) + m

93、下列声明语句中,错误的是___B___。(1分)

错误!未找到引用源。A、Const varl=123错误!未找到引用源。B、Dim var2='ABC'

错误!未找到引用源。C、Const y="计算机等级考试"错误!未找到引用源。D、Static var3 as Integer

94、下面关系运算中,输出结果为“True”的是___C___。(1分)

错误!未找到引用源。A、"1" + 2 = "12"错误!未找到引用源。B、"1" + "2" = "3"

错误!未找到引用源。C、"1" & 2 = "12"错误!未找到引用源。D、"1" & "2" = "3"

95、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是___B___。(1分)

错误!未找到引用源。A、输出平均值错误!未找到引用源。B、将一个实数四舍五入取整并输出

错误!未找到引用源。C、输出绝对值错误!未找到引用源。D、舍去一个实数的小数部分并输出

96、执行程序 For n = 1 To 3: Cls: Print "n="; n;: Next n 后, 输出结果是____C__。(1分)

错误!未找到引用源。A、123错误!未找到引用源。B、3

错误!未找到引用源。C、n= 3错误!未找到引用源。D、n= 1 n= 2 n= 3

97、方法Print "等级";"考试",输出的结果是____A__。(1分)

错误!未找到引用源。A、等级考试错误!未找到引用源。B、等级;考试

错误!未找到引用源。C、"等级考试"错误!未找到引用源。D、"等级";"考试"

98、Single(单精度)型数据占____B__个字节。(1分)

错误!未找到引用源。C、8错误!未找到引用源。D、10

99、表达式Val(".123E2CD")的值是____B__。(1分)

错误!未找到引用源。A、.123错误!未找到引用源。B、12.3

错误!未找到引用源。C、O错误!未找到引用源。D、.123E2CD

100、表达式4 + 5 \ 6 * 7 / 8 Mod 9的值是__B____。(1分)

错误!未找到引用源。A、4错误!未找到引用源。B、5

错误!未找到引用源。C、6错误!未找到引用源。D、7

101、窗体上有一个文本框和一个命名按钮,当向文本框中输入一个字符时,命令按钮的标题设置为“计算机考试”。下面正确的事件过程为___C___。(1分)

错误!未找到引用源。A、

Private Sub Command1_Click(): Command1.Caption = "计算机考试": End Sub 错误!未找到引用源。B、Private Sub Command1_Click(): Text1 = "计算机考试": End Sub

错误!未找到引用源。C、

Private Sub Text1_Change(): Command1.Caption = "计算机考试": End Sub 错误!未找到引用源。D、

Private Sub Text1_Click(): Text1.Caption = "计算机考试": End Sub

102、文本框中的ScrollBars属性已设置为 3-Both ,但却没有水平和垂直滚动条的效果,原因可能是__B____。(1分)

错误!未找到引用源。A、文本框中没有内容错误!未找到引用源。B、文本框的MultiLine属性为False 错误!未找到引用源。C、文本框的MaxLength属性为0错误!未找到引用源。D、文本框的Locked属性是True 103、程序如下:i = 0: s = 0: Do: i = i + 2: s = i + s: Loop Until i > 4,执行后s的值是____C__(1分)

错误!未找到引用源。A、10错误!未找到引用源。B、11

错误!未找到引用源。C、12错误!未找到引用源。D、15

104、程序段 Dim x%: If x Then y = x Else y = x + 1: Print y 运行后,显示的结果是___B___。(1分)

错误!未找到引用源。A、0错误!未找到引用源。B、1

错误!未找到引用源。C、随机数错误!未找到引用源。D 、显示出错信息

105、如果VB环境中缺少某个窗口,一般应从主菜单__C____的下拉菜单中找到相应的激活命令。(1分)

错误!未找到引用源。A、编辑错误!未找到引用源。B、文件

错误!未找到引用源。C、视图错误!未找到引用源。D、调试

106、以下关于InputBox函数的叙述中,错误的是___C___。(1分)

错误!未找到引用源。A、InputBox函数的“提示信息参数”不能缺省错误!未找到引用源。B、每执行一次InputBox函数,只能输入一个值

错误!未找到引用源。C、InputBox 函数的返回值是数值型的错误!未找到引用源。D、要保存InputBox函数的返回值必须赋予一个变量

107、能产生[10,32]之间随机整数的函数表达式为___B___。(1分)

错误!未找到引用源。A、Int(Rnd*22)+10错误!未找到引用源。B、Int(Rnd*23)+10错误!未找到引用源。C、Int(Rnd*22)+11错误!未找到引用源。D、Int(Rnd*23)+11

108、设有变量声明:Dim TestDate As Date,为变量TestDate正确赋值的表达方式是__A____。(1分)

错误!未找到引用源。A、TestDate = #1/1/2002#错误!未找到引用源。B、TestDate = #"1/1/2002"#

错误!未找到引用源。C、TestDate = Date("1/1/2002")错误!未找到引用源。D、TestDate = Format("m/d/yy", "1/l/2002") 109、已知下列程序段:a = 3: b = 4: Print b > a ,输出的结果是____A__。(1分)

错误!未找到引用源。A、True错误!未找到引用源。B、False

错误!未找到引用源。C、4>3错误!未找到引用源。D、显示出错信息

110、表达式"Turbo" + "C" > "True" + "Basic"的值是__A___。(1分)

错误!未找到引用源。A、True错误!未找到引用源。B、False

错误!未找到引用源。C、Null错误!未找到引用源。D、出错信息

111、语句T = MsgBox("程序执行了非法操作", vbAbortRetryIgnore, "提示信息")的执行后,可以在对话框中显示__C____个按钮。(1分)

错误!未找到引用源。A、1错误!未找到引用源。B、2

错误!未找到引用源。C、3错误!未找到引用源。D、4

112、如果将布尔常量值True赋给一个整型变量,则整型变量的值为____B__。(1分)

错误!未找到引用源。A、O错误!未找到引用源。B、-1

错误!未找到引用源。C、True错误!未找到引用源。D、False

113、执行语句age = InputBox("请输入数值", "年龄输入框", "38"),如果从键盘上输入数值20并按回车键,则下列叙述中,不正确的叙述是___A___。(1分)

错误!未找到引用源。A、变量Age的值是数值20错误!未找到引用源。B、对话框标题栏中显示的是"年龄输入框"

错误!未找到引用源。C、对话框的默认值是38错误!未找到引用源。D、对话框的提示文字为"请输入数值"

114、执行程序段:Const c$ = "Henan": c$ = "Zhengzhou": c$ = "Daxue": Print c$,输出的结果是___D___。(1分)

错误!未找到引用源。A、Henan错误!未找到引用源。B、Zhengzhou

错误!未找到引用源。C、Daxue错误!未找到引用源。D、显示出错信息

115、执行程序段:a$ = "Visual Basic Programing": b$ = "Quick": c$ = b$ & UCase(Mid$(a$, 7, 6)) & Right$(a$, 11),变量c$的值为__D____。(1分)

错误!未找到引用源。A、Visual BASIC Programing错误!未找到引用源。B、Quick Basic programing

错误!未找到引用源。C、QUICK Basic Programing错误!未找到引用源。D、Quick BASIC Programing

116、程序段 a = 10.5: b = Int(a + 0.5): Print b 的功能是___B___。(1分)

错误!未找到引用源。A、输出平均值错误!未找到引用源。B、将一个实数四舍五入取整并输出错误!未找到引用源。C、输出绝对值错误!未找到引用源。D、舍去一个实数的小数部分并输出117、执行程序段:m$ = "ABC": n$ = "abc": k$ = LCase$(m$): j$ = UCase$(n$): Print Asc(k$ + j$),输出的结果是___D___。(1分)

错误!未找到引用源。A、abcabc错误!未找到引用源。B、ABCABC

错误!未找到引用源。C、65错误!未找到引用源。D、97

118、下列表达式中,表示"X和Y之中有一个是奇数"的表达式是___D___。(1分)

错误!未找到引用源。A、X Mod 2 = 1 And Y Mod 2 = 1错误!未找到引用源。B、X Mod 2 = 1 Or Y Mod 2 = 1

错误!未找到引用源。C、

(X Mod 2 = 1 And Y Mod 2 = 0) And (X Mod 2 = 0 And Y Mod 2 = 1)错误!未找到引用源。D、

(X Mod 2 = 1 And Y Mod 2 = 0) Or (X Mod 2 = 0 And Y Mod 2 = 1)

119、下列符号中,属于Visual Basic合法变量名的是__A____。(1分)

错误!未找到引用源。A、x23错误!未找到引用源。B、8xy

错误!未找到引用源。C、END错误!未找到引用源。D、X8[B]

二,填空题

1、* 求正整数M和N(M>N)的最大公约数。

* 程序段如下:

错误!未找到引用源。 = M Mod N

Do While R <> 0

M = N

N = 错误!未找到引用源。

R = M Mod N

Loop

Print "最大公约数为: "; N

2、* 在窗体上画一个命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim a As String, b As Integer

a = 错误!未找到引用源。nputBox ("请输入一个数字")

b 错误!未找到引用源。 InputBox("请输入一个数字")

Print "s"; a; b; "ok"

End Sub

程序运行后,单击命令按钮,在输入对话框中分别输入321和456,输出结果为:s321 456 ok。

3、* 计算s = (1-1/2)*(1-1/3)*...(1-1/10)

s = 1

For x = 错误!未找到引用源。 To 10

s = s * (1 - 1 / x)

Next x

Print s

4、* 求菲波那契数列(1、1、2、3、

5、8...)的第3到10项的值。

* 程序段如下:

A(1) = 1

A(2) = 1

I = 错误!未找到引用源。

Do While I <= 10

A(I) = A(I - 1) + A(I - 2)

Print "第" & I & "项为: "; A(I)

I = I + 1

Loop

5、* 求S=1!+2!+…10!

* 程序段如下:

s = 错误!未找到引用源。

t = 1

For i = 1 To 10

t= t * i

s = s + t

Next i

Print s

6、* 下面的程序在运行结束时一共执行循环体5 次,最后打印结果为错误!未找到引用源。6 。

For i = 1 To 10 Step 1

i = i + 1

j = j + 1

Next

Print i + j

7、* 求SUM=1×2×3+4×5×6+7×8×9+…28×29×30

* 程序段如下:

错误!未找到引用源。

I = 2

Do While I <= 30

Sum = Sum + (I - 1) * I * (I + 1)

I =错误!未找到引用源。 + 3

Loop

Print "总和为:"; Sum

8、* 设在窗体上面有两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name 属性为Command1),然后编写如下两个事件过程,则程序运行结果为:123321。

Private Sub Command1_Click()

错误!未找到引用源。 = Text1.Text + Text2.Text

Print a

End Sub

Private Sub Form_Load()

错误!未找到引用源。ext1.Text = "123"

Text2.Text = "321"

Print a

End Sub

9、* 判断N是否为完全数(一个数等于它所有因子(不包括自身)之和,如6=1+2+3)。 * 程序段如下:

I = 1

错误!未找到引用源。=InputBox("请输入N的值:")

Do While I <= N - 1

If N Mod I = 0 Then S = S + I

I = I + 1

Loop

If N = S Then

Print "是完全数"

else

Print "不是完全数"

End If

10、* 计算 E=1+1/1!+1/2!+...1/N!,精确到1E-6。

n = 0: t = 1

Term = 错误!未找到引用源。

Do

n = n + 1

t = t / n

Term = Term + t

Loop While t >= 0.000001

Print Term

11、* 下面程序用于求小于和等于50的自然数的平方和,请填空。

* 程序段如下:

private sub form_click()

dim sum as long

sum=0

for i=1 to 50

sum=错误!未找到引用源。um+i^2

next i

print sum

end sum

12、* 下面程序的功能是随机产生一个三位数正整数,将该数和该数的逆序同时输出。Private Sub Form_Click()

Dim a%, s As String, c As String

Randomize

错误!未找到引用源。= Int(Rnd * (999 - 100 + 1) + 100)

错误!未找到引用源。 = Format(a)

c = Right(s, 1) & Mid(s, 2, 1) & Left(s, 1)

Print "三位数是" & a

Print a & "的逆序是" & c

End Sub

13、* 使用Select Case结构将一年中的12个月份,分成四个季节输出。

Private Sub Form_Click()

Dim m%

错误!未找到引用源。 = InputBox("请输入月份")

Select 错误!未找到引用源。case m

Case 1, 2, 3

Print m & "月是第一季度"

Case 4, 5, 6

Print m & "月是第二季度"

Case 7, 8, 9

Print m & "月是第三季度"

Case 10, 11, 12

Print m & "月是第四季度"

End Select

End Sub

14、* 根据π/4=1-1/3+1/5-1/7+…..+(-1)n-1/(2n-1),分别求n=1000、1500、2000、2500时π的近似值。

* 程序代码如下::

Private Sub Form_Click()

For i = 1000 To 2500 错误!未找到引用源。step 500

s = 0

f = 1

For j = 1 To i

t = 1 / (2 * j - 1)

s = s + f * t

f = -f

Next j

Print "i="; i, "pi="; 错误!未找到引用源。

Next i

End Sub

15、* 使用双循环实现正三角形输出

*

***

*****

*******

*********

***********

*************

***************

*****************

*******************

* 程序代码如下:

Private Sub Command1_Cick()

For i = 1 To 10

Print Tab(25 - 错误!未找到引用源。);

For j = 1 To 2 * i - 1

Print "*";

Next j

错误!未找到引用源。

Next i

End Sub

16、* 执行下列事件代码:

Private Sub Command1_Click()

Dim MyString As String

Dim MyLen As Integer

MyString = "Hello World"

MyLen = 错误!未找到引用源。+len (MyString)

Print MyLen

End Sub

在弹出的消息对话框中的内容是:13。

17、* 判断正整数M是否为素数。

* 程序段如下:

FLAG = 错误!未找到引用源。 : M=InputBox("请输入M的值")

For I = 2 To Sqr(M)

If 错误!未找到引用源。%I = 0 Then

FLAG = 0

Exit For

End If

Next I

If FLAG = 1 Then

Print "YES"

Else

Print "NO"

End If

18、* 在窗体上画一个命令按钮,然后编写如下事件过程:

Private Sub Command1_Click()

Dim a As String, b As Integer

a = InputBox("请输入一个数字")

b 错误!未找到引用源。 InputBox("请输入一个数字")

Print "s"; a; b; "ok"

End Sub

程序运行后,单击命令按钮,在输入对话框中分别输入321和456,输出结果为:s321 456 ok。

19、* 在窗体上画一个名称为Command1的命令按钮并编写下列事件过程,程序运行后,则窗体上显示的是10。

Private Sub Command1_Click()

x = Int(Rnd * (20 - 1 + 1) + 1)

Select Case x

Case 1 错误!未找到引用源。o 20

y = 10

Case 11, 13, 15, 17

y = 30

Case Is > 10

y = 50

End 错误!未找到引用源。elect

Print y

End Sub

20、* 下列程序段的执行结果是“HELLO! ZHANG! GOOD MORNING!”。

A = "HELLOGOODMORNING"

B = "WANGZHANGLI"

C = Left(A, 错误!未找到引用源。) + "!"

D = Right(A, 7)

E = Mid(A, 6, 4)

F = Mid(B, Len(B) - 错误!未找到引用源。, 5) + "!"

G = E + " " + D + "!"

H = C + " " + F

Print H + " " + G

21、* 下列程序段的执行结果为-3 3。

X = 5

Y = -20

If 错误!未找到引用源。OT X > 错误!未找到引用源。 Then X = Y - 3 Else Y = X + 3

Print X - Y; Y - X

22、* 古代数学家在编写《算经》时,提出了一个不定方程问题,即著名的“百鸡问题”: * 鸡翁一,值钱五,母鸡一,值钱三,雏鸡三,值钱一。百钱卖百鸡,问鸡翁、母、雏,各几何?

* 程序代码如下:

Private Sub Form_Click()

Dim i As Integer, j As Integer, k As Integer

Print Tab(5); "公鸡"; Tab(15); "母鸡"; Tab(25); "小鸡"

For i = 0 To 20

For j = 0 To 30

错误!未找到引用源。 = 100 - i - j

If 5 * i + 3 * j + k / 3 错误!未找到引用源。 100 Then

Print Tab(5); i; Tab(15); j; Tab(25); k

End If

Next j

Next i

End Sub

23、* 在窗体上画一个文本框,然后编写如下事件过程:

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim Char As String

错误!未找到引用源。har = Chr(KeyAscii)

KeyAscii = Asc(Ucase(Char))

Print 错误!未找到引用源。tring (6, KeyAscii)

End Sub

程序运行后,如果在键盘上输入小写字母“a”,则窗体显示的内容为:AAAAAA。

24、* 在图形控件内输出左下角三角形式的九九乘法表

* 程序代码如下:

Private Sub Picture1_Click()

Dim se As String

Picture1.Print Tab(35); "九九乘法表"

Picture1.Print Tab(35); "---------------"

For i = 1 To 9

For j = 1 To 错误!未找到引用源。

se = i & "×" & j & "=" & i*j

错误!未找到引用源。rint Tab((j - 1) * 9 + 1); se;

Next j

Picture1.Print

Next i

End Sub

25、* 在窗体上画一个名为Command1的命令按钮。单

击命令按钮,执行如下事件过程:

Private Sub Command1_Click()

a$ = "software and hardware"

b$ = Right (a$, 8)

c$ = 错误!未找到引用源。id (a$, 1, 8)

MsgBox a$, , b$, c$, 1

End Sub

则在弹出的信息框(见图 t2-2-1.jpg )的标题

栏中显示的信息是hardware

26、* 输出如下图形。

*********

$$$$$$$

*****

$$$

*

* 程序段如下:

For I = 5 To 错误!未找到引用源。 Step -1

Print Tab(10 - I);

If 错误!未找到引用源。I Mod 2 <> 0 Then

Print String(2 * I - 1, "*")

Else

Print String(2 * I - 1, "$")

End If

Next I

27、* 下面的事件过程随机产生一个3位正整数,并对其逆序处理,最后将产生的数与逆序数相隔4个字符显示在一行上。例如,产生345,输出345 543。

Private Sub Form_Load()

Dim a As Integer, s As String, b As Integer

Randomize

a = 错误!未找到引用源。nt (Rnd * 900 + 100)

s = LTrim(Str(a))

b = Ltrim(Right(s, 1) & Mid(s, 2, 1) & Left(s, 1))

Print a; Spc(4); b

End Sub

28、* 求T=N!

* 程序段如下:

T = 1

错误!未找到引用源。=InputBox("请输入数N的值") Do While I <= N

T = T * 错误!未找到引用源。

I = I + 1

Loop

Print Str(N) & "的阶乘为: "; T

29、* 输出下列文字图形:

AAAA

BBB

CC

D

* 程序代码如下:

Private Sub Form_Click()

For i = 1 To 4

For j = 1 To 5-i

Print Chr$(64 + i);

Next j

错误!未找到引用源。

Next i

End Sub

30、* 求S=1!+2!+…10!

* 程序段如下:

s =错误!未找到引用源。

t = 1

For i = 1 To 10

t= t * i

s = s + t

Next i

Print s

31、* 有如下程序段:

Dim a As String, b As String

a = "12345":

b = "abcde"

For i = 1 错误!未找到引用源。o 5

c = C + Left(a, i) + Right(b, i)

Next i

Print c

运行后,输出的结果是“1e12de123cde1234bcde12345abcde”。

32、* 执行如下语句:

D = 错误!未找到引用源。nputBox("Today", "Tomorrow", "Yesterday", , , "Day befo

re yesterday", 5)

将显示一个输入对话框(见图 t2-2-2.jpg ),在对话框的输入区中显示的信息是Yesterday。

33、* 设计程序,找出50以内所有素数(不包括2)。

* 程序代码如下:

Private Sub Form_Click()

Dim i As Integer, m As Integer, flag As Integer

For m = 3 To 50

flag = 0

For i = 错误!未找到引用源。 To Int(Sqr(m))

If m Mod i = 0 Then

flag = 1

Exit For

End If

Next i

If flag = 0 Then Print m

Next m

End Sub

34、* 有如下程序段:

Dim a As String, b As String

a = "12345":

b = "abcde"

For i = 1 错误!未找到引用源。o 5

c = 错误!未找到引用源。 + Left(a, i) + Right(b, i)

Next i

Print c

运行后,输出的结果是“1e12de123cde1234bcde12345abcde”。

大学VB考试题库

大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是()。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句:a=123& MID("123456",3,2)执行后,a变量中的值是()。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件,这两个文件分别是(B)。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是(C)。 A、https://www.wendangku.net/doc/035301385.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序,应当(D) A、只装入窗体文件(.frm) B、只装入工程文件(.vbp) C、分别装入工程文件和标准模块文件(.bas) D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要(A)。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是(C)。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括(C)。

A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度(Width)和高度(Height)属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用,要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作,要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时,窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上,应将进行(D)设置。 A、将控件的TabIndex属性设置为0

VB新题库(填空题)

所有填空题 1、VB6.0是运行于______操作系统环境下的一个快速可视化程序开发工具,用它进行程序设计,有两个基本的特点,即______和______。 答案:1:Windows9x/NT#Windows9x/NT#Windows9x\NT#Windows9x\NT#Windows9x#Windows NT#Windows9x#WindowsNT#windows9x/NT#windows9x/NT#windows9x\NT#windows9x\NT#windows9x#windows NT#windows9x#windowsNT 2:事件驱动编程#可视化设计 3:可视化设计#事件驱动编程 等级:1难度:1 知识点:VB知识点/VB简介 2、VB是一种面向______的可视化编程语言,它采用______的编程机制。 答案:1:对象 2:事件驱动 等级:1难度:1 知识点:VB知识点/VB的编程环境 3、在VB集成开发环境中,运行应用程序的方法有两种:______或______。 答案:1:编译运行模式#解释运行模式#编译运行#解释运行 2:解释运行模式#编译运行模式#解释运行#编译运行 等级:1难度:1 知识点:VB知识点/VB简介 4、VB的对象主要分为______和______两大类。 答案:1:窗体#控件 2:控件#窗体 等级:1难度:1 知识点:VB知识点/VB的对象、属性、方法和事件 5、VB中,用来描述一个对象的状态或特征的量称之为对象的______。 答案:1:属性 等级:1难度:1 知识点:VB知识点/VB的对象、属性、方法和事件 6、在VB中,最基本的对象是______。 答案:1:窗体 等级:1难度:1 知识点:VB知识点/VB的对象、属性、方法和事件 7、一个对象响应某个事件后所执行的操作是通过一段程序代码来实现,这段程序代码称______。 答案:1:事件过程 等级:1难度:1

vb程序设计试题(含答案)

第一套试题 一、选择题(每题2分,共30分) 1.在VB环境中,工程文件的扩展名是( C ) (A).frm (B).bas (C).vbp (D).frx 2.下面4项中不属于面向对象系统三要素的是( A ) (A)变量(B)事件(C)属性(D)方法 3. \、/、Mod、*这4个算述运算符中,优先级别最低的是( C ) (A)\ (B)/ (C)Mod (D)* 4.要使Print方法在Form_Load事件中起作用,要对窗体的( C )属性进行设置(A)BackColor (B)ForeColor (C)AutoRedraw (D)Caption 5.不论何控件,共同具有的属性是( B ) (A)Text (B)Name (C)ForeColor (D)Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”,以下语句正确的是( D ) (A)Form1.Caption=“欢迎使用VB”(B)Form1.Caption=ˊ欢迎使用VBˊ(C)Form1.Caption=欢迎使用VB (D)Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构,这3种基本结构是( D ) (A)递归结构,选择结构,循环结构(B)选择结构,过程结构,顺序结构 (C)过程结构,输入、输出结构,转向结构(D)选择结构,循环结构,顺序结构 8.给变量赋值a=123+MID(“123456”,3,2),a变量中的值是( D ) (A)“12334”(B)123 (C)12334 (D)157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数,不正确的语句是( D ) (A)If sex=“男”And age<40 And InStr(duty,“教授”)>0 Then n=n+1 (B)If sex=“男”And age<40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 (C)If sex=“男”And age<40 And Right(duty,2)= “教授” Then n=n+1 (D)If sex=“男”And age<40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容,可用来实现的方法是( C )

vb题库(选择与填空)

一、单选题(每小题1分,共99 分) 1. 假定Picture1 和Text1 分别为图片框和文本框的名称,下列语句中不正确的是______ 。 A Picture1.Print 25 B Text1.Print 25 C Print 25 D Debug.Print 25 2. 在Visual Basic 中要将一个窗体从内存中释放,应该使用以下语句中的______ 。 A UnLoad B Stop C Close D Hide 3. 如果组合框ComBo1中已有10项数据,应使用语句______将数据"Mydata"插入到第5项。 A ComBo1.Insert "Mydata", 4 B ComBo1.Insert "Mydata", 5 C ComBo1.AddItem "Mydata", 5 D ComBo1.AddItem "Mydata", 4 4. 如果列表框List1中已有10项数据,应使用语句______将数据"Mydata"插入到列表框的第3项。 A List1.Insert "Mydata", 3 B List1.AddItem "Mydata", 2 C List1.AddItem "Mydata" ,3 D List1.Insert "Mydata", 2 5. 语句If x=1 Then y=1,下列说法正确的是____________。 A x=1和y=1为赋值语句 B x=1为赋值语句,y=1为关系表达式 C x=1为关系表达式,y=1为赋值语句 D x=1和y=1均为关系表达式 6. 删除列表框中指定的项目所使用的方法为______ 。 A Move B Clear C Remove D RemoveItem 7. 不论何控件,共同具有的属性是______________。 A ForeColor B Name C Text

信息考试选择判断-vb语言

题目描述 418 VB中,(B)控件对象在运行时一定不显示。A:Label B:Timer C:TextBox D:CommandButton 419 VB中,将Interval属性值设置为(D)时,计时器控件每隔5秒钟产生一个计时器事件。A:5 B:500 C:300 D:5000 420 VB中,可以弹出一个对话框的函数是(D)A:Int() B:Rnd() C:V al() D:MsgBox() 421 VB中,Rnd(B)函数的值不可能是(B)A:0 B:1 C:0.1234 D:0.00005 422 VB中,Int(5.9)的返回值是(C)A:3 B:4 C:5 D:6 423 "下面程序的运行结果是(B) Private Sub Command1_Click(B) Text1.Text = ""123"" Text2.Text = ""321"" a = Text1.Text + Text2.Text Print a End Sub" A:444 B:123321 C:321123 D:132231 424 VB中正确的循环语句是(B)A:For x=1 to step 10 B:For x=1 to 10 step 2 C:For x=1 to 10 step -1 D:For x=10 to 1 425 "下面程序的运行结果是(B) Dim a As Integer, b As Integer a=6 b=15 S=1+(a*b)/2 Print S" A:6 B:46 C:15 D:45 426 "VB中,执行下面的程序段后,b的值为(A) a = 100 b = 20 a = a + b b = a - b" A:100 B:120 C:20 D:80 427 "x=10 If x<=12 then y=2*x+6 Else y=x/2 End If 上述程序段中y的值是(A)" A:26 B:25 C:10 D:5 428 "下列程序段的运行结果是(C) x=3 Select Case x Case 5 Print ""优秀"" Case 4 Print ""良好"" Case 3 Print ""通过"" Case Else Print ""不通过"" End Select" A:优秀B:良好C:通过D:不通过 429 执行Do……Loop Until语句时(B)A:先判断后循环B:先循环后判断C:顺序执行D:其余说法都不对 430 VB中,定义a为整型变量的语句是(A)A:Dim a As Integer B:Dim a As Single C:Dim a As Date D:Dim a As Byte 431 对VB窗体中控件的操作错误的是(A)A:单击Delete键一次只能删除一个控件B:单击Delete键一次可以同时删除多个控件C:按住Shift键,依次单击每个要选择的控件,可以同时选中多个控件D:按住Ctrl键,依次单击每个要选择的控件,可以同时选中多个控件 432 VB中,多个语句写在同一行时,每个语句之间用(B)符号分隔。 A:, B:: C:. D:; 433 VB中,一条语句要分行书写,用(C)符号作续行符。A:“-”B:“+”C:“_” D:“…” 434 "下列VB程序段执行后x的值为(B)a=8 If a<9 Then x=9 End If Print x" A:8 B:9 C:0 D:1 435 在VB中,表达式9\4的结果是(B)A:2.5 B:2 C:3 D:40 436 在VB中,Int(23.512)的值为(D)A:-23 B:-24 C:24 D:23 437 VB中,定义a为实型变量的语句是(B)

VB题库程序填空

程序填空〖第1题〗『程序填空』(1分)(题号:59) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- ' 功能:输入一个数,若大于0,则显示"+";若小于0, ' 则显示 "-";若等于"0",则显示"零"。 '------------------------------------------------------- Private Sub Command1_Click( ) x = Val Select Case x '**********SPACE********** Case is > 0 = "+" Case Is < 0 '**********SPACE********** = "-" '**********SPACE********** Case is = = "零" End Select End Sub 答案: 1). Case Is > 0 2). = "-" 3). Case 0 或 Case Else 或 Case Is = 0 〖第2题〗『程序填空』(1分)(题号:60) '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能:输入任何一个英文字母x, ' 若x的值为"a","c","d-f" ,则显示x的大写字母; ' 若x的值为"m","o","p-z",则显示x的小写字母; ' 若x的值为其它的值,则显示xa(如输入的X的值是g,则显示ga)。 '------------------------------------------------------- Private Sub Command1_Click() x = '**********SPACE********** 【】 '**********SPACE********** Case 【】 = UCase(x) Case "m", "o", "p" To "z" = LCase(x) Case Else '**********SPACE********** 【】 End Select End Sub 答案: 1). Select Case x 2). "a", "c", "d" To "f" 3). = Trim(x) + "a" 或 = x + "a" 〖第3题〗『程序填空』

vb课后练习答案习题解答 (5)

第5章数组与记录 5.1 填空题 1.若要定义一个包含10个字符串元素,且下界为1的一维数组s,则数组说明语句为()。 答案:Dim s(1 To 10) As String 2.若要定义一个元素为整型数据的二维数组a,且第一维的下标从0到5,第二维下标从-3到6,则数组说明语句为()。 答案:Dim a(0 To 5,-3 To 6) As Integer 3.如果数组元素的下标值为实数,则VB系统会按()进行处理。 答案:四舍五入原则 4.数组元素个数可以改变的数组称为();数组元素可以存放不同类型数据的数组称为()。 答案:可调数组、可变类型数组 5.数组刷新语句用于()。若被刷新的数组是数值数组,则把所有元素置();若被刷新的数组为字符串数组,则把所有元素置()。 答案:清除指定数组内容、0、空字符串 10.控件数组是由一组类型和()相同的控件组成,共享()。 答案:名字、同一个事件过程 11.控件数组中的每一个控件都有唯一的下标,下标值由()属性指定。 答案:Index 12.建立控件数组有两种方法:()和()。 答案:在设计阶段通过相同Name属性值来建立、在程序代码中使用Load方法 5.2 选择题 1.下列一维数组说明语句错误的是()。 a) Dim b(100) AS Double b) Dim b(-5 To 0) AS Byte c) Dim b(-10 To –20) AS Integer d) Dim b(5 To 5) AS String 答案:c 2.若有数组说明语句为:Dim a(-3 To 8),则数组a包含元素的个数是()。 a) 5 b) 8 c) 11 d) 12 答案:d 3.设有数组说明语句:Dim c(1 To 10),则下面表示数组c的元素选项中()是错误的。 a) c(i-1) b) c(5+0.5) c) c(0) d) c(10) 答案:c 4.下列数组说明语句中正确的是()。 a) Dim a(-1 To 5,8)AS String b) Dim a(n,n)AS Integer c) Dim a(0 To 8,5 To –1)AS Single d) Dim a(10,-10)AS Double

vb单选判断题题库

序号题干答案 1 VB是一种面向对象的程序设计语言。对 2 VB通过窗体管理构成应用程序的各类文件的集合。错 3 VB支持弹出菜单,所谓“弹出菜单”是指单击鼠标后打开的 菜单。 错 4 Visual Basic程序的运行,仅能从某一窗体启动,如Form1 窗体。 错 5 Visual Basic程序的运行可以从Main()过程启动,也可以从 某 个窗体启动。 对 6 Visual Basic提供的几种标准坐标系统的原点都是在绘图区 域 的左上角,如果要把坐标原点放在其它位置,则需使用自定 义 坐标系统。 对 7 单击并拖拽工具箱中所需的控件到窗体上即可完成添加控件 任务. 错 8 Dim i, j as integer 表明i和j都是整型变量。错 9 Single 和Double型用于保存浮点数,在VB中定义单精度浮 点8位 ,双浮点16位. 错 10 Visual_basic是合法的变量名。对 11 可以用"&","+"合并字符串,但是用在数值变量时,"+"可能 会 将两个数值加起来。 对 12 某一过程中的静态变量在过程结束后,静态变量及其值可以 在 其它过程中使用。 错 13 全局变量用global或public关键字声明,且仅在通用声明 处可 以定义。 错 14 如果某子程序add用public static sub add()定义,则该子 程 序的变量都是局部变量。 错

15 设A=3,B=4,C=5,D=6,则表达式A>B And C<=D Or 2*A>C 的值是False。 错 16 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来 定义. 错 17 在VB中,运算 "ABCDE123A" Like "[a*a] " 的结果是True。错 18 在VB中,运算 "D" Like "[! A-Z]" 的结果是True. 错 19 在VB中,运算"ABA"Like"[a?a]"的结果是False。对 20 MsgBox()函数建立的消息框能显示信息也能输入信息。错 21 MsgBox()函数建立的消息框能显示信息也能输入用户的信 息. 错 22 Picture图片框既可用来显示图片和绘制图形,也可用Print 方 法来显示文字. 错 23 在框架控件内的几个单选按钮中,可有一个或多个单选按钮 的Value属性为True。(正确答案:只有一个) 错 24 *.bmp格式的图片,如果在autosize设为False的图片框, 它会 以图片框大小完整显示出来。 错 25 “菜单编辑器”中至少要填“名称”和“标题”这两个框, 才 能正确完成菜单栏的设计。 错 26 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 “工程”/“部件”载入或移去。 对 27 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始 角、 终止角的大小相关,而且与起始角、终止角的正或负相关。 对 28 Frame控件是一种容器控件,因此它可有它自己的坐标系. 错 29 Function函数有参数传递,并且一定有返回值。错 30 Image控件不能用作容器使用。对 31 Image控件使用的资源比Picture控件使用的多. 错 32 Line(500,500) – (2500,2500) 命令能够正确画出矩形。错 33 List1.Clear是清除List1的全部列表项,所以Clear是对象 的方法。 对 34 move方法的一般形式是:对象名.move A,B[,C,D],其中A指 Left ,C 指width. 错

vb6.0练习题及答案

一、选择题 1.在设计应用程序时,可以查看到应用程序工程中的所有部分的窗口是()。 A.窗体设计.代码C.属性D.工程资源管理器窗口>> 答案:d 2.窗体的Load事件的触发时机是()。 A.用户单击窗体时B.窗体被加载时C.窗体显示之后D.窗口被卸载时>> 答案:b 3.与传统的程序设计语言相比,Visual Basuc最突出的特点是()。 A.结构化程序设计B.程序开发环境C.事件驱动编程机制D.程序调试技术 答案:C 4.VB6.0集成开发环境的主窗口不包括()。 A.标题栏B.菜单栏C.状态栏D.工具栏 答案:c 5.如果对象的名称为Mytext,而且对象有一个属性Text,那么在代码中引用该属性的正确格式是()。 A.Text.Mytext B.Mytext.text C.Mytext.(Text)D.Mytext*Text 答案:b 6.下列可以激活属性窗口的操作是()。 A.用鼠标双击窗体的任何部位B.执行“工程”菜单中的“属性窗口”命令C.按Ctrl+F4 D.按F4键 答案:b d 7.假定已在窗体上画了多个控件,并有一个控件是活动的,为了在属性窗口中设置窗体的属性,预先应制造的操作是()。 A.单击窗体上没有控件的地方B.单击任一个控件C.不执行任何操作D.双击窗体的标题栏 答案:a 8.如果在文本框中键入字符时,只显示某个字符,如星号(*),应设置文本框的()属性。 A.Caption B.PasswordChar C.Text D.Char 答案:b 9.如果想让文本框中的内容在运行时不能编辑,需将文本框的()属性设置为True。 A.Locked B.MultiLine C.TabStop D.Visible 答案:a 10.对于定时器(Timer)控件,设计其定时是否开启的属性是()。 A.Index B.Tag C.Enabled D.Left 答案:c 11.要在窗体Form1内显示“myfrm”,使用的语句是()。 A.Form.Caption=“myfrm”B.Form1.Caption=“myfrm”C.Form1.Print=“myfrm”D.Form.Print=“myfrm” 答案:b 12.对象的性质和状态特性称为()。 A.事件B.方法C.属性D.类 答案:c 13.下列正确的赋值语句是()。 A.x+y=20 B.y=x+20 C.3x=y D.s=π*r*r

VB测验选择题真题精选

VB测验选择题真题精选

————————————————————————————————作者:————————————————————————————————日期:

VB考试真题精选,考前必备神器20 开通黄钻 21, a = 1: b = 2: plus S, a, b: Print S:不能使其输出结果为3的plus过程为( b )。(1分) A、Sub plus(sum, a , b ): sum = a + b: End Sub B、Sub plus(ByVal sum , a , b ): sum = a + b: End Sub C、Sub plus(sum , ByVal a, ByVal b ): sum = a + b: End Sub D、 D、Sub plus(sum , ByRef a , ByRef b ): sum = a + b: End Sub 22、通过关键字( c )声明的局部变量,在整个程序运行中一直存在。(1分) A、Dim B、Public C、Static D、Private 23、过程的作用域分为( c )。(1分) A、窗体级和局部级 B、模块级和局部级 C、窗体/模块级和全局级 D、窗体/模块级和局部级 24、在窗体的通用段声明变量时,不能使用( d )关键字。(1分) A、Dim B、Public C、Private D、Static 25、能在一个工程的所有程序中使用的变量,称为( b )。(1分) A、局部变量 B、全局变量 C、窗体级变量 D、模块级变量 27、使用Public Const语句声明一个全局的符号常量时,应该将该语句放在( b )。(1分)

vb选择与判断

VB 编程基础判断题(0错误 1正确) 1. Excel 可以处理电子表格数据,所以它是程序设计语言。答案: 0 2. 每种程序设计语言都有自己的语法和规则。答案:1 3. 使用VB 设计程序时,可以不用创建工程。答案:0 4. 通常状况下,我们会通过两种方法修改对象属性,一种是利用属性窗口,另一种是利用代码。答案:1 5. 在 VB 开发环境中,如果对象窗口工具箱工程资源管理器属性窗口和窗体布局窗口等被关闭,可以通过“视图”菜单再次打开。答案:1 6. 在VB 窗体中添加第一个标签控件后,该标签控件的Caption 标题属性设置的默认值是“command1”。答案:答案:0 7. 在VB 中,可以借助键同时选中多个对象。答案:1 8. 在VB 中,调整选中的多个控件的大小和位置时,要最后选中作为调整依据的控件。答案:1 9. 在VB 中,一个程序可能包含若干个不同的文件,但一定不包括工程文件和窗体文件。答案:0 10. 在VB 中,一个程序中的工程文件扩展名为vbp ,窗体文件扩展名为frm。答案:1 11. 在VB 中,要想让同一窗体上的3 个按钮控件的大小相同,可以使用“格式”菜单中的“统一尺寸”子菜单的“两者都相同”命令。答案:1 12. 在VB 中,标签一般用来显示信息,文本框用来接受用户输入的信息。答案:1 13. 在VB 程序中,被使用的窗体和控件统称为对象。答案:1 14. 在VB 中,属性窗口通常显示的是当前被选中的对象的具体属性。答案:1 15. 在VB 中,对象的“名称”和“Caption”是两种相同的属性。答案:0 16. 在VB 中,标签和命令按钮显示的文字由其“Text”属性确定,文本框中显示的文字由其“Caption”属性确定。答案:0 17. 在VB 中我们可以接触两种程序界面,一种是窗体中不带网格点的设计界面,另一种是带网格点的运行界面。答案:0 18. 属性窗口有两个选项卡,一个是按字母排序别一个是按类进行排,但都是用来显示某一对象的各种属性的。答案:1 19. 在VB 中,语句命令中的符号,都必须是英文字符。答案:1 20. 在VB 中,一个对象只能响应一种事件。答案:0 21. VB 的代码窗口包括对象名框事件过程名框和代码编辑区3 部分。答案:1 22. 在VB 中,125 是数值型数据,"125"也是数据型数据。答案:0 23. 在VB 中,可以使用“User & name”作为变量名。答案:0 24. 在VB 程序中,使用Option Explicit 后,如果再使用未加声明的变量,运行程序时会出现错误提示。答案:1 25. 在VB 中CStr 函数可以将数值型表达式的值转换成对应的字符串。答案:1

VB题库-填空练习题

填空题 第1题表达式 1 and 0的值 ______________________ 答案: False 第2题把"Visual Basic程序设计"添加到列表框 lstBooks____________________________ 答案: lstBooks.AddItem "Visual Basic 程序设计" 第3题 For k=35 to 0 step 3 next k 语句的循环次数是_______________________答案:0 第4题 Val("123.55ab456")的值是多少 _____________________________ 答案:123.55 第5题每隔定时器控件的Interval属性值时间间隔,单位为毫秒,定时器会触发一次 ________________________事件 答案:Timer 第6题表达式(-3) And 8 的值为 _______________________. 答案:True 第7题 Print "x=" & (2=4) 的结果为 ________________________. 答案: x=False 第8题要使同一类型控件组成一个控件数组,必须要求_______________________. 答案: Name 相同或名称相同 第9题循环语句FOR K=1 TO 10 STEP –1控制的循环次数为___________________. 答案: 0 第10题设a=2,b=3,c=4,d=5,则NOT a<=c OR 4*c=b^2 AND b<> a+c 的值为______________. 答案: False 第11题声明定长为10个字符变量Sstr的语句为______________________. 答案: Dim Sstr as String*10 或 Sstr as String*10 第12题在VB中,若要将字符串"12345"转换成数字值应使用的类型转换函数是 ____________. 答案: VAL 或 Cint 第13题在一条Dim语句中可以声明多个变量,如Dim strVar,intVar,sngVar As Integer, 则strVar、intVar与sngVar的数据类型分别是Variant、Variant和_____________________. 答案: Integer 第14题滚动条控件主要支持两个事件,它们是scroll和____________________事件. 答案: change 第15题所有控件都具有的共同属性是 ____________________属性. 答案: name 〖第16题〗Visual Basic为添加到窗体上的第一个图片框picture提供的默认对象名为 ______. 答案: Picture1 〖第17题〗A和B同为正整数或同为负整数的VB 表达式为________________. 答案: A=INT(A)★AND★ B=INT(B)★ AND ★ A*B>0 〖第18题〗变量min@表示_______________类型的变量. 答案:货币数据变量或货币 〖第19题〗表达式 32\7 MOD 3^2 的值是____________________. 答案: 4 〖第20题〗把整型数1赋给一个逻辑型变量,则逻辑变量的值为___________________. 答案: True 〖第21题〗求x与y之积除以z的余数的VB表达式为_________________________. 答案: x*y★Mod★z 〖第22题〗以图片框Pic1的中心位置为圆心,以700为半径在Pic1上画一个圆的方法是 ______ 答案: pic1.Circle (pic1.width/2,pic1.height/2),700 〖第23题〗要使一个按钮设为默认按钮,应把此按钮的_____________属性的值设为True. 答案: Default 〖第24题〗在VB中,若要使一个文本框(Text)中的内容在超过文本框的宽度时能够自动换行显示,应当将这个文本框的______________属性的值设置为True. 答案: MultiLine 〖第25题〗设置计时器控件只能触发 ____________________事件. 答案: timer 〖第26题〗VisualBasic6.0用于开发 ____________________环境下的应用程序. 答案: WINDOWS

vb练习题及答案.doc

vb 练习题及答案 【篇一:vb 习题(含答案)】 lass=txt>1 、vb 程序中,通常不会产生错误提示的是( )。(1 分) a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段,双击窗体上任一空白处,打开的窗口是( )。(1 分) a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中,正确的说法是( )。(1 分) a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能,可以通过按下功能 键( )得到帮助。( 1 分) a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。( 1 分) a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。( 1 分) a、0 b 、1 c、2 d 、5 7、文本框没有( )属性(1 分) a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。( 1 分) a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中,定义x 为变体型变量的是( )。(1 分) a、dim x as double b 、dim x c、dim x! d 、x%=23

25、设有如下变量声明:dim testdate as date ,为变量testdate 正确赋值的表达方式是( )。(1 分) a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句,a=beijing :b=shanghai :print a,b 对其输出结果的描述中,正确的是( )。(1 分) a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a :a=b: b=t 执行后( )。(1 分) a、a 值为3,b 值为3 b 、a 值为3,b 值为5 c、a 值为5,b 值为5 d 、a 值为5,b 值为3 28、下列语句中,正确的是( )。(1 分) a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后, y 结果是( )。(1 分) a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) , 将显示一个输入对话框,在对话框的输入区中显示的信息是( )。(1 分) a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮,先后在两个输 入对话框中输入123 和321 ,窗体显示的内容是( )。(1 分) a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后,所产生的消息框的标题是 ( )。(1 分) a、aaa b 、bbb

VB选择题库(3)

1.不论哪种控件,共同具有的属性是Name 2.要使某控件在运行时不可显示,应对其设置的属性是Visible 3.要是窗体在运行时不可改变窗体的大小和没有最大化、最小化按钮,需设置的属性是Borderstyle 4.当程序运行时,系统自动执行启动窗体的事件过程是Load 5.要判断在文本框中是否按下了Enter键,应在文本框的Keypress 事件中判断 6.要使标签控件显示时不覆盖其背景内容,要对其设置的属性是Backstyle 7.复选框的Value属性为0时,表示复选框未被选中 8.将数据项“语文”添加到列表框(list1)中成为第一项应使用的语句是“List1.Addltem”“语文”,“0” 9.执行下面的程序,列表框中的数据项有“1,3” Sub Form_Click() For i = 0 To 4 List1.AddItem i Next For i = 0 To 2 List1.RemoveItem i Next End Sub 10.如果列表框(list1)中没有被选定的项目,则执行List1.RemoveItem List1.ListIndex语句的结果是 D A.移去第一项 B.移去最后一项 C.移去最后加入列表的项 D.其他都不对 11.下列可以把当前目录下的图形文件Pic1.jpg装入图片框Picture1中的语句为“Picture1. Picture=Load Picture(“”Pic1.jpg””)” 12.假定在图片框Picture1中装入了一个图形,为了清除该图形(不是删除图片框)应采用的正确方法是“执行语句Picture1. Picture =Load Picture(“””’”)” 13.当组合框的Style属性值设置为2时,其为下拉式列表框 14.要使定时器无效应将Interval属性取值为0 15.假定定时器控件的Interval属性为1000,Enable属性为Ture,并且有下面的事件过程 Private Sub Timer1_Timer() Beep End Sub 计算机将发出Beep声的次数为 A.1000次 B.0次 C.1次 D.其他都不对 16.下面语句能正确地把列表框list1从1数起的第4项的内容设置为“aaaa”的是“List1.List(3)=””aaaa””” 17. 下面语句能正确地把列表框list1从1数起的第3项的内容设置为“aaaa”的是“List1.List(2)=””aaaa””” 18.在窗体上画一个文本框,为了在程序运行后隐藏该文本框,应使用的语句为Text1.Visible=False 19.在窗体上画一个文本框Text1和一个标签Label1,要求程序运行后,如果在文本框输入字符,则立即在标签中显示相同的内容,一下可以实现上述操作的事件过程的是 “Private Sub Text1_Change() Lebel1.Caption = Text1.Text

程序设计语言VB单项选择题及答案

《程序设计语言VB》单选题 1. Visual Basic是一种面向()的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2.在Visual Basic6.0中规定工程文件的扩展名是()。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是()。 A. for B. frm C. vbp D. bas 4.如何使一个标签或按钮控件在运行时不可用()。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5.控件的字体可在属性窗口的()属性中调整? A. Font B. Color C. Text D. Caption 6.若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是()。 A. Value B. Cancel C. Default D. Enabled 7.在VB中,记录对象数据的是()。 A. 方法 B. 事件 C. 属性 D. 语句

8.在文本框上显示文本的属性是()。 A. Value B. Text C. Print D. Enabled 9. InputBox函数返回值的类型为()。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串(视输入的数据而定) 10.设有语句:a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是()。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11.下列控件中可用于接受用户输入文本,又可用于显示文本的是()。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12.语句PRINT "25*4"的输出结果是()。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13.只能用来显示字符信息的控件是()。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14.下列可作为Visual Basic变量名的是()。 A. A%A B. 4A C. ?xy D. Stemp 15.下列哪个符号不能作为VB中的变量名()。 A. timefly B. pass4

vb真题(选择题)

1、下列叙述中,错误的是( A )。(1分) A、一条语句可以分为多行书写,但要在上行末加上VBCrLf B、在同一行上书写多条语句,应在两两语句中加上:号 C、可以用Rem或'注释单行语句 D、VB程序代码不区分字母的大小写 2、下列叙述正确的是( D )。(1分) A、Visual Basic的事件是由用户定义的 B、Visual Basic程序从主窗体开始执行 C、Visual Basic程序是过程驱动的 D、保存一个Visual Basic程序,应分别保存其窗体模块、标准模块和工程文件 3、被对象所识别的动作与对象可执行的动作分别称为对象的( A )。(1分) A、方法、事件 B、事件、方法 C、事件、属性 D、过程、属性 4、下列关于VB编码规则的叙述中,正确的是( C )。(1分) A、一条语句可以分为多行书写 B、多条语句不能书写在同一行上 C、每条语句以分号;结尾 D、应用程序代码字母是区分大小写的 5、( D )不属于面向对象系统的三要素。(1分) A、事件 B、属性 C、方法 D、变量 6、下列叙述中,不正确的叙述是( C )。(1分) A、注释语句是非执行语句,仅对程序的有关内容起注释作用,客观存在不被解释和编译 B、注释语句能放在整个代码程序的最后 C、注释语句可以放在代码中的任何位置 D、代码中加入注释语句的目的是提高程序的可读性 7、下列叙述错误的是( B )。(1分) A、不允许使用行号与标号 B、单条语句可分行书写 C、同一行上可以书写多条语句 D、VB代码不区分字母的大小写 8、窗体设计器是用来设计( B )。(1分) A、应用程序的代码段 B、应用程序的界面 C、对象的属性 D、对象的事件 9、启动Visual Basic后,系统为用户新建的工程起一个名为( A )的临时名称。(1分) A、工程1 B、窗体1 C、工程 D、窗体 10、在界面设计时,双击窗体中的对象后,Visual Basic将显示的窗口是( C )。(1分) A、立即窗口 B、属性窗口 C、代码窗口 D、工程资源管理器窗口 11、VB应用程序在( A )模式下不能编辑代码和设计界面。(1分) A、运行 B、中断 C、设计 D、以上均不能 12、如果要向工具箱中加入控件的部件,可以利用“工程”菜单中的( B )命令(1分) A、引用 B、部件 C、工程属性 D、加窗体 13、如果Visual Basic环境中缺少某个窗口,一般应该从主菜单的( D )下拉菜单中寻找并打开。(1分) A、编辑 B、文件 C、调试 D、视图 14、标准控件不包括( D )控件。(1分) A、驱动器列表框 B、目录列表框 C、文件列表框 D、通用对话框 15、在设计窗体时,如果窗体上没有显示网格会感到不方便,( c )可以使网格出现。(1分) A、使用“编辑”菜单上的相关命令 B、使用“格式”菜单上的相关命令 C、使用“工具”菜单上的相关命令 D、使用“工程”菜单上的相关命令 16、在Visual Basic中,某一事件对应的程序叫( b )。(1分)

相关文档