淮阴工学院vb选择填空题

1. 单选题：（4.0分）

有如下程序：

Private Sub Command1_Click()

x = InputBox("input value")

Select Case x

Case Is > 0

y = x + 1

Case Is = 0

y = x + 2

Case Else

y = x + 3

End Select

Print x; y

End Sub

假设运行时从键盘上输入-5，输出结果是_______。

A. -5 -2

B. -5 -4

C. -5 -3

D. -5 -5

解答：A

参考答案： A

2. 单选题：（4.0分）

下列程序段的执行结果是_______。

X = 2

Y = 1

If X * Y < 1 Then Y = Y - 1 Else Y = -1

Print Y - X > 0

A. True

B. False

C. -1

D. 1

解答：B

参考答案： B

3. 单选题：（2.0分）

关于语句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为关系表达式

解答：C

参考答案： C

4. 单选题：（2.0分）

Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是_______。

A. Case 20>Is

B. Case x<=8 ，10 to 25

C. Case Is>9 And Is<25

D. Case Is>x

解答：D

参考答案： D

5. 单选题：（4.0分）

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

Private Sub Command1_Click()

N = Text1.Text

Select Case N

Case 1 To 20

X = 10

Case 2, 4, 6

X = 20

Case Is < 10

X = 30

Case 10

X = 40

End Select

Text2.Text = X

End Sub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是____

A. 10

B. 20

C. 30

D. 40

解答：A

参考答案： A

6. 单选题：（4.0分）

运行下面程序，如果输入85，则输出结果是_____。

Dim a As Integer, i As Integer

a = InputBox("input a:")

If a > 60 Then i = 1

If a > 70 Then i = 2

If a > 80 Then i = 3

If a > 90 Then i = 4

Print "i="; i

A. i=1

B. i = 2

C. i = 3

D. i = 4

解答：C

参考答案： C

7. 单选题：（4.0分）

下面程序段的运行结果为。

Dim s As Integer, i As Integer

i = 1: s = 1

Do

i = i + s

Loop Until s > 10

Print i, s

A. 11 1

B. 10 1

C. 溢出

D. 11 10

解答：C

参考答案： C

8. 单选题：（4.0分）

执行以下语句后，a的值为_____。

Dim a As Integer

a = 1

Do

a = a + 2

Loop Until a = 100

A. 99

B. 100

C. 溢出

D. 101

解答：C

参考答案： C

9. 单选题：（4.0分）

执行以下语句后，a的值为_____。

Dim a As Integer

a = 1

Do

a = a + 2

Loop While a = 100

A. 1

B. 3

C. 溢出

D. 101

解答：B

参考答案： B

10. 单选题：（4.0分）

在下面的程序段中，循环体将执行______次。

For v=20 To 10 Step -2

print v

Next v

A. 5

B. 6

C. 10

D. 0

解答：B

参考答案： B

11. 单选题：（4.0分）

下面程序运行后，单击command1后屏幕显示是_________。

Private Sub command1_click()

For i = 1 To 4

If i > 3 Then Exit For

Next i

For j = 1 To 6

i = i + j

Next j

Print i, j

End Sub

A. 26 ７

B. 257

C. 25６

D. 26 6

解答：B

参考答案： B

12. 填空题：（6.0分）

下面程序的功能是：输入X的值，按以下公式求Y的值。

Y=

y=100-X -100≤X<10

y=100+X 10≤X≤100

y=400 100

Private Sub command1_click()

x = Val(text1.Text)

Select Case x

Case （1）

Print "x<-100 or x>200"

Case （2）

y = 100 - x

Case （3）

y = 100 + x

Case Else

y = 400

End Select

text2.Text = y

空1解答：Is<-100

空1参考答案：Is<-100,Is>200、Is>200,Is<-100

空2解答：Is>200、Is>200

空2参考答案：Is<10

空3解答：Is<-100

空3参考答案：Is<=100、10 to 100

13. 填空题：（4.0分）

任意输入两个数a和b，要求a中存放较大的数,完善以下程序。

Private Sub Form_Click()

Dim a As Integer, b As Integer

a = InputBox("输入第一个数")

b= InputBox("输入第二个数")

If a

（1）

a =b

（2）

End If

Print a; b

End Sub

空1解答：temp = a

空1参考答案：temp = a

空2解答： b = temp

空2参考答案：b = temp

14. 填空题：（4.0分）

阅读下列程序，如果运行时从键盘上输入5，则输出的结果为_______。

Private Sub Command1_Click( )

Dim n As Integer

n = InputBox("输入n的值")

Do While n > 0

n = n - 1

Print n;

Loop

End Sub

空1解答： 4 3 2 1 0 0

空1参考答案： 4 3 2 1 0 0

15. 填空题：（4.0分）

以下程序是求1到1000之间所有能被3整除的数的和，按要求完善程序。

Private Sub Command1_Click()

Dim n As Integer, s As Long

n = 1

Do While n <= 1000

If n Mod 3 = 0 Then (1)

（2）

Loop

Print s

End Sub

空1解答：s=s+n

空1参考答案：s=s+n、s=n+s

空2解答：n=n+1

空2参考答案：n=n+1、n=1+n

16. 填空题：（6.0分）

以下程序用于验证一个自然数N的立方等于N个连续的奇数之和，其中最大的奇数P=N*（N+1）-1。例如：43=19+17+15+13，最大奇数等于19。要求用户任意输入一个自然数，比如4，如满足定理，则在窗体上按如下格式输出：4的立方64=19+17+15+13，否则提示“定理不成立！”。

Private Sub Form_Click( )

Dim n As Integer, num As Long, p As Integer

Dim s As Long, i As Integer, j As Integer

n = InputBox("请输入任一自然数")

num =（1）

p = n * (n + 1) - 1

For i = 1 To n

s = s + p

（2）

Next i

p = n * (n + 1) - 1

If s = num Then

Print n; "的立方"; num; "=";

For j = 1 To （3）

Print p; "+";

p = p - 2

Next j

Print p

Else

MsgBox "定理不成立！"

End If

End Sub

空1解答：n^3

空1参考答案：n*n*n、n^3

空2解答：p=p-2

空2参考答案：p=p-2

空3解答：n-1

空3参考答案：n-1

17. 填空题：（6.0分）

以下程序的功能是随机产生20个1到100之间的正整数，去掉一个最大数和最小数，然后取其平均数。

Private Sub Form_Click()

Dim s As Integer, i As Integer

Dim k As Integer, max As Integer, min As Integer

Randomize

k = Int(Rnd * 100) + 1

max = k: min = k

（1）

For i = 1 To 19

k = Int(Rnd * 100) + 1

s = s + k

If （2） Then max = k

If k < min Then min = k

Next i

s = （3）

Print "average="; s / 18

End Sub

空1解答：s=k

空1参考答案：s=k

空2解答：k>max

空2参考答案：k>max、max<="">

空3解答：s-max-min

空3参考答案：s-max-min、s-min-max

18. 填空题：（6.0分）

完善下列程序，要求实现按每行5个输出1到100之间所有的素数。

Private Sub Form_Click()

Dim n As Integer, i As Integer

Dim k As Integer, flag As Boolean

For n = 2 To 100

(1)

For i = 2 To Sqr(n)

If n Mod i = 0 Then

flag = False

(2)

End If

Next i

If flag Then

Print n;

(3)

If k Mod 5 = 0 Then Print

End If

Next n

End Sub

空1解答：flag=true

空1参考答案：flag=true

空2解答：exit for

空2参考答案：exit for

空3解答：k=k+1

空3参考答案：k=k+1、k=1+k

19. 填空题：（6.0分）

下面的程序是找出两个正整数a和b，使a

Private Sub Command1_Click()

Dim a As Integer, b As Integer

Dim m As Integer, n As Integer

Dim r As Integer, k As Integer

For a = 1 To 49

（1）

m = a: n = b

Do

（2）

m = n

n = r

Loop Until r = 0

If m Mod 3 = 0 Then

（3）

Print a; b

End If

Next a

Print "符合条件的数对个数为" & k & "个"

End Sub

空1解答：b=99-a

空1参考答案：b=99-a

空2解答：r=m mod n

空2参考答案：r=m mod n

空3解答：k=k+1

空3参考答案：k=k+1、k=1+k

20. 填空题：（6.0分）

从键盘上输入任一正整数n，判断该数是否是完全数。如果一个数的所有因子和正好等于该数，则称该数为完全数。

Private Sub Command1_Click()

Dim n As Integer, i As Integer

Dim s As Integer

n = InputBox("请输入要判断的数")

i = 1

（1）

Do

i = i + 1

If n Mod i = 0 Then s = s + i

Loop （2）

If （3） Then Print n; "是完全数"

End Sub

空1解答：s=1

空1参考答案：s=1

空2解答：while i=n-1

空2参考答案：while i=n-1

空3解答：s=n

空3参考答案：s=n、n=s

21. 填空题：（6.0分）

下面程序是接受用户从键盘上输入的一个正整数，找出大于或等于该数的第一个素数。

Option Explicit

Private Sub Command1_Click()

Dim n As Integer, k As Integer

Dim i As Integer

n = InputBox("请输入一个正整数")

（1）

Do

For i = 2 To Sqr(k)

If k Mod i = 0 Then Exit For

Next i

If （2）Then

Exit Do

Else

（3）

End If

Loop

Print "大于等于"; n; "的第一个素数是"; k

End Sub

空1解答：k=n

空1参考答案：k=n

空2解答：i>sqr(k)

空2参考答案：i>sqr(k)

空3解答：k=k+1

空3参考答案：k=k+1、k=1+k

22. 填空题：（6.0分）

在文本框Text1中输入一串字符，判别其是否是回文字符串。所谓回文字符串是指正读和反读都一样的字符串，比如ABBA、DEAED等就是回文字符串。

Private Sub Command1_Click()

Dim s As String, n As Integer, m As Integer

s = Text1.Text

n = 1

（1）

Do While n <= m

If Mid(s, n, 1) = Mid(s, m, 1) Then

m = m - 1

（2）

Else

Exit Do

End If

Loop

If （3）Then

Text2.Text = Text1.Text & "是回文"

Else

Text2.Text = Text1.Text & "不是回文"

End If

End Sub

空1解答：m=len(s)

空1参考答案：m=len(s)

空2解答：n=n+1

空2参考答案：n=n+1、n=1+n

空3解答：n>m

空3参考答案：n>m、m<="">

1. 单选题：（

2.0分）

1．下列哪个符号能作为VB中的合法变量名？

B. 8ab

C. DIM

D. X%B

解答：A

参考答案： A

2. 单选题：（2.0分）

2．函数Int(Rnd*10)+90是下列哪个范围内的整数？

A. [90,100]

B. [10,100]

C. [90,99]

D. [10,99]

解答：C

参考答案： C

3. 单选题：（2.0分）

3．数学式子Sin60°写成VB表达式是?

A. Sin60

B. Sin(60*3.14/180)

C. Sin (60°)

D. Sin(60)

解答：B

参考答案： B

4. 单选题：（2.0分）

4．要强制显示声明变量，可在窗模块或标准模块的声明段中加入语句?

A. Option Base0

B. Option Explicit

C. Option Base1

D. Option Compare

解答：B

参考答案： B

5. 单选题：（2.0分）

5．表达式Val(“.1234E3CD”)的值是？

A. 0.1234

B. 0

C. 123.4

解答：C

参考答案： C

6. 单选题：（2.0分）

6．表达式X>X+1是？

A. 算术表达式

B. 非法表达式

C. 字符串表达式

D. 关系表达式

解答：D

参考答案： D

7. 单选题：（2.0分）

7．设A，B，C 表示三角形的三条边，条件“任意两边之和大于第三边”的布尔表达式可以表示为？

A. A+B>C And A+C>B And B+C>A

B. Not (A+B<=C Or A+C<=B Or B+C<=A)

C. A+B<="" B+C

D. A+B>=C Or A+C>=B Or B+C>=A

解答：A

参考答案： A

8. 单选题：（2.0分）

8．下面不能在信息框中输出“VB”的是?

A. MsgBox

B. X=MsgBox(

C. MsgBox(

D. Call MsgBox

解答：D

参考答案： D

9. 单选题：（2.0分）

9．设a=5，b=6，c=7，d=8，执行语句x=IIf((a>b)And(c>d),10,20)后，x的值是?

A. 10

B. 20

C. 30

D. 200

解答：B

参考答案： B

10. 单选题：（2.0分）

10．语句Print Sgn（-6^2）+ Abs（-6^2）+Int（-6^2）的输出结果是？

A. -36

B. 1

C. -1

D. -72

解答：C

参考答案： C

11. 单选题：（2.0分）

11．以下关于局部变量的叙述中错误的是？

A. 在过程中用Dim语句或Static语句声明的变量是局部变量

B. 局部变量的作用域是它所在的过程

C. 在过程中用Static语句声明的变量是静态局部变量

D. 过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放

解答：D

参考答案： D

12. 单选题：（2.0分）

12．下列符号常量的声明中，哪个是不合法的？

A. Const a As single =1.123

B. Const a As Integer =″123″

C. Const a As Double =Sin(1)

D. Const a =″OK″

解答：C

参考答案： C

13. 单选题：（2.0分）

13．Visual Basic 认为下面哪组变量是同一个变量？

A. Al和al

B. Sum和Summary

C. Aver和Average

D. Al和A_l

解答：A

参考答案： A

14. 单选题：（2.0分）

14．执行下面语句：print “5*20”的结果是( )。

A. "5*20"

B. 出现错误信息

C. 5*20

D. 100

解答：C

参考答案： C

15. 单选题：（2.0分）

15．下列模块中哪个是一个工程必须具备的( )。

A. 窗体模块

B. 标准模块

C. 类模块

D. 用户自定义模块

解答：A

参考答案： A

16. 单选题：（2.0分）

16．在一个语句行内写多条语句时，语句之间应该用哪个符号分隔。

A. ，

B. ；

C. 、

D. ：

解答：

B

参考答案： D

17. 单选题：（2.0分）

17．不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是？

A. A * B=0 And A<>B

B. A=0 Xor B=0

C. A * B=0 And (A=0 Or B=0)

D. A * B=0 And A+B<>0

解答：C

参考答案： C

18. 单选题：（2.0分）

18．表达式-5 Mod 3 + 3\5*2 的值是?

A. 0

B. 2

C. -2

D. 4

解答：C

参考答案： C

19. 单选题：（2.0分）

19．设x=4，y=8，z=7，表达式xz) Or z

A. 1

B. -1

C. True

D. False

解答：D

参考答案： D

20. 单选题：（2.0分）

20．常量的-0.00013579的科学记数法是

A. -1.3579E+4

B. 1.3579E-4

C. -13.579E-5

D. -1.3579E-04

解答：D

参考答案： D

21. 单选题：（2.0分）

21．下列哪个是日期型常量

A. "2011-3-29"

B. 2011-3-29

C. #2011-3-29#

D. {2011-3-29}

解答：C

参考答案： C

22. 单选题：（2.0分）

22．执行语句s=Len(Mid("VisualBasic",1,6))后，s的值是?

A. 6

B. Basic

C. Visual

D. 11

解答：A

参考答案： A

23. 单选题：（2.0分）

23．设a=10,b=5,c=1,执行语句Print a>b>c后，窗体上显示的是?

A. True

B. False

C. 1

D. 出错信息

解答：B

参考答案： B

24. 单选题：（2.0分）

24．执行语句Print Format(1236.54,” + #### , 0.0%”)的正确结果是

A. 12345,6%

B. 123,654.0%

C. +123,6.54%

D. 123,654

解答：A

参考答案： B

25. 单选题：（2.0分）

25．Abs(-8)+Len("ABCD")的值是？

A. 12

B. 14

C. 8ABCD

D. -8ABCD

解答：A

参考答案： A

26. 单选题：（2.0分）

26．表达式-25.28 Mod 6.99的值是？

A. 1

B. -4

C. 4

D. 出错

解答：B

参考答案： B

27. 单选题：（2.0分）

27．Rnd的函数不可能产生的值是？

A. 0

B. 1

C. 0.0005

D. 0.123

解答：

B

参考答案： B

28. 单选题：（2.0分）

28．将任意一个正的两位数N的个位数与十位数对换的表达式为

A. （N-Int(N/10)*10）*10+Int(n/10)

B. N-Int(N)/10*10+Int(N)/10

C. Int(N/10)+(N-Int(N/10))

D. (N-Int(N/10))*10+Int(N/10+Int(N/10))

解答：D

参考答案： A

29. 单选题：（2.0分）

29．代数式X1-|a|+ln10+Sin(X2+2π)/Cos(57o)对应的VB表达式是

A. X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57)

B. X1-Abs(A)+Log(10)+Sin(X2+2*π)/Cos(57)

C. X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180)

D. X1-Abs(A)+Log(10)+Sin(X2+2*π)/Cos(57*3.14/180)

解答：C

参考答案： C

30. 单选题：（2.0分）

30．在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有( B )可使文本框Text3中显示46。

A. Text3.Text=Text1.Text & Text2.Text

B. Text3.Text=val(Text1.Text) +val( Text2.Text)

C. Text3.Text=Text1.Text + Text2.Text

D. Text3.Text=val(Text1.Text) & val(Text2.Text)

解答：B

参考答案： B

31. 填空题：（2.0分）

1．产生一个[100，200]范围内的正整数，表达式是

空1解答：Int(Rnd*(101))+100

空1参考答案：Int(Rnd*101)+100、Int(Rnd*101+100)、int(rnd*101)+100、

int(rnd*101+100)

32. 填空题：（8.0分）

2．语句Dim x ,y as string ,z as currency

a%=1

则x，y, z, a的数据类型分别为、、、。

空1解答：变体型、Variant 、variant 、万能型

空1参考答案：变体型、Variant、variant、万能型

空2解答：字符串型、字符型、string

空2参考答案：字符串型、字符型、string

空3解答：货币型、currency

空3参考答案：货币型、currency

空4解答：整型、Integer

空4参考答案：整型、Integer

33. 填空题：（2.0分）

3．把数学表达式－5≤X≤5改写为等价的VB表达式

空1解答：x>=-5 And x<=5 、x<=5 And x>=-5 、X<=5 And X>=-5 、X>=-5 And

X<=5

空1参考答案：x>=-5 And x<=5、x<=5 And x>=-5、X<=5 And X>=-5、X>=-5 And X<=5

34. 填空题：（2.0分）

4．如果希望使用变量Ｘ来存放数据1234567.123456,应该将变量Ｘ声明为类型？

空1解答：双精度、Double 、double 、DOUBLE

空1参考答案：双精度、Double、double、DOUBLE

35. 填空题：（2.0分）

5．设A=7，B=3，C=4，表达式A Mod 3+B^3/C\5的值是

空1解答：2

空1参考答案：2

36. 填空题：（2.0分）

大学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/213430699.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程序填空复习题

二级VB程序设计练习 程序填空 1．下面程序按每行10个数打印出30个介于-300到300间无重复的随机整数，并显示其中的最小值。数组b(30)存放所产生的无重复的随机整数，运行结果如图所示。 Private Sub Command1_Click() Dim b(30), j As Integer, k As Integer Dim y As Integer, x As Single, min As Integer For j = 1 To 30 lb: x = Rnd If x > 0.5 Then y = 1 Else y = -1 b(j) = y * Int(Rnd*301) k = 1 Do While k

If b(j) = b(k) Then Goto lb k = k + 1 Loop Print b(j); If j Mod 10=0 Then Print Next j min = b(1) For j = 1 To 30 If b(j) < min Then min=b(j) Next j Print min End Sub 2．下面程序用于对9位的号进行校验。参数mno存放号，mjy存放产生的校验位，tag判断校验正确否，若校验正确tag置1，否则为0。产生校验位的算法为：取号右边的8位之和关于9的模作为校验值，号最左边的一位为校验位。 Public Sub foe(ByVal mno As String, mjy As Integer, Tag As Integer) Dim msum As Integer, m As String msum = 0 for j=2 to 9 m = Mid(mno, j, 1)

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题库程序填空

程序填空〖第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程序设计》考试题型练习 答案

《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)

大学-VB期末考试试题

VB期末考试试题A卷 一、填空题 1、VB程序设计的主要特点是（1）和（2）。 2、在VB中，最主要的两种对象是（3）和（4）。 3、工程是构成应用程序文件的（5）。 4、方法是VB提供的一种（6），用来完成一定的操作。 5、浮点类型数据包括单精度型和___（7）__数据。 6、事件是窗体或控件对象识别的___（8）____。 7、可用窗体的___（9）_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。 13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。 14、设置窗体的（19）属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。 二、选择题 1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是（2）。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示（3）。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是（4）。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）

vb程序阅读题与填空题

VB程序阅读题与程序填空题综合练习 1、阅读下面程序，当单击窗体之后，窗体上输出的是。 Private Sub Form_Click( ) Dim i As Integer, j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 10 If j > = 5 Then i = i +4: Exit For j = j + 1 k = k + 1 Next If i > 8 Then Exit For Next Print k End Sub 2、阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别 是和；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是和。 Private Sub Form_Click( ) Dim x As Integer, y As Integer x = 1 : y = 0 Do While x < 3 y = y + x 'A语句 x = x + 1 'B语句 Loop Text1.Text = x Text2.Text = y End Sub 3、下面程序段中，k循环共执行次，在窗体上显示的结果是。 Dim b As Integer, k As Integer b = 1 For k =1 To 5 b = b * k If b > = 15 Then Exit For Else

k = k + 1 End If Next k Print k, b 4、以下是按钮cmdl的Click事件过程，求1~100之间的所有质数。质数的个数显示在窗 体上，在划线处填上缺少的内容。 Private Sub cmdl_Click( ) Dim intNum As Integer, int1 As Integer, int2 As Integer intNum = 0 For int1 = For int2 = 2 To int1 \2 If (int1 Mod int2) = 0 Then intNum=1 End If Next If sNum = sNum + 1 End If Next Print End Sub 5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。请在画线处中填入适当的内容。 Private Sub CmdExit_ ( ) End Sub 6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。在画线处填入正确的内容。 Private Sub Comandl_Click( ) Dim int1 As Integer int1 =val (txt1.Text) Select Case int1 Case txt2.Text = "值为0" Case txt2.Text = "值在1和10之间（包括1和10）" Case txt2.Text = "值大于10"

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题库-填空练习题

填空题 第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--过程练习题

《Visual Basic 程序设计》寒假作业 一、选择题 1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。 A． Sub swap(By Val m，By Val n) B． Sub swap(m, By Val n) C． Sub swap(m, n) D． Sub swap(By Val m, n) 2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。 A．按参数传递 B．按数值传递 C．按地址传递 D．按位置传递 3．Sub过程与Function过程最根本的区别是_______。 … A． Sub过程可以直接使用过程名调用，而Function过程不可以 B． Function过程可以有参数，而Sub过程不可以 C．两种过程参数传递方式不同 D． Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。 A． ByVal B． ByRef C． Value D． reference 5．可以执行“工具”菜单中的_______命令来建立通用过程。 A．添加过程 B．通用过程 C．添加模块 D．添加窗体 】 6．假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是_______。A，2 A． Cir 3,8 B． Call Cir x, y C． Call Cir 2*x, y D． Call Cir (3,8, y) 7. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private x As Integer Private Sub Command1_Click() a = 6: b = 4 Call sub1(a, b) = a ： = b End Sub Private Sub sub1(ByVal x As Integer, ByVal y As Integer) a = x * x b = y * y End Sub 程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。

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练习题及答案.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真题(选择题)

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分）

VB期末复习题库Visual Basic(填空题)

VB期末复习题库Visual Basic（填空题） 1 假定当前日期为2002年7月12日，星期六，则执行语句Print day(now)后，输出结果是______（提示：不能出现符号#）。12 2 语句a%=3.14156:Print a%的输出结果是______。 3 3 "以下循环的执行次数是_____。 K=0 Do While k<=10 k=k+1 Loop" 11 4 Fix(5.8)的值是_______。 5 5 "下列程序段的执行后输出的结果为_____。 I=4:A=5 Do I=I+1:A=A+2 Loop Until I>=7 Print ""A="";A" A=11 6 表达式3/6*5的值是_______。 2.5 7 "下列程序的作用是将三个数按从大到小进行排序，请补充完该程序。 If a

大学VB期末考试试题

VB 期末考试试题A 卷 一、填空题 1、VB 程序设计的主要特点是可视化设计和事件编程。 2、在VB 中，最主要的两种对象是窗体（form ）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB 提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作___ 。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value 属性指示复选框处于 _____ 选中___或禁止状态（暗淡的）中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width ）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox 函数中，如果缺省title 参数，则使用工程1 作为消息框的标题。 12、设x = 34.58，语句Print Format（x, “ 000.0”）的输出结果是34.6。 13、在VB 中，数值型变量的初值为0 ，Varant 型变量的初值为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP 图片框中的图片应使用语句cls 。 二、选择题 1 、菜单控件只包括一个事件，即C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B 、Load C 、Click D 、KeyDown 2、滚动条控件（如图所示）的Max 属性所设置的是A 。 A 、滚动框处于最右位置时，一个滚动条位置的Value 属性最大设置值 B 、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D 、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B 、Name C、Text D、Label 6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B 、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。 A、在标题项中输入&,然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click（） Print "VB"; Print "Hello! "; Print "VB"