VB习
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
小
题库
doc摄影基础题库高中语文题库及参考答案安全生产模拟考试平台题库选择大学英语b统考题库消防知识竞赛题库
一、选择题
VB 窗体默认的坐标单位是（C ）。
A、cm B、m C、Twip D、Pix
以下定义的过程（ B）是按“传值”方式传递参数的。
A、Public Sub Sum(x,y)
B、Public Sub Sum(ByVal x, ByVal y)
C、Public Sub Sum(x As Integer,y As Integer)
D、Public Sub Sum(x%, y%)
检查框（复选框）的控件名称为（B ）。
A、OptionBotton
B、CheckBox C、PictureBox D、Image
For语句的格式如下，下列说法错误的是（A ）。
For <循环变量>=<初值> to <终值> [step <步长>]
[<循环体>]
[exit for]
Next [<循环变量>]
A、步长只能为正数，不能为负数
B、步长为1时，可略去不写
C、初值、终值和步长都是数值表达式
D、Exit For 只能退出当前For循环
Inputbox函数返回值的类型是___B____。
A、数值 B、字符串 C、变体 D、视数据的类型而定
VB 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（B）
A、4 B、5 C、6 D、7
复选框或单选钮的当前状态可通过（ B ）属性来返回或设置。
A、Checked B、Value C、Selected D、Caption
单复选框的控件名称为（A ）。
A、OptionBotton
B、CheckBox C、PictureBox D、Image
以下叙述中正确的是_______a__。
A、窗体的Name属性指定窗体的名称，用来标识一个窗体
B、窗体的Name属性的值是显示在窗体标题栏中的文本
C、可以在运行期间改变对象的Name属性的值
D、对象的Name属性值可以为空
假设Text1文本框中输入了学生的成绩，规定成绩范围在0～100，下列语句中________c_____可用于判断输
入数据是否正确。
A、If 0 <= Text1 <= 100 Then MsgBox "输入正确" Else MsgBox "输入错误"
B、If 0 <= Text1 Or Text1 <= 100 Then MsgBox "输入正确" Else MsgBox "输入错误"
C、If 0 <= Val(Text1) And Val(Text1) <= 100 Then MsgBox "输入正确" Else MsgBox "输入错误"
D、If 0 <= Val(Text1) <= 100 Then MsgBox "输入正确" Else MsgBox "输入错误"
执行下面的语句后，所产生的信息框的提示消息是（b）。
A=MsgBox("aaaa",5 ,"bbbb")
A、bbbb B aaaa、 C、空 D、5
在Visual Basic 中要将一个窗体装载到内存中进行预处理，但不显示，应该使用语句____c__ 。
A、show B、hide C、load D、unload
在窗体上放置一个文本框控件（其Name属性为Text1），要求程序运行时该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是：b
A、Text1.MaxLength = 0 B、Text1.Enabled = False
C、Text1.Visible = False D、Text1.Width = 0
定时器的定时间隔单位是（c ）。
A、秒 B、微秒
C、毫秒
D、分
以下程序段的输出结果是（d ）。
A=1：b=2：t=0
if a
B And C<=D Or 2*A>C
的值是False。错误
对象的可见性用Enabled属性设置，可用性用Visible属性设置。错误
事件过程与Sub过程,它们相同点都是事件驱动,而不同的只是
事件过程由控件属性决定,而Sub过程是由户自定义. 正确
If <条件> Then <语句组1> [ Else <语句组2>]
其中，语句组1和语句组2可以是简单语句，也可以是用冒号分隔的多个语句。正确
当逻辑常量赋值给数值型变量时，True转换成-1，False转换成0;反之，当把数值量赋给逻辑变量时，非0转换成True，0转换成False。 正确
函数过程(Function Procedure)用来完成特定的功能，但不返
回相应的结果。错误
For循环的步长的取值只能是正数，当步长为1时，可以省略Step 1。错误
赋值语句,如果用字符串的形式表示数值，则可以将字符串赋给数值变量，也可将数值赋给字符串变量。 正确
089VisualBasic6.0是比高级语言更高级的一种程序设计语言，它改变了结构化程序设计的主从关系，解决问题着眼于问题中的对象及其相互的关系。 正确
090面向对象的编程方法是伴随Windows图形用户界面的诞生而产生的一种新的程序设计思想。 正确
091vb把程序和数据封装起来作为一个对象，并为每一个对象赋予相应的属性。正确
092VisualBasic它是美国Microsoft公司推出的一个在Windows、WindowsNT环境下运行的结构化的程序设计语言。错误
093当第一次启动VB时，看到的窗口称VB集成开发环境或用户界面。0Y
094启动VB后，窗体设计器窗口中一个窗体窗口也没有，需进行添加窗体的操作。错误
095启动VB后，窗体设计器窗口中便包含了一个窗体窗口，该窗体窗口默认的名字叫Form。错误
096窗体窗口是运行该工程时的用户界面。正确
097VB集成开发环境的的工作状态有[设计]、[运行]和[调试]3种。错误
098VisaulBasic是一种面向对象的可视化程序设计语言，其包含属性、事件和多态三个要素 错误
三、填空题
下列代码求出S=1+(1+2)+(1+2+3)+ … +(1+2+3+ … +n)的值。
Private Sub Form_Click()
n = Val(InputBox("请输入N的值："))
t = 0
s =【1】
For i = 1 To 【2】
t=t+i
s = s+【3】
Next i
Print s
End Sub
0 n t
在窗体上画一个名称为command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
a = 300
b = 20
a = a + b
b = a - b
a = a – b
Print a
Print b
End Sub
程序运行后，窗体上显示的是( )。
20 300
在窗体上有两个命令按钮Command1和Command2，标题分别是“初始化”和“求和”。程序运行后如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”按钮，则对数组a的各元素求和，并在文本框中显示出来。
Private a(3,2) As Integer
Private Sub Command1_click()
For i=1 to 3
For j=1 to 2
【1】=i+j
Next j
Next I
End Sub
Private Sub Command2_click()
For j=1 to 3
For i=1 to 2
s=s+【2】
Next i
Next j
Text1.text=【3】
A(i,j) a(j,I) s
利用文本框text1输入一个数，如果是正数，输出其平方根，否则输出其平方，结果的输出用文本框text2，请将程序补充完整。
Private Sub Command1_Click()
dim n as Integer
【1】=text1.text
if n>【2】 then text2.text=【3】 else text2.text=n*n
End Sub
N 0 sqr(n)
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim n As Integer, m As Integer
For n = 1 To 10
If n Mod 3 <> 0 Then m = m + n \ 3
Next n
Print n
Print m
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是________。
11 9
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a = 0: b = 0
For i = -1 To -2 Step -1
For j = 1 To 2
b = b + 1
Next j
a = a + 1
Next i
Print a
Print b
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是________。
2 4
设有如下程序:
Private Sub Command1_Click()
Dim a As Integer, n As Integer, s As Double, t As Double
n = InputBox("请输入n")
a = InputBox("请输入a")
For i = 1 To 【1】
【2】 = t + a * 10 ^ (i - 1)
s = 【3】
Next i
Print a, n,s
End Sub
该程序求S=a+aa+aaa+...+aaaa...aaa的值，其中a和n的值由用户自己输入。 例如，当a=3，n=4时,s＝3十33十333十3333。补充程序。
N t s+t
设有如下程序:
Private Sub Command1_Click()
i = 1
Do While i <= 【1】
【2】= s + i^i
i = 【3】
Loop
Print "1^1+2^2+3^3+...+10^10=" & s
End Sub
该程序计算多项式1^1+2^2+3^3+...+10^10的值，补充程序。
10 s i+1
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n = 0
For i = 1 To 3
For j = 5 To 1 Step -1
n = n + 1
Next j
Next i
Print n
Print j
Print i
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是________。
15 0 4
以下程序用于计算1+3+5+…+99。
Private Sub Command1_Click()
sum = 0
m = 1
Do
sum = sum + 【1】
m = 【2】
Loop While m <=【3】
Print "sum="; Sum
End Sub
M m+2 99
-1 100 1/i
以下程序用于求从100-1000之间所有3的倍数的数之和，当和大于3000时，停止计算并输出和。
Private Sub Command1_Click()
Dim i As Integer
Dim sum As Integer
For i = 100 To 【1】
If 【2】 Then
sum = sum + i
If sum > 3000 Then 【3】
End If
Next i
Print i, sum
End Sub
1000 I mod 3 = 0 exit for
在窗体上画一个名称为command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click()
s = 5
For i = 2.5 To 4.9 Step 0.5
s = s + 1
Next i
Print i
Print s
End Sub
程序运行后，窗体上显示的是( )。
5 10
设有如下程序:
Private Sub Command1_Click()
Dim a As Integer, n As Integer, s As Double, t As Double
n = InputBox("请输入n")
a = InputBox("请输入a")
For i = 1 To 【1】
【2】 = t + a * 10 ^ (i - 1)
s = 【3】
Next i
Print a, n,s
End Sub
6 该程序求S=a+aa+aaa+...+aaaa...aaa的值，其中a和n的值由用户自己输入。 例如，当a=3，n=4时,s＝3十33十333十3333。补充程序。
7 N
t s+t
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a = InputBox("请输入一个整数")
b = InputBox("请输入一个整数")
Print a + b
Print a & b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456输出结果为( )。
777 321456
复选框或单选钮的当前状态可通过（ b）属性来返回或设置。
A、Checked
B、Value
C、Selected
778 D、Caption
下列哪个符号不能作为Visual Basic的变量名（ c）。
A、AbC
B、POOO
C、8TF
779 D、xyz
Print lenb("学无止境")的结果是(a)
A、8
B、4
C、2
780 D、错误
设有如下程序:
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 【1】
x = n / i
n = 【2】
sum = sum + 【3】
Next
Print sum
End Sub
该程序通过For循环计算一个表达式1/2+2/3+3/4+4/5 的值，补充程序。
5 n+1 x
下列程序段运行后，显示的结果是( )。
Private Sub Form_Click()
Dim x As Boolean, a As Integer
x = -2
a = True
Print x
Print a
End Sub
True -1
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
n = 0
For i = 1 To 3
For j = 5 To 1 Step -1
n = n + 1
Next j
Next i
Print n
Print j
Print i
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是________。
15 0 4
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
a = 0: b = 0
For i = -1 To -2 Step -1
For j = 1 To 2
b = b + 1
Next j
a = a + 1
Next i
Print a
Print b
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是________。
2 4
编写如下事件过程：
Private Sub Command1_Click()
n = Val(Text1.Text)
Select Case n
Case 1 To 20
x = 10
Case 2, 4, 6
x = 20
Case Is < l0
x = 30
Case 10
x = 40
End Select
Text2.Text = x
End Sub
程序运行后，如果在文本框Textl中输入10，然后单击命令按钮，则在Text2中显示的内容是_________。
10
下面程序是输入任意长度的字符串，要求将字符串顺序倒置，例如，将输入的“ASDFGHJKL”变换为“LKJHGFDSA”。阅读程序并填空。
Private Sub command1_Cliek()
Dim t$, i%, c$, n%
t = InputBox$("输入字符串")
Print t
n=【1】
For i=1 To int(n/2)
c = Mid(t, i, 1)
【2】=Mid(t,n-i+1,1)
Mid(t,n-i+1,1)=【3】
Next i
Print t
End Sub
Len(t) mid(t,i,1) c
有一个窗体，窗体中有一个文本框，名称为Text1，有一个按钮，试编写按钮的
单击事件，实现计算1！+2！+3！+…+10!,将结果显示在文本框Text1中。
S = 0
'For I = 1 To 10
' T = 1
' For J = 1 To I
' T = T * J
' Next
' S = S + T
'Next
'Print "1！+2！+3！+...+10！="; S
编写程序在窗体上显示出：1～15之间的偶数
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To 15 Step 1
Print i
Next
End Sub
以下程序用于火车站托运行李，按规定当行李重量不超过50公斤时，每公斤运费0.25元，超过50公斤后，超过部分按每公斤0.40元收费。在文本框text1中输入行李重量，计算出应付运费。请将程序补充完整。
Private Sub Command1_Click()
Dim x As Single, y As Single
【1】 = Val(Text1.Text)
If x <= 【2】 Then
y = x * 0.25
Else
y = 50 * 0.25 + (x - 50) * 0.4
End If
Print "应付运费为：" ; 【3】
End Sub
X 50 y
在窗体上画一个名称为command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a = Array(1, 2, 3, 4, 5)
Sum = 0
For i = 1 To 5
Sum = Sum + a(i)
Next i
x = Sum / 5
For i = 1 To 5
If a(i) > x Then Print a(i)
Next i
End Sub
程序运行后，窗体上显示的是( )。
3 5
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim x As Integer, y As Integer
For x = 1 To 9 Step 3
y = y + 1
Next x
Print x
Print y
End Sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是________。
10 3
在窗体上画一个名称为command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim a As Variant
a = Array(1, 2, 3, 4, 5)
Sum = 0
For i = 1 To 5
Sum = Sum + a(i)
Next i
x = Sum / 5
For i = 1 To 5
If a(i) > x Then Print a(i)
Next i
End Sub
程序运行后，窗体上显示的是( )。
4 5
99下面程序段，显示的结果是()。
PrivateSubCommand1_Click()
Dim a As Integer
a=Int(Rnd)+4
Select Case a
Case 5
Print"优秀"
Case 4
Print"良"
Case 3
Print"通过"
Case Else
Print"未通过"
End Select
[1B]良[1E][2B]4[2E]
100在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
x=inputBox ("Input")
Select Case x
Case l to 3
Print"分支1"
Case Is>4
Print"分支2"
Case Else
Print "Else分支"
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是（）。
1[1B]分支1[1E]
101下列程序段运行后，显示的结果是()。
Private Sub Form_Click()
Dim x As Boolean, a As Integer
x=-2
a=True
Print x
Print a
End Sub
[1B]True[1E][2B]-1[2E]
102在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim X As Single, y As Single
X=InputBox("输入X的值：")
If X<0 Then
y=X^2-1
ElseIf X<10Then
y=X
ElseIf X<20 Then
y=X^2+1
ElseIf X < 30 Then
y = X ^ 3 + X + 1
Else
y = X ^ 2 - 10
End If
Print "y＝"; y
End Sub
程序运行后，如果在输入对话框中输入5，则窗体上显示的是（ ）。
[1B]y=5
103下列程序段运行后，第6次单击后窗体上显示的结果是()。
Private Sub Form_Click()
Static index As Integer
Cls
index=index+1
If index=1Then
Print"复制操作"
ElseIf index=2 Then
Print"剪切操作"
ElseIf index=3 Then
Print"粘贴操作"
ElseIf index = 4 Then
Print "清除操作"
index = 0
End If
Print index
End Sub
[1B]剪切操作[1E][2B]2[2E]
104在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
Dim x As Single
x=InputBox("请输入成绩")
Select Case x
Case Is>=90
Print"优异"
Case Is>=80
Print"优秀"
Case Is>=70
Print "良好"
Case Is >= 60
Print "及格"
Case Else
Print "不及格"
End Select
End Sub
程序运行后，如果在输入对话框中输入80，则窗体上显示的是（ ）。
1[1B]优秀[1E]
105在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click()
Dim a As Single, b As Single, c As Single
Dim t As Single
a=InputBox("输入a的值")
b=InputBox("输入b的值")
c=InputBox("输入c的值")
Print a & b & c
If a
本文档为【VB题目大全】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483