广药VB练习题（知识复习，含参考答案）

1下列计算机语言中，______语言不属于高级语言。

(A) Basic (B) C (C) Java (D) 汇编

2下列可作为Visual Basic变量名的是______。

(A) A#A (B) 4AB (C) constA (D) ABS

3当一个命令按钮的______属性值被设为False时，它的提示文字呈现灰色且不能够响应用户操作。

(A) Caption (B) Enabled (C) Picture (D) Visible

4如果一个窗体中只有以下代码，则当用户触发窗体的______事件时，会显示“Welcome”。

Private Sub Form_DblClick()

Print "Welcome"

End Sub

(A) 单击 (B) 双击 (C) 显示 (D) 关闭

5下面表达式中______的值为字符“S”。

(A) Left("BASIC",3) (B) Right("BASIC",3) (C) Mid("BASIC",3,1) (D) Len("BASIC")

6 VB程序中，工程文件的扩展名是______。标准模块文件的扩展名为 。

（A）bas （B）frm （C）ocx （D）vbp

7下列属性中，不能通过代码在运行时重新赋值的是______。

(A) Name (B) Caption (C) Text (D) Enabled

8 VB中窗体(Form)、图片框(PictureBox)或图像框(Image)装入图形可使用________函数。

（A）LoadPicture （B）PictureLoad （C）LoadImage （D）ImageLoad

9下列取值中，复选框(CheckBox)Value属性可能的正确取值是________。

（A）True （B）False （C）2 （D）3

10设 a=10 ，b=5 ，c =1 ，执行语句 Print a > b > c 后，窗体上显示的是________。

（A）True （B）False （C） 1 （D）出错信息

11下面属性中，不属于文本框（TextBox）的属性是________。

（A）SelStart （B）Caption （C）PasswordChar （D）Text

12在系统默认情况下，语句 Dim a(-3 To 3，2) As Integer 定义的数组，其元素个数是________。

（A）6 （B）12 （C）14 （D）21

13表达式 8／3*6 Mod 5的值是( ) 。

（A）0 （B）1 （C）2 （D）3

14设a="VisualBasic"，下面使b=”Basic”的语句是________。

（A）b=Left(a，7，12) 　　 （B）b=Mid(a，7，5)

（C）b=Right(a，5) 　　 （D）b=Left(a，7，5)

15下列________属性可设置控件在窗体中的大小。

（A） Height 与 Width （B） Height 与Top （C） Left 与 Top （D） Left 与 Width

16以下对象不属于容器的是________。

　　（A）窗体(Form) （B）图片框(PictureBox) （C）图像框(Image) 　　（D）框架(Frame)

17若要调用窗体并显示出来，其实现的方法是________。

　　（A）Show　 　（B）UnLoad　 　（C）Load　 　（D）Hide

18 InputBox函数返回值的类型为________。

（A）数值 （B）字符串 （C）变体类型 （D）数值或字符串(视输入的数据而定)

19为了清空列表框(ListBox)中的所有项目，应使用的方法为________。

（A）Cls （B）Clear （C）Remove （D）RemoveItem

20设x＝10，则执行y = IIf(x > 0, x \ 3, 0) 之后，y的值为________。

（A）0 （B） 1 （C） 3 （D）语句有错

21设x=4,y=6，下面程序中不能输出“a=10”的语句是_____。

（A） Print a = x + y （B） Print "a=" ; x+y

（C） Print "a=" + Str(x+y) （D） Print "a=" & x+y

22语句y = x – 1的功能是______。

（A）变量y取得表达式x-1的值 （B）变量y取得变量x的值，然后再减1

（C）将变量x存入变量y中，再加上1 （D）将变量y存入变量x-1中

23窗体上有一个命令按钮Command1，且只有以下代码。运行时单击命令按钮，窗体显示______。

Private Sub Command1_Click()

Dim city

city = ("北京", "上海", "广州", "武汉")

Print city(1)

End Sub

（A）北京 （B）上海 （C）广州 （D）武汉

1下面的程序段运行时，用户输入3，显示的结果是______。

Dim x As Integer, n As Integer, i As Integer, j As Integer

x = 0

n = InputBox("n=")

For i = 1 To n

For j = 1 To i

x = x + 1

Next j

Next i

Print x

(A) 3 (B) 4 (C) 5 (D) 6

2执行下面的程序段后，显示x的值为______。

x = 5

For i = 10 To 1 Step -2

x = x + 1

Next i

Print x

（A）8 （B）9 （C）10 （D）11

3运行下面程序，单击命令按钮Command1，输出的结果是______。

Option Base 1

Private Sub Command1_Click()

Dim a

s = 0

a = (1, 2, 3, 4)

j = 1

For i = 4 To 1 Step -1

s = s + a(i) * j

j = j * 10

Next i

Print s

End Sub

（A）4321 （B）1234 （C）34 （D）12

4以下关于过程的叙述中，错误的是______。

（A） 事件过程由某个用户操作事件或系统事件触发而执行

（B） 函数过程的返回值可以有一个或多个

（C） 可以在事件过程中调用自定义过程

（D） 函数过程可在窗体的“通用”部分定义，而不能在事件过程的过程体中定义

5窗体上一个标签Label1和一个计时器Timer1，Timer1的Interval属性设置为1000，Enable属性为True。要求程序运行时每秒在标签中显示系统的当前时间，事件过程是________。

6当滚动条滑块位于最右端或最下端时，Value属性被设置为________。

（A）Min （B）Max （C）Max和Min之间    （D）Max和Min之外

7要声明数组中默认下标由1开始，可在 通用-声明 代码段中加入语句________。

（A） Option Base 0 （B） Option Explicit

（C） Option Base 1 （D） Option Compare

8设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是________。

（A） Menu1.Enabled=True （B）Menu1.Enabled=False

（C） Menu1.Visible=True （D）Menu1.Visible=False

9设a=2,b=3,c=4,d=5，则表达式Not a <= c Or 4 * c = b ^ 2 And b <> a + c的值是________。

　　（A）-1 　　（B）1 　（C）True 　（D）False

10VB6.0的一行代码内可书写多个语句，语句间用________来分隔。

（A） ， （B） ； （C）_ （D） ：

1以下叙述中正确的是________。

（A）窗体的Name属性指定窗体的名称，用来标识一个窗体

（B）窗体的Name属性的值是显示在窗体标题栏中的文本

（C）可以在运行期间改变对象的Name属性的值

（D）对象的Name属性值可以为空

2数组Score(4,3)中已经存放了4个学生3门课程的成绩，要计算每个学生的总分，程序如下：

Private Sub Command1_Click()

Dim sum%

sum = 0

For i = 1 To 4

For j = 1 To 3

sum = sum + score(i, j)

Next j

Print "第"; i; "个学生的总分是:"; sum

Next i

End Sub

运行时发现，除了第1个人的总分计算正确外，其他人的总分都是错误的。应该怎样修改程序？______

（A） 把外循环For i = 1 To 4 改为 For i = 1 To 3，内循环语句 For j = 1 To 3改为 For j = 1 To 4

（B） 把sum=0移到For i = 1 To 4和 For j = 1 To 3之间

（C） 把sum = sum + score(i, j)改为 sum = sum + score( j,i)

（D） 把sum = sum + score(i, j) 改为sum = score(i, j)

3下列程序运行时，在文本框Text1中输入字符串“abcdefg”，单击命令按钮Command1，标签Label1输出______。

Function Fun(S As String) As String

Dim s1 As String

For i = 1 To Len(S)

s1 = UCase(Mid(S, i, 1)) + s1

Next i

Fun = s1

End Function

Private Sub Command1_Click()

Dim str1 As String, str2 As String

str1 = Text1.Text

str2 = Fun(str1)

Label1.Caption = str2

End Sub

(A) abcdefg (B) gfedcba (C) ABCDEFG (D) GFEDCBA

1将数学表达式写成VB表达式，正确的形式是________。

2下面程序段中，函数Val的作用是__________，函数Str的作用是__________。

Dim x As Integer, y As Long

x = Val(Text1.Text)

y = x * 2

Label1.Caption = "y=" + Str(y)

3窗体Form1中有文本框、框架、单选按钮、复选框控件。单击单选按钮和复选框时，根据所选内容更新文本框中输出的文字（如图）。填空完成上述功能。

Dim __________, Tuanyuan As String

Private Sub Check1_Click()

If ____________ Then

Tuanyuan = "是"

Else

Tuanyuan = "不是"

End If

Call Gengxin

End Sub

Private Sub Option1_Click()

Xingbie = "男"

Call Gengxin

End Sub

Private Sub Option2_Click()

Xingbie = "女"

Call Gengxin

End Sub

Sub Gengxin()

Text1.Text = ""

Text1.Text = "我是" + Xingbie + "孩，我"

Text1.Text = ___________ + "团员"

End Sub

4下面程序运行时单击命令按钮，显示的结果是_________。

Option Explicit

Private Sub Command1_Click()

x = -9

y = Abs(x)

Print "y="; y

End Sub

5下面的程序定义了判断素数的函数。在文本框输入正整数x，判断x是否素数。填空完善程序。

Function IsPrime(n As Integer) As ________

Dim Flag As Boolean

Flag = True

____________

If n Mod i = 0 Then

__________

Exit For

End If

Next i

IsPrime = Flag

End Function

Private Sub Command1_Click()

Dim x As Integer

x = Val(Text1.Text)

If ___________ Then

Print x; "是素数"

Else

Print x; "不是素数"

___________

End Sub

6 city.txt文件内容如图中记事本窗口所示。在同一文件夹中建立一个VB程序，启动窗体时能够将city.txt文件中的字符串逐行地添加到列表框中。请填空完善程序。

Private Sub _________ ()

Dim city As _________

Open App.Path + "\city.txt" ________ As #1

Do While ________

Line Input #1, city

List1.AddItem city

Loop

__________

End Sub

7编程求所有三位水仙花数。水仙花数是指满足下列条件的三位数：其三位数字的立方和等于它本身。例如，则157是水仙花数。填空完善下列程序：

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

For n = __________

a = n \ 100

b = (n - a * 100) \ 10

c = ___________

If ____________ = n Then

Print n

End If

Next n

8完善程序，生成20个[200，300]区间的随机整数，输出其中能被5整除的数并求出它们的和。

Private Sub Form_Click()

Dim i%, a%, sum%

sum = 0

For i = 1 To 20

a = Int( + 200)

If =0 Then

Print a

sum = sum + a

End If

Print "Sum="; sum

End Sub

9完善程序，将已存在的Data.txt中20个数据读入一维数组并输出(一行5个)。

Private Sub Command1_Click()

Dim a%(20)

Open "Data.txt" As #1

For i = 1 to 20

Print a(i),

If i Mod 5 = 0 Then

Next

End Sub

10为了改变计时器控件的Timer事件的时间间隔，应修改计时器控件的 属性。

写出下列语句或表达式：

1）删除列表框List1中最后一个选项的语句为： 。

2）设置命令按钮Command1不可操作的语句为： 。

3）获取组合框Combo1的选中项目下标值的表达式为： 。

4）获取水平滚动条Hscrolll滑块当前值的表达式为： 。

5）设S是整型变量，判断S既是6的倍数同时个位数字为8的表达式为： 。

11完善程序。功能是将二维数组 A 中的 100 个元素分别赋给一维数组 B 的每个元素并打印出来，要求把 A(1,1)到 A(1,10) 依次赋给 B(1)到 B(10)，把 A(2,1)到 A(2,10)依次赋给 B(11)到 B(20)，……，把 A(10,1)到 A(10,10)依次赋给B(91)到 B(100)。

Option 1 '数组的默认下界由1开始

Private Sub Form_Click()

Dim i%, j%, A%(10, 10) , B (100) As Integer

For i = 1 To

For j = 1 To

A(i, j) = Int(Rnd * 100)

= A(i, j)

Print A(i, j);

Next

Print

End Sub

编程题 略

参考答案：

1 (2*x+Abs(y))/(y*y)

2 将数字字符串转换为数值

将数值转换为字符串 （课本P59）

3 Xingbie as String

Check1.Value = 1

Tuanyuan

4 编译错误：变量未定义

5 Boolean

For i=2 to n/2（或For i=2 to n-1或For i =2 to sqr(n)）

Flag=False

IsPrime(x)

End If

6 Form_Load

String

For Input

Not EOF(1)

Close #1

7 100 to 999

n mod 10

a^3+b^3+c^3

8 Rnd*101

a mod 5 = 0

Next i

9 For Input

Input #1, a(i)

Print

Close #1

10 Interval

1) List1.RemoveItem List1.ListCount-1

2) Command1.Enabled = False

3) Combo1.ListIndex

4) Hscroll1.Value

5) S mod 6 = 0 And S mod 10 = 8

11 Base

10

10

B((i-1)*10+j)

Next

本文来源：https://www.2haoxitong.net/k/doc/a2e5c5cb4b73f242326c5f79.html