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)

msum = msum + Val(m)

Next j

mjy = msum mod 9

If mjy =val(left(mno,1)) Then

Tag = 1

Else

Tag = 0

End If

End Sub

Command1_Click事件用于调用foe子过程，对输入到文本框Text1的准考证号进行校验，如果校验正确，显示“正确”，否则显示“错误”，同时显示正确的校验码。

Private Sub Command1_Click()

Dim nn As Integer, mtag As Integer

If Len(Text1) <> 9 Or Not IsNumeric(Text1) Then

MsgBox "非法数据，请重新输入！"

Text1 = ""

Text1.SetFocus

Exit Sub

End If

Call foe(Text1, nn, mtag)

If mtag Then

Print "正确"

Else

Print “错误” ;nn

End If

End Sub

3．下面的程序按从小到大的顺序随机产生不超过20个介于100到400（包括100、400）的数，每次产生的一个数总大于它前面已产生的数，然后求产生的数的平均值。数组b(20)用于存放所产生的随机数，运行结果如图所示。

Private Sub Command1_Click()

Dim b(20), i As Integer, j As Integer, sum As Single

j = 1

Do

re:

b(j) = Int (Rnd*301+100)

If b(j) = 400 Or j = 20 Then

Exit Do

ElseIf b(j) <= b(j - 1) Then

GoTo re

End If

j=j+1

Loop

sum = 0

For i = 1 To j

Print b(i);

Sum=sum+b(i)

Next i

Print "aver=";sum/j

End Sub

4．新的身份证号由18位组成，最低位（右边）为校验位，其算法是：10-（前17位之和关于10的模）。函数foe用于对18位的身份证进行校验。参数mstr存放身份证号，md 为产生的校验位，若校验正确，函数返回“True”，否则返回“False”。

Public Function foe(ByVal mstr$, md%) As Boolean

Dim mp As String, msum As Integer

msum = 0

For i=1 To 17

mp = Mid(mstr, i, 1)

msum = msum + Val(mp)

Next i

md = 10 – msum mod 10

If md = val(right(mstr,1)) Then

foe = True

Else

foe = False

End If

End Function

Command1_Click事件用于调用foe子过程，对输入到文本框Text1的身份证号进行校验，如果校验正确，显示“True”，否则显示“False”和的校验码值。

Private Sub Command1_Click()

Dim mm As Integer

If Len(Text1) <> 18 Or Not IsNumeric(Text1) Then

MsgBox "非法数据，请重新输入！"

Text1 = ""

Text1.SetFocus

Exit Sub

End If

If foe(Text1, mm) = True Then

Print "True"

Else

Pri nt “False”;mm

End If

End Sub

5．End Sub本程序随机产生N（15）个A到J的大写字母，按字母降序排序后，将连续出现的字用压缩形式显示。例如，连续5个H字母显示为5*H，参见图例。数组a()用于存放随机产生的字母。

Private Sub Command1_Click()

Const N = 15

Dim a(1 To N) As String * 1, c

Dim count%, i%, j%, k%

For i = 1 To N

a(i) = Chr(Int(Rnd*10+65 ))

Print a(i);

Next i

Print

For i = 1 To N - 1

k = i

For j = i+1 To N

If a(j) > a(k) Then k=j

Next j

c = a(i): a(i) = a(k): a(k) = c

Next i

For i = 1 To N

Print a(i); " ";

Next i

Print

i = 1

Do While i <= N

count = 1

If i < N Then j = i + 1

Do While a(i) = a(j)

count = count+1

If j < N Then j = j + 1 Else Exit Do

Loop

If count = 1 Then Print a(i); " "; Else Print count; "*"; a(i); " ";

i =i+count

Loop

End Sub

6. 本程序的功能是在窗体随机产生10个长度为1~20之间的大写字母字符串，并同时显示最长字符串的字符数及内容，如图所示。

Private Sub Command1_Click()

Cls

Dim st(1 To 10) As String, c As String * 1

Dim i%, n%

For i = 1 To 10

___ _

For j = 1 To n

c = Chr(Int(Rn

d * 26 + 65))

st(i) = ___ ___

Next j

Print st(i)

Next i

maxlen = 0

maxstr = ""

For i = 1 To 10

If ____ _ Then

maxlen = Len(st(i))

maxstr = ______

End If

Next i

__ __

End Sub

7. 两素数的差为2，称此对素数为素数对，下列程序是成对显示100以内的素数对。其中，函数isP 的功能是判断参数m是否为素数，若是返回True ，否则返回False 。

Public Function isP(m) As Boolean

Dim i%

For i = 2 To Int(Sqr(m))

If Then IsP = False

Next i

End Function

Private Sub Command1_Click()

Dim i%

p1 = IsP(3) ' 第一个可能的素数

For i =

p2 = IsP(i)

If Then Print i 2, i ' 相邻的两个是素数，则打印

p1 = ' 处理下一个素数

Next i

End Sub

8. 本程序的功能是求100以内的素数，结果分三列输出，如样例所示。算法思想：从2开始，对每一个数判断是否是素数，若是就输出，否则就继续，直至到100。

Private Sub Command1_Click()

Dim n As Integer, m As Integer, i As Integer

Me.Cls

For n = 2 To 100

For m = 2 To n – 1

If = 0 Then

End If

Next m

If Then

Print n,

i = i + 1

If i Mod 3 = 0 Then

End If

Next n

End Sub

9. 子过程isH的功能是判断正整数n是否是回文数，若为回文数，则参数Tag返回True。单击命令按钮，输出随机产生的10个[10，100]之间的回文数（数字左右对称的正整数称为回文数）。

Private Sub Command1_Click()

Dim nn%, t As Boolean, i%

For i = 1 To 10

nn = Int(Rnd * 991 + 10)

Call

If t Then Print nn; "是回文数"

Next i

End Sub

Sub isH(ByVal n As Integer, )

Dim length%, i%, s1$

s1 = Trim(Str(n))

tag =

length =

For i = 1 To length \ 2

If Mid(s1, i, 1) <> Then tag = False

Next i

End Sub

10. 本程序的功能是判断一个5位数的最后二位构成的数是否为素数。在窗体的文本框Text1中输入一个5位数，判断该数的第4、5二位构成的数是否为素数，若是显示“是素数”否则为“非素数”。例如，32517最后二17构成的数是素数。

Private Sub Command1_Click()

Dim tag As Boolean

m =

m = Val(m)

For i = 2 To

If = 0 Then tag = False

Next i

If Then

Print m; "是素数"

Else

Print m; "非素数"

End If

End Sub

11. 随机产生100个在闭区间[30，80]之间的整数，存放于数组a中；并将其中大于50的偶数再存于数组b中；然后，对数组b用冒泡法从大到小排序后输出。子过程Output 的功能是按每行十个元素输出数组内容。

Private Sub Form_Click()

Dim a(1 To 100) As Integer, b(100) As Integer, m As Integer, n As Integer

Randomize

n = 0

For i = 1 To 100

a(i) = Int(Rnd * 51 + 30)

If a(i) Mod 2 = 0 Then

n = n + 1

b(n) =

End If

Next i

Call Output(a(), 100)

For i = 1 To

For j = 1 To n - i

If Then

t = b(j): b(j) = b(j + 1): b(j + 1) = t

End If

Next j

Next i

Call

End Sub

Private Sub Output(x() As Integer, t As Integer)

Print "数组输出："

For i = 1 To t

Print x(i);

If i Mod 10 = 0 Then Print

Next i

Print

End Sub

12.本程序的功能是用于判断输入的正整数是否为升序数。使用输入对话框输入数据，判断结

果显示在标签框Lable1中。设正整数n=d

1d

2

…d

m

，如果d

i

<=d

i+1

(i=1,2,…,m-1),则n是一个

升序数（即右边的数字大于等于左边的数字），如：1269，448是升序数，而2485不是升序数。

Private Sub Form_Click()

Dim n As String, flag As Boolean

n = (“请输入正整数”)

flag =

For I = 1 To Len(n) – 1

If Mid(n, I, 1) > Then

flag = False

End If

Next i

If Then

Label1.Caption = n & “是升序数”

Else

Label1.Caption = n & “不是升序数”

End If

End Sub

13.下列程序将给定范围内的偶数（大于等于4），表示为两个素数之和。图例所示为输入10和30后运行结果。函数子过程fun()的功能是判断数值n是否是为素数，若是返回1，否则返回0。

Private Sub Command1_Click()

Dim a%, b%, i%, c%, d%

a = Val(Text1.Text):

b = Val(Text2.Text)

If Then

t = a: a = b: b = t

End If

For i = a To b Step 2

Do

c = c + 2

d = i - c

Loop Until = 1

Picture1.Print i; "="; c; "+"; d

Next i

End Sub

Function fun(n As Integer)

Dim x!, k%

For k = 2 To n - 1

If n Mod k = 0 Then

fun = 0

End If

Next k

End Function

14.下面程序的功能是统计文本框中每个数字字符(“0”-“9”)出现的次数。用num(0)来存放字符“0”的个数，用num(1)来存放字符“1”的个数，…，用num(9)来存放字符“9”的个数。字符串由用户在文本框中输入，结果在图形框中输出。

Private Sub Command1_Click()

Dim num(9) As Integer

Dim i%, m%, j%, c As String * 1, s$

m =

For i = 1 To m

c = Mid(Text1.Text, i, 1)

If Then

j = Val(c)

End If

Next i

For i = 0 To 9

If Then

Picture1.Print "数字 "; ; "出现次数为 "; num(i)

End If

Next i

End Sub

15.下列程序将求出10000之内的同构数。并且在窗体标题栏上显示找到同构数的个数，如图所示。所谓同构数是指，该整数会出现在其平方数的最右端。例如：6出现在36的最右端，76出现在5776的最右端。子函数judge()的功能是判定同构数，若是judge返回True，否则返回False。判定同构数算法思想：将数n逐位与n的平方数相同位置上的值相比较。

Private Sub Command1_Click()

Dim i As Long

m = 0

For i = 1 To 10000

If Then

m = m + 1

List1.AddItem Str(i)

List2.AddItem Str(i * i)

End If

Next i

= "10000以内的同构数：" & m & "个"

End Sub

Private Function judge(ByVal n As Long) As Boolean

Dim n2 As Long

n2 = n * n

judge = True

Do While

If (n Mod 10) = Then

n = n \ 10

n2 = n2 \ 10

Else

Exit Do

End If

Loop

End Function

16.下列程序中的子过程fenge用于实现函数split()的功能（字符分离到数组）。

通过在文本框中输入一个以逗号分隔的数字序列，按回车后调用过程fenge，将数字序列分离后，——转换为数值型数据存放于数组shuzhi()中，并在Picturebox中输出该数组的所有值（假设不存在输入错误，输入的数字元素个数在100个以内）。

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Call fenge()

End If

End Sub

Private Sub fenge(str1)

Dim i As Integer, j As Integer, shuzhi(100) As Single

i = 0

j = InStr(str1, ",") ‘检测第一个逗号的位置

Do While j > 0

shuzhi(i) = Val() ‘分离数字序列str1 = Mid()

i = i + 1

j = InStr(str1, ",")

Loop

‘最后一个数字For j = 0 To i

Next j

End Sub

17.

下列程序完成如下功能：在文本框中输入一个20以内的正整数N，单击“开始”按钮后，判断输入的有效性，如果文本框中输入数越界，给出如图所示的相关提示，并要求重新输入，否则随机产生一个大写英文字母，然后以此英文字母为首字母，连续循环变化，输出一个N*N的字符矩阵，并显示“首字母X的N阶字符矩阵”的说明，图示为首字母K的8阶字符矩阵。

Private Sub Command1_Click()

Dim i%, k%, n%

n = Val(Text1)

If n < 1 Or n > 20 Then

Text1 = ""

Text1.SetFocus

Exit Sub

End If

s = Int(Rnd * 26) + 65 ‘随机产生一个大写字母的Ascii码

Label1 = "首字母" & "的" & n & "阶字符矩阵"

Cls

Print: Print

k = ‘以下输出N*N的字符矩阵，K为字符控制变量

For i = 1 To n

Print Tab(5);

For j =

Print Chr(65 + k); Space(1);

k = k + 1

If ‘对字符控制变量进行处理

Next j

Print

Next i

End Sub

将100至150之间的偶数，拆分成两个素数之和（只要一对就可以了），最后输出格式如图所示。函数子过程prime用于判断一个数是否为素数。

Private Function prime(ByVal x As Integer) As Boolean

Dim i As Integer

prime =

For i = 2 To Sqr(x)

If Then

prime = False

Exit Function

End If

Next i

End Function

Private Sub Form_Click()

Dim i As Integer, k As Integer, n As Integer

Cls

i = 1

For n =

For k = 3 To n / 2

If prime(k) And Then

Print i; ":"; n; "="; k; "+"; n - k

Exit For

End If

Next k

Next n

End Sub

下列程序完成如下功能：在文本框中输入英语句子，每个单词后加一个空格，当按下回车键（回车的Ascii码为13）后结束输入，并将文本框中的内容分离成单词按字典排列方式显示在列表框List1中。要求列表框中存放的单词不重复出现。

算法思想：用一个变量存放输入的英语句子，通过查找空格位置分离出左边的一个单词，再在列表框中检查该单词是否存在，若不存在，按字典排列方式插入到列表框中；然后截去英语句子中第一个单词后，重复上上述过程。

例如，变量st的值为“It is a book”，分离出第一个单词“it”存放在变量word内，根据要求加入到列表框中；再使st的值为“is a book”，重复相同处理过程。

Private Sub Text1_KeyPress(KeyAscii As Integer)

Dim st$, word$, i%, inspc%

If Then

st = Trim(Text1) & " "

inspc = InStr(st, " ")

Do While inspc > 0

word =

For i = 0 To List1.ListCount - 1

If word = List1.List(i) Then

Exit For

ElseIf word < List1.List(i) Then

Exit For

End If

Next i

If i = List1.ListCount Then List1.AddItem word

st =

Loop

End If

End Sub

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

二级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题〗『程序填空』(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．数组刷新语句用于（）。若被刷新的数组是数值数组，则把所有元素置（）；若被刷新的数组为字符串数组，则把所有元素置（）。 答案：清除指定数组内容、０、空字符串 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程序设计》考试题型练习 答案

《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)

vb6.0练习题及答案

一、选择题 1．在设计应用程序时，可以查看到应用程序工程中的所有部分的窗口是（）。 A．窗体设计．代码C．属性D．工程资源管理器窗口>> 答案：d 2．窗体的Load事件的触发时机是（）。 A．用户单击窗体时B．窗体被加载时C．窗体显示之后D．窗口被卸载时>> 答案：ｂ 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” 答案：ｂ 12．对象的性质和状态特性称为（）。 A．事件B．方法C．属性D．类 答案：c 13．下列正确的赋值语句是（）。 A．x+y=20 B．y=x+20 C．3x=y D．s=π*r*r

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练习题及答案.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--过程练习题

《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单项选择题及答案

《程序设计语言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

《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。

vb试题及答案

VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。

vb程序填空题

三、填空题 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 "总共有这样的三位数"; n; "个" End Sub 1、1 to 9 2、n+1或1+n 3、print x; 2、【程序说明】简单 窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。 Private Sub Command1_Click() '确定按钮 Static n As Integer ---const-1----mypwd As String = "123456" '预设密码为自定义常量 n = n + 1 Label2.Visible = True If ---__ text1.text=mypwd____ ---- Then Label2.Caption = "密码正确" Else If n < 3 Then Label2.Caption = "密码错误！" Text1.Text = "" Else --end--3---- End If End If End Sub 1、CONST 2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1

[整理]VB程序设计复习题及答案.

中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型

vb题库及答案

| 最新VB题库及答案 一、选择题 第1部分 1、在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时，每个语句之间用（）符号分隔。 A、 , B、： C、. D、； 3、下面（）是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面（）是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为（）。 A、14 B、 4 C、20 D、2 6、设a=”MicrosoftVisualBasic”，则以下使变量的b值为”VisualBasic”的语句是 A、b=Left(a,10) B、b=Mid(a,10) — C、b=Right(a,10) D、b=Mid(a,11,10) 7、设a="a"，b="b"，c="c"，d="d"，执行语句x = IIf((a < b) Or (c > d), "A",

vb试题及答案

一、选择题（1-30 题每小题1分，共30分，31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”，正确的语句是：a A．Form1.Caption=“正在复制文件…” B．Form1.Title=“正在复制文件…” C．Form1.Text=“正在复制文件…” D．Form1.名称=“正在复制文件…” 如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：a A．1000 B．100 C．10 D．1 3、下列关于控件的基本操作中，错误的是 A)当控件处于活动状态时，可以对控件进行缩放 B) 在设计阶段不能移动控件 C) Visual Basic 6.0 允许对画好的控件进行复制和删除 D) 可以通过属性窗口改变控件的位置和大小 4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是： A) ①②③B) ①③②C) ③②①D) ③①② 5、为使文本框只能显示不能输入，即只读，应设置文本框的属性是：c A．MaxLength设置为0 B．Cancel设置为True C．Locked设置为True D．Read设置为True 6、InputBox函数返回值的类型为。B A．数值B．字符串C．变体 D．数值或字符串（视输入的数据而定） 7、为了把焦点移到某个指定的控件，所使用的方法是：A A．SetFocus B．Visible C．ReFresh D．GetFocus 8、函数String(3,”str”)的功能是：b A．把数值型数据转换成字符串 B．返回有3个字符串组成的字符串 C．从字符串中第3个字符 D．从字符串中第3个字符的位置开始取字符串 9、双击窗体中的对象后，Visual Basic将显示的窗口是：c A．项目（工程）窗口B．工具箱C．代码窗口D．属性窗口 10、用于获得字符串s最左边4个字符的函数是：a A．Left(s,4) B．Left(1,4) C．LeftStr(s) D．LeftStr(3,4) 11、以下程序段的输出结果是：d a=Sqr(3) b=Sqr(2) c=a>b Print c A．-1 B．0 C．False D．True 12、用下面语句定义的数组的元素个数是：c Dim A (-4 to 6) As Integer A．6 B．7 C．11 D．9

VB 过程练习题

练习题 一、选择题 1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。 A．Sub swap(By V al m，By V al n) B．Sub swap(m, By V al n) C．Sub swap(m, n) D．Sub swap(By V al m, n) 2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。 A．按参数传递B．按数值传递C．按地址传递D．按位置传递 3．Sub过程与Function过程最根本的区别是_______。 A．Sub过程可以直接使用过程名调用，而Function过程不可以 B．Function过程可以有参数，而Sub过程不可以 C．两种过程参数传递方式不同 D．Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。 A．ByV al B．ByRef C．V alue 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．在窗体模块的通用声明中声明变量时，不能使用_______关键字。 A．Dim B．Public C．Private D．Static 8. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private x As Integer Private Sub Command1_Click() a = 6: b = 4 Call sub1(a, b) Label1.Caption = a Label2.Caption = b End Sub Private Sub sub1(ByV al x As Integer, ByV al y As Integer) a = x * x b = y * y End Sub 程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。 A．36和4 B．6和4 C．36和8 D．6和8 9．以下叙述中错误的是_______。 A．不能在标准模块中定义Static型变量。 B．语句Dim a, b As Integer声明了两个整形变量

vb练习题及答案

vb练习题1 VB练习题一 一、选择题 1．Visual Basic程序设计的主要的步骤是C A、可视性程序设计 B、代码程序设计 C、可视性程序设计和代码程序设计 D、界面设计 2．窗体能响应的事件是C A、ActiveFrom B、Drive C、Load D、Change 3．获得系统时间的函数是B A、data$ B. time$ C. date$ D. gettime$ 4．在设计一个计算器时，必须要使用的控件是C A、滚动条 B、图片框 C、文本框 D、单选框 5．下列运算符号中属于关系运算符的是_____。B A、— B、= C、AND D、+ 6.Visual Basic规定工程文件的扩展名是C A、.for B、.frm C、.vbp D、.bas 7. OOP是面向_______的程序设计的简称。C A、用户 B、问题 C、对象 D、操作者 8. 设置对象中的字体应用___属性.C A、Caption B、Name C、Font D、Text 9.设置文本框中显示的内容应用___属性。D A、Caption B、Name C、Font D、Text 10.逻辑型又称_____。C A、数值型 B、字符串型 C、布尔型 D、整型 11.三种逻辑运算符号优先次序为：____。C A、AND、NOT、OR B、NOT、OR、AND C、NOT、AN D、OR D、OR、NOT、AND 12.关于高级语言，下列那一项叙述是正确的。(A) A、以类似英文的句子来表示 B、写成的程序执行速度最快 C、不必编译即可直接执行 D、受电脑机种限制大 13.可将高级语言翻译成机器语言的程序为。B A、汇编程序 B、编译程序 C、解释程序 4、以上皆可。