vb编程题经典100例,VB编程题

vb编程题经典100例,VB编程题详细介绍

本文目录一览： VB编程题：编写一个产生1 至100之间的随机整数的Function 过程

Rnd函数产生的是0和1之间的随机数，范围是[0,1)，包括0，但不包括1。
因此要产生1~100之间的随机数，可以使用Rnd*98，产生的是[0,98)的随机数，而int(Rnd*98)产生的是[0,97]之间的随机整数，那么int(Rnd*98)+2产生的就是[2,99]之间的随机整数了，符合目标1到100之间的随机数目的。
函数代码如下：
Public Function sj() As Integer
Randomize
sj = Int(Rnd * 98) + 2
End Function
扩展资料：
语法：
Rnd[(number)]
如果 number 的值是 Randomize 生成
小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。
大于 0 ，以上一个随机数为种子产生下一个随机数。
等于 0 ，产生与最近生成的随机数相同的随机数。
省略， 以上一个随机数为种子产生下一个随机数。
说明：
Rnd 函数返回小于 1 但大于或等于 0 的值。
number 的值决定了 Rnd 生成随机数的方式。
对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。
在调用 Rnd 之前，先使用无参数的 Randomize语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。
参考资料：百度百科——rnd（随机函数）

vb编程实例 交互式窗口，输入100个数据，求平均值、平方后再开方和自动分类

就不能多点悬赏么？
Dim intArray(100) As Single, sglAverage As Single
Private Sub Command1_Click()
Randomize (Timer)
Dim i As Integer, intSum As Integer
Me.Picture1.Cls
For i = 1 To 100
intArray(i) = Int(Rnd(i) * 5 + 95)
Me.Picture1.Print intArray(i);
If i Mod 10 = 0 Then Me.Picture1.Print
intSum = intSum + intArray(i)
Next i
sglAverage = intSum / 100
Label1.Caption = "Sum=" & intSum
Label2.Caption = "Average=" & sglAverage
End Sub
Private Sub Command2_Click()
Dim i As Integer, k0 As Integer, k(4) As Integer
For i = 0 To 4
Me.Picture2(i).Cls
Next i
For i = 1 To 100
If Sqr((intArray(i) - sglAverage) ^ 2) >= 1.67 Then
k(0) = k(0) + 1
Me.Picture2(0).Print intArray(i);
If k(0) Mod 10 = 0 Then Me.Picture2(0).Print
ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 1.33 And Sqr((intArray(i) - sglAverage) ^ 2) < 1.67 Then
k(1) = k(1) + 1
Me.Picture2(1).Print intArray(i);
If k(1) Mod 10 = 0 Then Me.Picture2(1).Print
ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 1 And Sqr((intArray(i) - sglAverage) ^ 2) < 1.33 Then
k(2) = k(2) + 1
Me.Picture2(2).Print intArray(i);
If k(2) Mod 10 = 0 Then Me.Picture2(2).Print
ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 0.67 And Sqr((intArray(i) - sglAverage) ^ 2) < 1 Then
k(3) = k(3) + 1
Me.Picture2(3).Print intArray(i);
If k(3) Mod 10 = 0 Then Me.Picture2(3).Print
Else
k(4) = k(4) + 1
Me.Picture2(4).Print intArray(i);
If k(4) Mod 10 = 0 Then Me.Picture2(4).Print
End If
Next i
For i = 0 To 4
Me.Label8(i).Caption = "共计" & k(i)
Next i
End Sub

关于VB的几道编程题 谢谢帮忙·

1-4：在名称为Form1的窗体上建立二个名称分别为Cmd1、Cmd2，标题为“按钮一”、“按钮二”的命令按钮（如图1所示）。要求程序运行后，如果单击“按钮一”，则把“按钮二”移到“按钮一”上（如图2所示），使两个按钮重合。
private sub cmd1_click()
cmd2.move cmd1.left,cmd1.top,cmd1.width,cmd1.height
end sub
1-5：在名称为Form1的窗体上画一个命令按钮，名称为Command1，其标题为“移动本按钮”，如图所示。要求编写适当的事件过程，使得程序运行是，每单击按钮一次，按钮向左移动100。要求：程序中不得使用变量，事件过程中只能写一条语句。
private sub command1_click()
command1.left = command1.left - 100
end sub
在名称为Form1的窗体上画一个名称为L1的标签，标题为“请确认”；再画两个命令按钮，名称分别为C1、C2，标题分别为“是”、“否”，高均为300，宽均为800。如图所示。
请在属性窗口中设置适当属性满足以下要求：
1） 窗体标题为“确认”，窗体标题栏上不显示最大化和最小化按钮；
2） 在任何情况下，按回车键都相当于单击“是”按钮；按ESC键都相当于单击“否”按钮。
1)点击窗体，属性里面设置Caption为确认，设置MaxButton=False，MinButton=False
2)点击“是”按钮（c1），设置Default=true
点击“否”按钮（c2），设置cancel=true
1-7：在名称为Form1的窗体上画一个名称为Lab的标签，设置高度为450，宽度为1500，标签上显示内容为“标签”。要求程序运行后，若双击窗体则执行语句Lab.Caption=“双击”，若单击窗体则执行语句Lab.Caption=“”。
private sub form_click()
lab.caption = ""
end sub
private sub form_dblclick()
lab.caption = "双击"
end sub
1-8：在名称为Form1的窗体上画两个标签（名称分别为Label1和Label2，标题分别为“书名”和“作者”）、两个文本框（名称分别为Text1和Text2，Text属性均为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然后单击命令按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图2所示。要求程序中不得使用任何变量。
private sub command1_click()
me.caption = text1.text & text2.text
end sub
1-9：在名称为Form1的窗体上画一个标签（名称为Label1，标题为“输入信息”）、一个文本框（名称为Text1，Text属性为空白）和一个命令按钮（名称为Command1，标题为“显示”），如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入“计算机等级考试”，然后单击命令按钮，则标签和文本框消失，并在窗体上显示文本框中的内容。运行后的窗体如图2所示。要求程序中不得使用任何变量。
private sub command1_click()
print text1.text
label1.visible = false
text1.visible = false
end sub
1-10：在名称为Form1的窗体上画一个名称为L1的标签，标题为“口令”；画两个文本框，名称分别为Text1、Text2，都没有
初始内容；再画三个命令按钮，名称分别为C1、C2、C3，标题分别为“显示口令”、“隐藏口令”、“复制口令”。在开始运行时，向Text1中输入的所有字符，都显示“*”，单击“显示口令”按钮后，在Text1中显示所有字符，再单击“以隐藏口令”后，Text1中的字符不变，但显示的都是“？”，单击“复制口令”后，把Text1中的实际内容复制到Text2中，如图所示。
要求：
1） 在属性窗口中，把窗体的标题改为“口令窗口”；
2） 建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。
1)点击窗体，设置窗体的Caption为口令窗口，设置text1的passwordchar属性为*
2)
private sub c1_click()
text1.passwordchar=""
end sub
private sub c2_click()
text1.passwordchar="?"
end sub
private sub c3_click()
text2.text = text1.text
end sub

vb 例子

最好自己搜一搜。看是否适合自己。推荐一个
http://v.youku.com/v_playlist/f1072569o1p0.html
例：1到100累加
s=0 '赋初值
For i =1 to 100 'i为循环控制变量
s = s + i '累加
next i
例：鸡兔同笼，有35个头，94只脚，鸡兔各多少只？
x=0
Do
x=x+1
y=35-x
If 2*x+4*y=94 Then Exit Do
loop
不要例子，你能把数据库中的数据取出来，并且打印出来么？
你会这个，VB也就难不倒你了。
入门建议：跟其他大多数语言一样，先“hello world!”就是用msgbox这个函数显示字符串。
具体操作：新建一个工程-》放一个按钮-》双击-》代码输入
Private Sub Command1_Click()
MsgBox "hello world!"
End Sub
运行，最简单的vb程序就出来了。
vb的控件不多，熟悉原理跟上面一样，买本书最好，不要省这个钱。
了解完控件，就可以看看窗体、画图等操作。上“VB吧”论坛上有很多例子，根据工作需要学一下，网络编程（TCP/IP UDP这两个比较容易，用途也大），数据库处理。不过如果想成为高手，API肯定要学的。
例子或网站好的不好说，只有适合跟不适合的，看水平而定。基础搞好了，想找些例子巩固，大可上迅雷下载，资料很多！
www.vbgood.com去看看吧，有好多例子
1..
Dim Words, Chars, MyString
For Words = 10 To 1 Step -1 ' 建立 10 次循环。
For Chars = 0 To 9 ' 建立 10 次循环。
MyString = MyString & Chars ' 将数字添加到字符串中。
Next Chars ' Increment counter
MyString = MyString & " " ' 添加一个空格。
Next Words
2.
Do...Loop 语句示例
本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时，马上退出。
Dim Check, Counter
Check = True: Counter = 0 ' 设置变量初始值。
Do ' 外层循环。
Do While Counter < 20 ' 内层循环。
Counter = Counter + 1 ' 计数器加一。
If Counter = 10 Then ' 如果条件成立。
Check = False ' 将标志值设成 False。
Exit Do ' 退出内层循环。
End If
Loop
Loop Until Check = False ' 退出外层循环。
3.
While...Wend 语句示例
本示例使用 While...Wend 语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。
Dim Counter
Counter = 0 ' 设置变量初值。
While Counter < 20 ' 测试计数器的值。
Counter = Counter + 1 ' 将计数器的值加一。
Wend ' 当 Counter > 19 时则循环终止。
Debug.Print Counter ' 在“立即”窗口中显示数字 20。
Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值，故只有此区块内的语句会被完成到。
Dim Number
Number = 8 ' 设置变量初值。
Select Case Number ' 判断 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之间，包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之间。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他数值。
Debug.Print "Not between 1 and 10"
End Select

vb题：编程计算100以内素数的和

Private Sub Command1_Click()Dim i As Integer, j As Integer, k As IntegerFor i = 2 To 100 For j = 2 To i If i Mod j = 0 Then Exit For End If Next If i = j Then k = k + i End IfNextMsgBox kEnd Sub
Private Sub Form_Load()ShowDim n, i, k As Integer '定义n , i , k为整数型s = 0 '赋值s 为0For n = 1 To 100 '枚举 for循环 n 从1到100k = 0 '赋值k 为0For i = 1 To n '嵌套for循环 i为除数If n Mod i = 0 Then '如果 i 能整除nk = k + 1 '（k为可以整除n的个数） 则k加1End IfNext i '结束for循环If k = 2 Then '如果 k等于2 （由于素数只有两个能够整除的除数，为素数的特性）s = s + n 's相当于累加器，将满足k=2条件的n加起来End IfNext n '结束for循环Print s '输出sEnd Sub以上是我的一种枚举的方法，还有多种解法，希望可以帮助你。
要理解这段代码并不难，主要理解：
双重循环有这几特点:
一是:一旦进入内循环,要把内循环做完才能持行外循环代码,除非你是用exit for 强制退出二是:外循环做一次,内循环要做完,强制性退出(Exit for)的除外

高分替兄弟求VB编程题

你是哪个学校的？
我的专业就是计算机，做毕业设计时，正好作的设计是你描述的那样的设计，如果咱们不是一个学校的我就把设计给你好了！
一、打开VBTEST子目录下的窗体文件Form1.frm，修改其中的程序，使能输出如下图形：
*
* *
* * *
* * * *
* * * * *
* * * * * *
程序如下：
Private Sub Command1_Click()
For i=1 to ____
For j=1 to ____
Print_____
Next j
Print
Next i
End Sub
二、下列程序的功能是从键盘上任意输入一个数，判断这个数是正数、负数、还是零，
并输出判断结果。
程序中有三处错误，请打开VBTEST子目录下的窗体文件Form2.frm，调试更正。
程序如下：
Private Sub Command1_Click()
Dim a As Single
Dim py As String
a=Val(Text1)
If a>0 Then py="正数"
If a=0 Then py="零"
If a<=0 Then py="负数"
Label3.Caption=a
End Sub
三、打开VBTEST子目录下的窗体文件Form3.frm，修改程序，使能输出：
1-2+3-4+5-6+...+99-100的值
程序如下：
Private Sub Command1_Click()
s=_____
For i=1 To _____
s=s+(-1)^(______)*i
Next i
Print s
End Sub
四、打开VBTEST子目录下的窗体文件Form4.frm。已知一元二次方程的二次项系数、一次
项系数、常数项
分别为a、b、c，其中a不等于0。修改程序，求方程的根。
要求：如果方程无实数根，则输出“无实数根”，否则输出两个实数根。
Private Sub Command1_Click()
Dim a,b,c,d As Single
Dim x1,x2 As Single
a=Val(Text1.Text)
b=Val(Text2.Text)
c=Val(Text3.Text)
d=b^2-4*a*c
If d________ Then
x1=(-b+Sqr(d))/(2*a)
x2=(-b-Sqr(d))/(2*a)
Label1.Caption=x1
Label2.Caption=x2
_______
Label3.Caption=______
End If
End Sub
五、下面的程序是求当r=2,JI=3.14，x=-3，y=1.2时代数式r*r*JI+[(64-6y)+3x]/5的值
，程序中有三处错误，
请打开VBTEXT子目录下的窗体文件Form5.frm，调试更正。
Private Sub Command1_Click()
Dim a As Single
r=2:pi=3.14:x=-3:y=1.2
a1=r*r*JI
a2=(64-6y)+3*x
a3=a2/5
Print a1+a2+a3
End Sub
六、下面的程序是求7!（7!=1*2*3...*6*7)的值，并在默认窗口输出这个值。程序中有
三处错误，请打开
VBTEST子目录下的窗体文件Form6.frm，调试更正。
Private Sub Command1_Click()
Dim a As Single
a=0
For i=1 to n
a=a*i
Next i
Print i
End Sub
七、下面的程序是求100以内奇数和s的值（S=1+3+5+7...+99）。程序中有三处错误，请
打开VBTEST子目录下
的窗体文件Form7.frm，调试更正。
Private Sub Command1_Click()
Dim s As Single
Dim i As Single
s=1
For i=1 to 100 Step 1
s=s*i
Next i
Print s
End Sub
八、下面的程序是当输入的考试成绩不低于60分时输出“及格”，否则输出“不及格”
。程序中有二处错误，
请打开VBTEST子目录下的窗体文件Form8.frm，调试更正。
Private Sub Command1_Click()
Dim cj As Integer
Dim py As String
cj=Val(Text1.Text)
If cj>60 Then
py="及格"
Else
py="不及格"
End If
label3.Caption=py
End Sub
九、打开VBTEST子目录下的窗体文件Form9.frm，完善其中的程序，使能输出如下图形。
--* * * * * *
----* * * * * *
------* * * * * *
--------* * * * * *
----------* * * * * *
------------* * * * * *
---表示空格
程序如下：
Private Sub Command1_Click()
For i=1 To 6
Print Tab(______);
For j=1 To_______
Print_______
Next j
Print
Next i
End Sub
十、打开VBTEST子目录下的窗体文件Form10.frm，修改下面的程序，使运行后输出如下
结果：
张大富 男 39岁
Private Sub Command1_Click()
Dim xm,xb,nl As String
xm=张大富 xb="男":nl="39岁"
Print xm
Print xb
Print nl
Print "岁"
End Sub
十一、打开VBTEST子目录下的窗体文件Form2.frm，完善已写在“计算”按钮的Click事
件下的程序代码，
将代码段中的“常量”、“变量1”、“变量2”处分别换成正确的常量值、变量名（其
他不动），使得当
鼠标单击命令按钮“计算”时，窗体上显示1+2+3+...+99+100的值。
命令代码如下：
Private Sub Command1_Click()
s=常量
For i=1 To 100 Step 1
s=s+变量1
Next i
Print 变量2
End Sub
十二、打开VBTEST子目录下的窗体文件Form3.frm，完善已写在“计算”按钮的Click事
件下的程序代码，
将代码段中的“常量”、“运算符”、“变量”处分别换成正确的常量值、运算符、变
量名，使得当
鼠标单击命令按钮“计算”时，窗体上显示10!(10!=1*2*3*...*10)的值。
命令代码如下：
Private Sub Command1_Click()
s=常量
For i=1 To 10
s=s 运算符 i
Next i
Print 变量
End Sub
十三、打开VBTEST子目录下的窗体文件Form4.frm，完善已写在“执行”按钮的Click事
件下的程序代码，
将代码段中的“常量”、“变量”、“表达式”处分别换成正确的常量值、变量名和具
体的表达式，
使得当鼠标单击命令按钮“执行”时，显示出满足条件2+4+6+...+x<80中最大的x的
值。
命令代码如下：
Private Sub Command1_Click()
s=0
x=0
Do
x=x+常量
s=s+变量
Loop Until s>=80
Print 表达式
End Sub
十四、打开VBTEST子目录下的窗体文件Form5.frm，在窗体适当的位置建立一个Command
1按钮，然后编写代码，
使得当鼠标单击命令按钮Command1时，窗体上的标签文字“Lable1”变为“江苏省信息
技术等级考试”。
十五、打开VBTEST子目录下的窗体文件Form10.frm，完善程序，将代码中的“常量”、
“关系运算符”、
“语句”、“变量”处分别换成正确的常量值、关系运算符、语句、变量名，使当点击
“输出”按钮时，
屏幕显示程序运行结果为：20-10=10
程序代码如下：
Private Sub Command1_Click()
a=10
b=常量
if a 关系运算符 b Then
Print a;"-";b;"=";a-b
语句
Print 变量;"-";a;"=";10
End If
End Sub
答案：
1、6 i "*";
2、Val(Text1)改为Val(Text1.Text) a < =0改为a < 0 Label3.Caption =
a改为Label3.Caption = py
3、0 100 i + 1
4、> 0 Else "无实数根"
5、JI改为pi 6y改为6 * y a1 + a2+ a3改为a1+a3
6、a = 0改为a = 1 n改为7 Print i改为Print a
7、s = 1改为s = 0 Step 1改为Step 2 s = s * i改为s = s + i
8、cj > 60改为cj >= 60 另一错误请同学们自己找
9、2 + i 6 "*";
10、
Private Sub Command1_Click()
Dim xm, xb, nl As String
xm = "张大富": xb = "男": nl = "39岁"
Print xm,
Print xb,
Print nl
End Sub
11、
Private Sub Command1_Click()
s = 0
For i = 1 To 100 Step 1
s = s + i
Next i
Print s
End Sub
12、
Private Sub Command1_Click()
s = 1
For i = 1 To 10
s = s * i
Next i
Print s
End Sub
13、
Private Sub Command1_Click()
s = 0
x = 0
Do
x = x + 2
s = s + x
Loop Until s >= 80
Print "x="; x - 2
End Sub
15、
Private Sub Command1_Click()
a = 10
b = 20
If a > b Then
Print a; "-"; b; "="; a - b
Else
Print b; "-"; a; "="; 10
End If
End Sub
一、选择题
1、 某一VB工程含F1、F2两个窗体，执行“F1．Show:F2．Hide”语句后，F1、F2窗体显示的结果为（ ）。
A、都显示 B、都不显示 C、仅显示F1窗体 D、仅显示
F2窗体
2、 在VB中，执行“Text1．Text= “0551-2649670” “Tel=0551-2649670”这行语句时，“，”后面的部分为（ ）。
A、注释部分，不是可执行代码 B、注释部分，但是可以执行代码
C、程序代码的一部分 D、程序代码的另一种写法
3、 VB的数据类型分为（ ）
A、 数值型、字符型、布尔型、日期型 B、数值型、字符型、对象型、日期型
C、基本类型、扩展类型 D、整型、实型、字符型、日期型、布尔型
4、VB中的变量如果没有显示声明其数据类型，则默认为（ ）
A、日期型 B、数据型 C、字符型 D、变体型
5在VB中，通过改变表框（ ）属性的值 ，可以为列表框添加项目。
A、List B、（名称） C、Caption D 、Text
6、在VB中，执行“A=5：A=A+5”语句后，变量A的值为（ ）
A、0 B、5 C、10 D、不一定
7、VB中运算符被分为四类，分别是（ ）
A、算术运算符、连接运算符、关系运算符、逻辑运算符
B、算术运算符、比较运算符、关系运算符、逻辑运算符
C、算术运算符、连接运算符、布尔运算符、逻辑运算符
D、连接运算符、比较运算符、逻辑运算符、关系运算符
8、在VB中，执行“A=18MOD4”语句后，A的值为（ ）。
A、2 B、4 C、6 D、8
9、A为True,B为False, 则 “AandB”和 “AOrB”的值分别是（ ）。
A、True,True B、True False C 、False,True D 、False,False
10、在VB中，执行 “DimA,B As String” 语句后，A，B的数据结构为（ ）。
A、整型数 B、实型数 C、字符型 D、字节型
11、在VB中，执行 “A=123：B=Str$(A)”语句后，B的数据结构为（ ）。
A、整型数、 B、字节型 C、实型数 D、字符型
12、在VB中，复写框（Check）的Value值有三种，分别是（ ）。
A、-1，0，1 B、0，1，2 C、1，2，3 D、True，False，0
13、在VB中，如要创建“年级”和“班级”两组单选按钮，具体的做法是（ ）
A、先创建“单选按钮”，然后用“框架”分别框住
B、先分别创建“单选按钮”和“框架”，然后将“单选按钮”拖到相应的框架中
C、先创建“框架”，然后在“框架”中创建“单选按钮”
D、以上方法均可
14、数学关系3〈= x〈10表示成正确的VB表达式为（ ）
A、3〈=x〈10 B、3〈=xANDx〈10 C、x〉=3ORx〈10 D、3〈=xAND〈10
15、Int（198.555*100+0.5）/100的值为（ ）
A、198 B、199.6 C、198.56 D、200
16、下面正确的赋值语句是（ ）
A、x+y=30 B、y= *r*r C、y=x+30 D、3y=x
17、为了给三个变量赋初值1，下面正确的赋值语句是（ ）
A、x=1：y=1：z=1 B、x=1，y=1，z=1 C、x=y=z=1 D、xyz=1
18、分支结构的程序在进行判断后可分别控制程序有（ ）个以上的走向。
A、1 B、2 C、3 D、8
19、语句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为关系表达
20、可用于设置系统当前时间的语句是（ ）。
A、Date B、Date$ C、Time D、Timer
21、若要退出For循环，可使用的语句为（ ）。
A、Exit B、Exit Do C、Time D、Exit For
22、利用VB设计程序的基本步骤可分四步：
（1） 设计用户界；（2）（ ）；（3）运行调试程序；（4）生成执行文件。
A、编写代码 B、设计算法 C、信息反馈 D、系统集成
23、在代码窗口内将表单Form1的“Caption”属性设置为“时钟”,正确的书写形式是( )
A Form.C aption“时钟” B Form.Caption=“时钟”
C Caption=“时钟” D Fopm.Caption( “时钟”)
24 下列操作不能打开代码窗口的是( )
A选中对象,单击鼠标右键,在弹出的快捷菜单中选择“查看代码”命令
B 选中对象,双击鼠标左键 C 按F7键 D按F4键
25 保存文件时,窗体的所有数据存储格式为( )
A *．PRG B *．FRM C.*．VBP D *．EXE
26窗体初始化程序应写在( )事件中.
A Load B Unload C Activate D GotFocus
27 在一个语句内写多条语句时,每个语句之间分隔符号是( )
A ， B ： C 、 D ；
28 一句语句要在下一行继续写,所用的续行符号为( ).
A ＋ B － C ＼―― D．．．X
29 下面是合法的变量名为( )
A x＿yz B 123abc C integer D X-Y
30 下面是合法的字符串常数为( )
A ABC $ B “ABC” C ‘ABC' D ABC
二 判断题
1、 VB 中的控件都是用来设计用户界面的。（ ）
2、在VB程序时,选中Form (窗体)上的某个控件,如果控件周围出现8个白色小方块,则表示该控件未被锁定。（ ）
4、 设计VB程序时，选中窗体上的“Text1”文本框控件，将其“BackColor”属性值设置为淡绿色，将“ForeColor”属性值设置为红色，则“Text1”文字为红色。（ ）
5、 在VB中，“方法”是指在对象上起作用的过程，也就是说用来控制对象的功能及操作的内部程序。（ ）
6、 在编写VB程序代码时，对象属性的表示方法为：方法名.对象名称。（ ）
7、 Click事件，就是鼠标单击事件。（ ）
8、 在程序执行的过程中，变量的值始终保持不变，常量的值随时改变。（ ）
程序代码的基本结构有三种，分别是顺序结构、选择结构（分支结构）、循环结构。（ ）
9、 在VB中，有一名称为LIST1的列表框，那麽执行“LIST1.ADDITEM“方周工作室””语句后，即在LIST1列表框中添加“方周工作室”这个项目。（ ）
10、 在VB中，运算级从高到底的顺序是：算数运算、连接运算、关系运算、逻辑运算。（ ）
一、 选择题（（1）~（20）每小题2分，（21）~（30）每小题3分，共70分）
下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
（1）以下叙述中错误的是
A）Visual Basic 是事件驱动型可视化编程工具
B）Visual Basic应用程序不具有明显的开始和结束语句
C）Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
D）Visual Basic中控件的某些属性只能在运行时设置
（2）以下叙述中错误的是
A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
B）以.BAS为扩展名的文件是标准模块文件
C）窗体文件包含该窗体及其控件的属性
D）一个工程中可以含有多个标准模块文件
（3）以下叙述中错误的是
A）双击鼠标可以触发DblClick事件
B）窗体或控件的事件的名称可以由编程人员确定
C）移动鼠标时，会触发MouseMove事件
D）控件的名称可以由编程人员设定
（4）以下不属于Visual Basic系统的文件类型是
A）.frm B）.bat C）.vbg D）.vbp
（5）以下叙述中错误的是
A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
B）保存Visual Basic程序时，应分别保存窗体文件及工程文件
C）Visual Basic应用程序只能以解释方式执行
D）事件可以由用户引发，也可以由系统引发
（6）以下能正确定义数据类型TelBook的代码是
A）Type TelBook
B）Type TelBook
Name As String*10 Name As String*10
TelNum As Integer TelNum As Integer
End Type End TelBook
C）Type TelBook
D）Typedef TelBook
Name String*10 Name String*10
TelNum Integer TelNum Integer
End Type TelBook End Type
（7）以下声明语句中错误的是
A）Const var1=123 B）Dim var2 = 'ABC' C）DefInt a-z D）Static var3 As Integer
（8）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是
A）List1.List B）List1.ListIndex C）List1.Index D）List1. Text
（9）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是
A）MouseDown B）MouseUp C）Load D）Click
（10）设a=10，b=5，c=1，执行语句Print a > b > c后，窗体上显示的是
A）True B）False C）1 D）出错信息
（11）如果要改变窗体的标题，则需要设置的属性是
A）Caption B）Name C）BackColor D）BorderStyle
（12）以下能判断是否到达文件尾的函数是
A）BOF B）LOC C）LOF D）EOF
（13）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是
A）如果工程中含有Sub Main过程，则程序一定首先执行该过程
B）不能把标准模块设置为启动模块
C）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体
D）任何时刻最多只有一个窗体是活动窗体
（14）窗体的MouseDown事件过程
Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single)
有4个参数，关于这些参数，正确的描述是
A）通过Button参数判定当前按下的是哪一个鼠标键
B）Shift参数只能用来确定是否按下Shift键
C）Shift参数只能用来确定是否按下Alt和Ctrl键
D）参数x,y用来设置鼠标当前位置的坐标
（15）设组合框Combo1中有3个项目，则以下能删除最后一项的语句是
A）Combo1.RemoveItem Text
B）Combo1.RemoveItem 2
C）Combo1.RemoveItem 3
D）Combo1.RemoveItem Combo1.Listcount
（16）以下关于焦点的叙述中，错误的是
A）如果文本框的TabStop属性为False，则不能接收从键盘上输入的数据
B）当文本框失去焦点时，触发LostFocus事件
C）当文本框的Enabled属性为False时，其Tab顺序不起作用
D）可以用TabIndex属性改变Tab顺序
（17）如果要在菜单中添加一个分隔线，则应将其Caption属性设置为
A）= B）* C）& D）-
（18）执行语句Open "Tel.dat" For Random As #1 Len = 50后，对文件Tel.dat中的数据能够执行的操作是
A）只能写，不能读 B）只能读，不能写 C）既可以读，也可以写 D）不能读，不能写
（19）在窗体上画一个名称为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
（20）设有以下循环结构
Do
循环体
Loop While

则以下叙述中错误的是

A）若"条件"是一个为0的常数，则一次也不执行循环体

B）"条件"可以是关系表达式、逻辑表达式或常数

C）循环体中可以使用Exit Do语句

D）如果"条件"总是为True，则不停地执行循环体

（21）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim num As Integer

num = 1

Do Until num > 6

Print num;

num = num + 2.4

Loop

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是

A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出

（22）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a As Integer, s As Integer

a = 8

s = 1

Do

s = s + a

a = a－1

Loop While a <= 0

Print s; a

End Sub

程序运行后，单击命令按钮，则窗体上显示的内容是

A） 7 9 B） 34 0 C） 9 7 D）死循环

（23）设有如下通用过程：

Public Function f(x As Integer)

Dim y As Integer

x = 20

y = 2

f = x * y

End Function

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Static x As Integer

x = 10

y=5

y = f(x)

Print x; y

End Sub

程序运行后，如果单击命令按钮，则在窗体上显示的内容是

A）10 5 B）20 5 C）20 40 D）10 40

（24）设有如下通用过程：

Public Sub Fun(a(), ByVal x As Integer)

For i = 1 To 5

x = x + a(i)

Next

End Sub

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

Private Sub Command1_Click()

Dim arr(5) As Variant

For i = 1 To 5

arr(i) = i

Next

n = 10

Call Fun(arr(), n)

Text1.Text = n

End Sub

程序运行后，单击命令按钮，则在文本框中显示的内容是

A）10 B）15 C）25 D）24

（25）在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

d = 0

c = 10

x = Array(10, 12, 21, 32, 24)

For i = 1 To 5

If x(i) > c Then

d = d + x(i)

c = x(i)

Else

d = d－c

End If

Next i

Print d

End Sub

程序运行后，如果单击命令按钮，则在窗体上输出的内容为

A）89 B）99 C）23 D）77

（26）在窗体上画两个滚动条，名称分别为Hscroll1 、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label 4~ Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3 显示A*B的计算结果。如图所示。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是

A）Private Sub Command1_Click()

Label3.Caption = Str(Val(Label1.Caption )*Val( Label2.Caption))

End Sub

B）Private Sub Command1_Click()

Label3.Caption = HScroll1.Value * HScroll2.Value

End Sub

C）Private Sub Command1_Click()

Label3.Caption = HScroll1 * HScroll2

End Sub

D）Private Sub Command1_Click()

Label3.Caption = HScroll1. Text * HScroll2.Text

End Sub

（27）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

For n = 1 To 20

If n Mod 3 <> 0 Then m = m + n \ 3

Next n

Print n

End Sub

程序运行后，如果单击命令按钮，则窗体上显示的内容是

A）15 B）18 C）21 D）24

（28）在窗体上画一个名称为Text1的文本框，并编写如下程序：

Private Sub Form_Load()

Show

Text1.Text = ""

Text1.SetFocus

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Print "程序设计"

End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)

Print "Visual Basic";

End Sub

程序运行后，如果按"A"键，然后单击窗体，则在窗体上显示的内容是

A）Visual Basic B）程序设计 C）A程序设计 D）Visual Basic程序设计

（29）设有如下程序：

Private Sub Command1_Click()

Dim sum As Double, x As Double

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

Next

End Sub

该程序通过For循环计算一个表达式的值，这个表达式是

A）1+1/2+ 2/3+3/4+4/5 B）1+1/2+2/3+3/4 C）1/2+2/3+3/4+4/5 D）1+1/2+1/3+1/4+1/5

（30）以下有关数组定义的语句序列中，错误的是

A） Static arr1(3) B）Dim arr2() As Integer

arr1(1) = 100 Dim size As Integer

arr1(2) = "Hello" Private Sub Command2_Click()

arr1(3) = 123.45 size = InputBox("输入：")

ReDim arr2(size)

．．．．．．

End Sub

C）Option Base 1 D）Dim n As Integer

Private Sub Command3_Click() Private Sub Command4_Click()

Dim arr3(3) As Integer Dim arr4(n) As Integer

．．．．．． ．．．．．．

End Sub End Sub

vb编程题：随机产生10个［0,100］随机整数并求出能被3整除的数。求这个vb

一、要产生1到100之间的随机数，首先了解Rnd函数的用法，Rnd函数产生的是0和1之间的随机数，范围是[0,1)，包括0，但不包括1。因此要产生1~100之间的随机数，可以使用Rnd*98，产生的是[0,98)的随机数，而int(Rnd*98)产生的是[0,97]之间的随机整数，那么int(Rnd*98)+2产生的就是[2,99]之间的随机整数了，符合目标1到100之间的随机数目的。函数代码如下：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End Function二、举个例子，要产生10个1到100之间的随机整数，如下：1、打开VB6.0开发软件，新建一个标准exe工程；2、在设计界面上添加一个Text控件和一个Command控件；3、Command1控件的Caption属性设置为"产生10个1~100之间的随机数"。4、双击Command1控件，进入代码编辑界面，输入如下代码：Public Function sj() As Integer Randomize sj = Int(Rnd * 98) + 2End FunctionPrivate Sub Command1_Click()Text1.Text = ""For i = 1 To 10 Text1.Text = Text1.Text & sj() & " "Next iEnd Sub5、运行工程，单击按钮，可以看到Text1控件中产生的10个1~100之间的随机整数。

VB编程题

选C
我用VB试的
3是重复3次 string函数就是重复第一个字符 这里是A 结果是3个A
string 函数只返回头一个字符的重复序列，后面的不管
所以 String(3,"AB")的计算结果为 "AAA"
这里的 3 表示重复 3次
－－－－－－－
String 函数

返回 Variant (String)，其中包含指定长度重复字符的字符串。
语法
String(number, character)
String 函数的语法有下面的命名参数：
部分 说明
number 必要参数；Long。返回的字符串长度。如果 number 包含 Null，将返回 Null。
character 必要参数；Variant。为指定字符的字符码或字符串表达式，其第一个字符将用于建立返回的字符串。如果 character 包含 Null，就会返回 Null。
说明
如果指定 character 的数值大于 255，String 会按下面的公式将其转为有效的字符码：
character Mod 256

VB编程题目~求助啊~~

Private Sub Command1_Click()
a = Val(InputBox("A="))
b = Val(InputBox("B="))
c = Val(InputBox("C="))
Max = IIf(a > b, a, b)
If c > Max Then Max = c
MsgBox "最大数=" & Max
End Sub
Private Sub Form_Load()
Form1.Caption = "最大数"
End Sub
'这题目对初学者，其实很有难度，运行效果如下Private Sub command1_click()Dim X As StringDim brrDim a As LongDim b As LongDim c As LongX = InputBox("请输入3个整数(以英文逗号分隔)：", "求最大数", "例如：3,344,51", 1000, 1000)brr = Split(X, ",") If UBound(brr) > 2 ThenMsgBox "输入数字多余3个，请重新输入！", , "提醒"End '退出End IfIf UBound(brr) < 2 ThenMsgBox "输入数字少余3个，请重新输入！", , "提醒"End '退出End Ifa = brr(0)b = brr(1)c = brr(2)MsgBox "这三个数的最大数是" & Max(Max(a, b), c), , "最大数显示"End SubFunction Max(n1 As Long, n2 As Long) As LongMax = IIf(n1 > n2, n1, n2)End Function