一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框（Picturel），应执行的语句是_____。
Picture1.Picture=LoadPicture("pic2.gif")
picture1.picture=loadpicture("pic2.gif")
组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和_____。
下拉式组合框
VB6.0识别对象靠的是对象的_____属性。
NAME
Name
name
为了使列表框中的项目分为多列显示，需要设置的属性是_____。
COLUMNS
columns
Columns
当用_____方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。APPEND
append
Append
关闭所有已经打开的文件，应使用语句_____。
CLOSE
close
Close
如果要将变量a在过程中定义为静态的整型变量，应使用的语句是_____。
static a%
static a as integer
Static a%
Static a As Integer
MsgBox函数的返回值的类型为_____。
数值型
文本框的默认属性是_____。
Text
text
TEXT
标签控件的默认属性是_____。
CAPTION
Caption
caption
【程序说明】窗体上已建立命令按钮Command1（开始）、Command2（结束）和文本框Text1，Text1中输入字符个数不得超过100个。开始运行时，“结束”命令按钮不能响应；按“开始”
命令按钮后，将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列，并在窗体上
输出重新排列后的字符串，同时“结束”命令按钮能响应，“开始”按钮不能响应。
Private Sub Command1_Click()
Dim n As Byte, i As Byte, j As Byte, p As Byte
Dim a(100) As String * 1, str1 As String, t As String
str1 = Text1.Text: n = Len(str1)
For i = 1 To n:_____: Next i
For i = 1 To n - 1
p = i
For j = i + 1 To n
If a(p) > a(j) Then_____ Next j
If p <> i Then t = a(i):_____: a(p) = t
Next i
For i = 1 To n: Print a(i);: Next i
_____
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command2.Enabled = False
End Sub
【空 1】错误
【学生答案】
【参考答案】
False
============================================================
【空 2】错误
【学生答案】
【参考答案】
Date
============================================================
【空 3】错误
【学生答案】
【参考答案】
CommonDialog1.Color
============================================================
【空 4】错误
【学生答案】
【参考答案】
m1
============================================================
【程序说明】文件c:\a1.dat中存放若干个学生信息的记录（行），按Command1按钮后，查找文件中姓名与输入姓名相同的记录，找到则删除该记录。
Private Sub Command1_Click()
Dim bs As String,cs As String
Open "c:\a1.dat" For Input As #1
Open "temp.dat" _____
bs = InputBox("输入学生姓名")
Do While Not Eof(1)
Line Input #1, cs
if InStr(cs, Trim(bs)) = _____Then print #2,cs
Loop
Close #1: Close #2
Kill "c:\a1.dat"
Name _____
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
For Output As #2
============================================================
【空 2】错误
【学生答案】
[无]
【参考答案】
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
"temp.dat" As "c:\a1.dat"
============================================================
【程序说明】以下是一个简化了的猜数游戏程序，自动生成一个小于100的随机正整数与您用输入对话框输入的数进行对比，猜中后输出相关信息，过程结束。
单击窗体则开始猜数，如要终止Visual Basic程序运行可以按Ctrl+Break组合键。
Private Sub Form_Click()
Dim r As Integer, x As Integer, i As Integer
Randomize : r =_____
For i = 1 To 10
x = Val(InputBox("请输入一个整数："))
If x < r Then m = MsgBox("太小了，请继续猜！")
If x > r Then m = MsgBox("太大了，请继续猜！")
If x = r Then
Print "猜中了！共猜了" + _____+ "次"
If i <= 5 Then Print "太棒了！" Else Print "加油！"
_____
End If
Next i
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空 2】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【程序说明】右击窗体则打开Windows自带的计算器“C:\windows\calc.exe”；
单击“退出”按钮时将右击窗体的次数写入磁盘文件。
_____
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, _ X As Single, Y As Single)
If Button = 2 Then n = n + 1: Shell _____
End Sub
Private Sub Command1_Click()
Open "C:\a1.dat" For _____
Print #1,n: Close #1
_____
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
Dim n As Integer
============================================================
【空 2】错误
【学生答案】
[无]
【参考答案】
"C:\windows\calc.exe"
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
Output
============================================================
【空 4】错误
【学生答案】
[无]
【参考答案】
End
============================================================
【程序说明】本程序求3～100之间的所有素数（质数）并统计个数；同时将这些素数从小到大依次写入顺序文件e:\dataout.txt；素数的个数显示在窗体Form1上。
Private Sub Command1_Click()
Dim coun As Integer, flag As Boolean
Dim t1 As Integer, t2 As Integer
_____
coun = 0
For t1 = 3 To 100
flag = True
For t2 = 2 To Int(Sqr(t1))
If _____then flag = False
Next t2
_____
coun = coun+1
Write #1, t1
End If
Next t1
_____
Close #1
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
Open "e:\dataout.txt" For Output As #1
============================================================
【空 2】错误
【学生答案】
[无]
【参考答案】
t1 Mod t2 = 0
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
If flag Then
============================================================
【空 4】错误
【学生答案】
[无]
【参考答案】
Print coun
============================================================
【程序说明】窗体上有两个命令按钮：Command1（显示）和Command2（退出）。下列程序运行时，“显示”按钮能响应，“退出”按钮不能响应；单击“显示”按钮后，在窗体上显示一个用字符“*”
组成的5层的金字塔，同时“显示”按钮不能响应，“退出”按钮能响应。
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 5
Print Spc(5 - i);
For j =_____: Print "*"; : Next j
Next i
Command1.Enabled = False
_____
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Command1.Enabled=True
_____
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
Int(Rnd*100)
============================================================
【空 2】错误
【学生答案】
[无]
【参考答案】
Str(i)
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
Exit For
============================================================
【程序说明】选择形状、边框后，图片框中控件Shape1作相应变化。界面设计如图9-1所示。
Private Sub Combo1_Click()
Shape1.Shape = Combo1.List(_____)
End Sub
Private Sub Combo2_Click()
_____= Combo2.List(Combo2.ListIndex)
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 5: Combo1.AddItem Str(i): Next i
For i = 0 To 6: _____: Next i
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
Combo1.ListIndex
============================================================
【空 2】错误
【学生答案】
[无]
【参考答案】
Shape1.BorderStyle
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
Combo2.AddItem Str(i)
============================================================
【程序说明】自制一个简单的图片浏览器。要求在窗体上建立一个影像框和两个命令按钮，命令按钮上显示文字“上一张”和“下一张”。
运行时，显示第一张图片，“上一张”按钮不能响应，单击“下一张”按钮显示另一张图片，“上一张”按钮能响应。显示到最后一张图片时，“下一张”按钮不能响应。
（假设在C:\Windows目录下有1.bmp、2.bmp、……、8.bmp这样8张图片）
Dim n As Byte
Private Sub Command1_Click()
If n < 8 Then Command2.Enabled = True
n = n - 1
_____
If n < = 1 Then Command1.Enabled =_____: n = 1
End Sub
Private Sub Command2_Click()
_____
If n> = 1 Then Command1.Enabled = True
Call pic
If n = 8 Then Command2.Enabled = False
End Sub
Private Sub Form_Load()
n=1: Command1.Enabled = False: Image1.Picture =_____
End Sub
Sub pic()
Dim fn As String
fn = "c:\windows\" + Trim(str(n)) + ".bmp"
Image1.Picture= _____
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
Call pic
============================================================ 【空 2】错误
【学生答案】
[无]
【参考答案】
False
============================================================ 【空 3】错误
【学生答案】
[无]
【参考答案】
n = n + 1
============================================================ 【空 4】错误
【学生答案】
[无]
【参考答案】
LoadPicture("c:\windows\1.bmp")
============================================================ 【空 5】错误
【学生答案】
[无]
【参考答案】
LoadPicture(fn)
============================================================ 【程序说明】下列过程用于求一元n-1次代数多项式的值。
Private Function f(_____, x As Double) As Double
Dim s As Double, i As Integer, t As Double
t = x: s = a(1)
For i = 2 To n
s = s + a(i) * t: _____
Next i
_____
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
a() as double, n as integer
a() As Double, n As Integer
============================================================ 【空 2】错误
[无]
【参考答案】
t = t * x
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
f = s
============================================================
【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。各控件名称取缺省值，控件Command1、Command2标题分别为“开始”、“结束”。运行时，单击“开始”按钮后秒
表开始计时，并在标签上显示总秒数；单击“结束”按钮后，计时结束，在窗体上显示出运行
的时间（折算成小时、分钟和秒数）。
Dim x As Long
Private Sub Form_Load()
Timer1.Interval = 1000: Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
Cls
x = 0
_____
End Sub
Private Sub Command2_Click()
Dim h As Integer, m As Integer, s As Integer
Timer1.Enabled = False
h = _____
m =_____
s = x Mod 3600 Mod 60
Print "运行了" + Str(h) + "小时" + Str(m) + "分" + Str(s) + "秒"
End Sub
Private Sub Timer1_Timer()
_____
Label1.Caption = x
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【学生答案】
[无]
【参考答案】
1
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空 4】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【程序说明】在窗体内设置一个弹出式菜单，分别对文本框进行“显示时间”、“显示日期”、“颜色”、“字体”和“清空”操作。m1为不可见菜单项，m11
为其子菜单（共5项，均同名，索引值依次为0，1，2，3，4）。
Private Sub Form_Load()
Timer1.Enabled = False '锁定定时器（时间间隔已设置为1秒）
End Sub
Private Sub m11_Click(Index As Integer)
Select Case Index
Case 0 : Timer1.Enabled = True
Case 1
Timer1.Enabled = _____: Text1.Text= "日期：" + _____
Case 2
CommonDialog1.Action = 3 : Text1.ForeColor =_____
Case 3
CommonDialog1.Flags = 256 '选择字体范围，否则出现运行错误
CommonDialog1.Action = 4 '打开“字体”对话框
Text1.FontBold = CommonDialog1.FontBold '用修改后的属性设置
Text1.FontItalic = CommonDialog1.FontItalic '文本框相应属性
Text1.FontName = CommonDialog1.FontName
Text1.FontSize = CommonDialog1.FontSize
Case 4: Text1.Text = ""
End Select
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
x As Single, y As Single)
If Button = 2 Then_____, 2
End Sub
Private Sub Timer1_Timer()
Text1.Text = "时间：" + Time$
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空 2】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空 4】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【程序说明】本题是利用计时器控件来实现文字的水平移动，要求：1）运行时标签框内的文字从窗体左边向右边移动，当标签框的左边界超出窗体的右边界时，从窗体的左边进入窗体（尾部先
进入）。
（2）文字移动时颜色不断产生随机变化。
Private Sub Form_Load()
Form1.WindowState = 2
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
_____ = Label1.Left + 150
If Label1.Left >= Form1.Width Then_____
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空 2】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【程序说明】下列程序能在一定范围内找出所有素数，要求：文本框用来输入所要找的数的范围，且只能先在Text1（必须大于1）输入结束后才能在Text2（必须大于Text1中的数）中输入，按回车键表示输入结束。在Text2输入结束后，才能单击“Command1”（确定）命令按钮，并在窗体上
输出该范围内的所有素数。
以上过程可重复。
Private Sub Form_Load()
Command1.Enabled = False: _____
End Sub
Private Sub Command1_Click()
Dim n As Integer, m As Integer, i As Integer, p As Integer
n = Val(Text1.Text): m = Val(Text2.Text)
For i = n To m
_____
Do While p< = Int(Sqr(i))
If i Mod p = 0 Then Exit Do Else p = p + 1
Loop
If p > Int(Sqr(i)) Then _____
Next i
Text1.Text = "": Text2.Text = ""
Text1.Enabled = True: Text2.Enabled = False
Command1.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If _____Then
Text1.Text = ""
Else
Text2.Enabled = True: Text1.Enabled = False
End If
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If _____Then
If Val(Text2.Text) <= Val(Text1.Text) Then
Text2.Text = ""
Else
Text2.Enabled = False
Command1.Enabled = True
End If
End If
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
1
============================================================ 【空 2】错误
【学生答案】
[无]
【参考答案】
1
============================================================ 【空 3】错误
【学生答案】
[无]
【参考答案】
1
============================================================ 【空 4】错误
【学生答案】
[无]
【参考答案】
1
============================================================ 【空 5】错误
【学生答案】
[无]
【参考答案】
1
============================================================ 程序说明】单击窗体后输出6～100之间所有整数的质数因子。
Private Sub pp( _____k As Integer)
Dim i As Integer
i = 2
Do While k > 1
If _____= 0 Then
Print i;
_____
Else
i = i + 1
End If
Loop
End Sub
Private Sub Form_Click()
For i = 6 To 100 : _____:Next i
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
byval
ByVal
============================================================ 【空 2】错误
【学生答案】
[无]
【参考答案】
k mod i
k Mod i
============================================================ 【空 3】错误
【学生答案】
[无]
【参考答案】
k = k \ i
============================================================ 【空 4】错误
【学生答案】
[无]
【参考答案】
call pp(i)
Call pp(i)
============================================================
【程序说明】以下程序可以将列表框中同时选中的多个列表项删除，请将程序补充完整。
Private Sub cmdDel_Click()
i = 0
Do While i<_____
If List1.Selected(i) = True Then
_____
Else
_____
End If
Loop
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空 2】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
1
============================================================
【程序说明】下列过程用选择法对double类型数组按值从小到大排序。
Private Sub Sort(_____)
Dim i As Integer, j As Integer, k As Integer, t As Double
For i = 1 To_____
k=i
For j = i + 1 To n
If _____Then k = j
Next j
t=a(i): a(i)=a(k): a(k)=t
Next i
End Sub
【空 1】错误
【学生答案】
[无]
【参考答案】
a() As double
a() As Double
============================================================
【空 2】错误
【学生答案】
[无]
【参考答案】
n-1
============================================================
【空 3】错误
【学生答案】
[无]
【参考答案】
a(j) < a(k)
============================================================
组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和_____。
下拉式组合框
如果菜单标题的某个字母前输入一个_____符号，那么该字母就成了热键字母。&
关闭所有已经打开的文件，应使用语句_____。
CLOSE
close
Close
文本框的默认属性是_____。
Text
text
TEXT
如果建立菜单时在标题文本框中输入一个_____，那么显示时将形成一行分隔符。-
在窗体上有一个命令按钮，其名称为Command1，然后编写如下程序：Function M(x As Integer, y As Integer) As Integer
M = IIf(x > y, x, y)
End Function
Private Sub command1_Click()
Dim a As Integer, b As Integer
a = 100
b = 200
Print M(a, b)
End Sub
结果为：_____。
200
在程序运行中，要想使用按钮变成看得见但不可操作，则应设置______的属性是False。ENABLED
Enabled
enabled
InputBox函数返回值的类型为_____。
字符型
组合框有3种不同的类型，这3种类型是下拉式列表框、简单组合框和_____。
下拉式组合框
为了使列表框中的项目分为多列显示，需要设置的属性是_____。
COLUMNS
columns
Columns
关闭所有已经打开的文件，应使用语句_____。
CLOSE
close
Close
在程序运行中，要想使某个按钮变成看不见，则应设置Visible的属性是_____。
False
FALSE
false
文本框的默认属性是_____。
Text
text
TEXT
如果菜单标题的某个字母前输入一个_____符号，那么该字母就成了热键字母。
&
当用_____方式打开文件时，如果对文件进行写操作，则写入的数据附加到原来文件的后面。APPEND
append
Append
确定单选框是否选中，应访问的属性是_____。
value
VALUE
Value
print format(32548.5,"##,####.##")的输出结果是_____。
32,548.5
MsgBox函数的返回值的类型为_____。
数值型
VB6.0识别对象靠的是对象的_____属性。
NAME
Name
name
如果要将变量a在过程中定义为静态的整型变量，应使用的语句是_____。
static a%
static a as integer
Static a%
Static a As Integer
标签控件的默认属性是_____。
CAPTION
Caption
caption
设a="北京"，b="Shanghai"，则表达式LEFT(a，2)+STRING(3，"-")+LEFT(b，8)构成的字符串是_____。
北京---Shanghai
'
'【程序说明】下列程序用来在窗体上输出如图4-1所示的数据。
'
'
'注意：不要删除'**********FILL**********，否则影响评分成绩
'去掉__________，填写代码。
'
Private Sub Form_Click()
Dim a(5, 5) As Byte, i As Byte, j As Byte
For i = 1 To 5
For j = 1 To 6 - i
'**********FILL**********
a(i, j) = _____ Next j, i
For i = 2 To 5
'**********FILL**********
For j = _____ To 5
a(i, j) = j + i - 6
Next j, i
For i = 1 To 5
For j = 1 To 5
Print a(i, j);
Next j
'**********FILL**********
_____
Next i
End Sub
【空 1 】错误
【学生答案】
a(i, j) = ________
【参考答案】
i + j - 1
j+i-1
============================================================
【空 2 】 错误
【学生答案】
For j = _____ To 5
【参考答案】
7-i
============================================================
【空 3 】 错误
【学生答案】
__________
【参考答案】
============================================================
'
'【程序说明】下面是一段计算数学表达式
!)1(......!44!33!2211n n n +-++-+-
的程序。
'
'注意：不要删除'**********FILL**********，否则影响评分成绩
'去掉__________，填写代码。
'
Private Sub Form_Click()
Dim n As Integer, p As Integer, s As Single, q As Integer, i As Integer
n = InputBox("请输入N 的值:")
s = 0: p = -1: q = 1
For i = 1 To n
'**********FILL**********
p = -p: q =_____
'**********FILL**********
s =_____
'**********FILL**********
_____ Print s
End Sub
【空 1 】 错误
【学生答案】
p = -p: q = __________
【参考答案】
q * i
试卷编号：25 所属语言：Visual Basic 试卷方案：VB程序设计 试卷总分：100分 共有题型：4种 一、单选共15题（共计30分） 第1题（2.0分）题号:2299 难度:中第1章 将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后,将该可执行文件转到其他机器上不能运行的主要原因是(). A:运行的机器上无VB系统所需的动态连接库 B:缺少.frm窗体文件 C:该可执行文件有病毒 D:以上原因都不对 答案：A 第2题（2.0分）题号:2344 难度:中第2章 下列字符串常量中,最大的是(). A:"北京" B:"上海" C:"天津" D:"广州" 答案：C 第3题（2.0分）题号:2436 难度:中第2章 能正确表达a≤1或a≥5的逻辑表达式是(). A:a<=1或a>=5 B:a<=1,a>=5 C:a<=10 Or a>=5 D:a<=l And a>=5 答案：C 第4题（2.0分）题号:2539 难度:中第2章 用一个程序段对一个对象被单击(或双击)做出响应,从而实现指定的操作,称为(). A:可视化程序设计 B:事件驱动编程机制 C:过程化程序实际方法
D:非过程化程序设计语言 答案：B 第5题（2.0分）题号:2601 难度:中第3章 在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Option Base 1 Private Sub Command1_Click() K = 3 If X < 3 Then Print X + 3; If X < 4 Then Print X + 4; If X < 5 Then Print X + 5; If X< 6 Then Print K + 6; Print End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是(). A:6 7 8 9 B:7 8 9 C:8 9 D:9 答案：B 第6题（2.0分）题号:2662 难度:中第3章 运行下面程序后,在窗体中显示的是(). Private Sub Form_Click() a$="*": b$="$" For k=1 To 3 x$=String$(Len(a$)+k,b$) Print x$; Next k Print End Sub A:*** ** **** B:*$*$*$ C:1*$2*$3*$ D:$$$$$$$$$ 答案：D
第1章Visual basic概述 一、VB是在Windows平台下，用于开发和创建具有图形用户界面的应用程序的工具。 二、VB是面向对象的程序设计语言；工作方式为事件驱动/消息驱动。 1．对象 对象是动作体的逻辑模型，是人们可控制的某种东西，应用程序的每个窗体和窗体上的 种种控件都是VB的对象 2．属性 属性指对象的特性。 3．方法 方法指对象可以进行的动作或行为。 4．事件 事件是指能被对象所识别的动作。 5．事件驱动 只有在事件发生时程序才会运行。 6．工程 工程是应用程序文件的集合，一个工程一般会包含下列文件，如表1—l所示。 表1—1 应用程序文件类型 文件类型说明 工程文件(．vbp) 它是与该工程有关的全部文件和对象的清单，该文件是必选项 窗体文件(．frm) 它包含事件过程，以及该窗体及窗体上的各个控件对象的属性设置以及相关的说明，该文件是必选项 二进制数据文件(．frx) 当窗体中含有二进制属性(如图片或图标)时，该文件将自动产生 标准模块文件(．bas) 它包含可以被任何窗体或对象调用的过程程序代码，该文件是可选项 类模块文件(．cls) 该文件是可选项包含ActiveX控件的文件(．ocx) 该文件是可选项
第2章创建用户界面 知识点概括 1．用户界面 用户界面是应用程序中最重要的部分，是程序与用户进行交互的桥梁，标准的Windows 应用程序界面都是由窗口、菜单条、各种按钮、文本框、列表框等对象构成的。 2．窗体 窗体是包容用户界面或对话框所需的各种控件对象的容器。 在创建一个新的工程时，默认的第一个窗体即为启动窗体。 3．控件 控件是与用户进行交互的可视化部件，向窗体上添加控件应在窗体编辑器中进行。 4．命令菜单 命令菜单是应用程序窗口的基本组成元素之一，它由菜单条、菜单、菜单项、子菜单、弹出式菜单组成，可以通过VB提供的菜单编辑器创建程序菜单。 （1）连字符（—） （2）& 5．设计用户界面的步骤 (1)确定窗体的大小和位置。 (2)根据程序的功能和要求，添加所需的控件。 (3)合理地分布控件的位置与大小。 (4)设置各个对象的属性。 6．窗体及常用控件的常用属性、事件、方法 熟悉各对象的常用属性、事件和方法，对于创建应用程序有着举足轻重的作用，表2—1给出了窗体及常用控件的常用属性、事件以及方法使用说明。 表2—1 窗体及常用控件的常用居住、事件以及方法一览表 对象名称说明 Name 设置对象在程序代码中的引用名 通用属性Caption 设置对象的标题栏中或图标下面的文本 Font 设置文本的字体、字型、字号等 left 设置对象的左边界距容器坐标系纵轴的距离 Top 设置对象的上边界距容器坐标系横轴的距离 Height 设置对象的高度 Width 设置对象的宽度 Enabled 设置对象是否被激活 通用属性Visible 设置对象是否可见 BackColor 设置对象的背景色 ForeColor 设置对象的前景色 Index 设置控件在控件数组中的标识号 TabInfex 设置窗体中的对象响应[Tab]键的顺序 TabStop 设置用户是否可以使用[Tab] 键来选定对象 Style 设置控件的外观 Boderstyle 设置窗体的边框风格
二、选择题 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" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
2011-2012学年第一学期算法与程序设计期末考试题 班级：姓名：分数： 一、单项选择题（每题4分） 1.算法是解决问题的( ) A.程序代码 B.方法与步骤 C.计算公式 D.最终结果 2.以下不能作为vb常量的的是( ) A.“Good Luck” B. PI C. 1.5E-3 D. 16.34 3.以下各表达式中, 计算结果为0的是( ) A. INT(12.4)+INT(-12.6) B. CINT(12.4)+CINT(-12.6) C. FIX(13.6)+FIX(-12.6) D. FIX(12.4)+FIX(-12.6) 4.设a=″Visual Basic″，下面使b=″Basic″的语句是( ) A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 5.inputbox() 函数返回值类型为( ) A.数值 B.字符串 C.数值和字符串 D.变体 6.下列关于For…Next语句的说法正确的是( ) A. 循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只能为正数 C. 初值必须小于终值 D.初值必须大于终值 7.下列符号中，只有( )是合法的VB变量名。 A．xy23 B．23xy C．Sub D．xy8[1] 8.数学表达式Sin30°写成VB表达式是( ) A．Sin30 B．Sin(30) C．Sin(30°) D．Sin(30*3.14/180) 9.在VB的运算中，级别最高的是( ) A．= B．And C．Or D．Not 10.判断任意3条线段a、b、c能否构成三角形的表达式为( ) A．a+b>=c Or a+c>=b Or b+c>=a B．Not(a+b
2012二级VB上机考试试题题库 VB考试上机试题 1) .新建一个工程，实现单击Command1将text1中的内容复制（或者剪切）到Text2中。（要求使用Clipboard对象）保存。 窗体上一个text文本框，两个command按钮，caption分别为“剪切”，“恢复”，运行后要求在text1中输入文本，点“剪切”，把text1中的内容剪切掉，点”恢复“，把text1中的内容恢复出来。提示：定义一个变量用来存放text1中的内容。 2) .新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端）保存。 3) .新建一个工程，实现功能：在窗体中实现由下向上滚动显示“您好！网络之家”这几个字。保存。 4) .新建一个工程，在Form1界面创建Form2，Form3两个子菜单的Forms菜单，选择Form2子菜单，以无模式显示Form2,选择Form3子菜单，以有模式显示Form3.保存。5) .新建一个工程，在界面上放置一个工具条Toobar1,在工具条上有三个按纽，按下第一个按钮时用MsgBox显示：“第一个按纽被按下”；按下第二个按纽时用MsgBox显示：“第二个按纽被按下”；按下第三个按纽时用MsgBox显示：“第三个按钮被按下”。保存。
6) 。新建一个工程，包含两个窗体Form1,Form2。实现功能制作－－－欢迎界面，时间为三秒，三秒后，Form1消失，Form2出现。保存。 7) 。新建一个工程，实现功能限制：在Text1中只能输入10个字母，超过的在Text2中显示。保存。 8) 。新建一个工程，实现功能单击Text1框时，Text1中的内容被全选。保存。 9) 。新建一个工程，实现功能点击Command1按钮，读取系统的汉字字型，在ComBox列表框中显示。保存。 10) 。新建一个工程，实现单击Commmand1将Text1的内容剪切到Text2中。（上次的那道题目是复制）保存。 11) 。新建一个工程，其中含五个单选按钮，两个面板StratusBar1. 第一面板题“欢迎探讨”，点击单选按钮时，第二个面板标题为选中的标题号。保存。 12) 。新建一个工程，使用打开对话框找到某一文件（硬盘上任意一文本文件），带全路径的文件名，显示在一文本框内。保存。
一:基础知识 对象的有关概念l 1. 对象Object：VB中常用的对象有：窗体、控件等。 2. 对象的三要素 （1）属性Property：用来描述和反映对象外部特征的参数。 （2）方法Method：允许其他对象与之交互的方式，表明一个对象所具有的能力。 （3）事件Event：响应对象的动作称为事件，它发生在用户与应用程序交互时。如单击控件、鼠标移动、键盘按下等。 事件驱动Event Driven：VB为窗体和大多数控件都规定了一组事件，当应用程序被启动后，VB随时准备捕获各种事件。一旦发生了某个事件，VB就会执行与该事件相联系的事件过程；执行完后，VB等待下一个事件的发生。 VB程序的执行步骤如下：l (1)启动应用程序，装载和显示窗体； (2）窗体（或窗体上的控件）等待事件的发生； （3）事件发生时，执行对应的事件过程； （4）重复执行步骤（2）和（3）； （5）直到遇到END结束语句结束程序的运行；或按“结束”强行停止程序的运行。 VB集成开发环境l 1. 主窗口 应用程序窗口，由标题栏、菜单栏和工具栏组成。 2. 窗体(form)窗口 设计VB程序的界面。 3. 代码(code)窗口 编辑窗体、标准模块中的代码。 4. 属性(properties)窗口 所有窗体或控件的属性设置。 5. 工程资源管理器(project expror)窗口 保存一个应用程序所有的文件。 6. 工具箱(toolbox)窗口 显示各种控件的制作工具，供用户在窗体上设计 建立VB程序的步骤l 1. 建立用户界面的对象，并设置对象属性； 2. 对象事件过程及编程； 3. 程序运行和调试； 4. 保存文件： 窗体frm格式和vb工程vbp格式 VB 编码基础l 1. VB代码不区分字母的大小写 系统保留字自动转换每个单词的首字母大写； 用户自定义行以第一次为准。 2. 语句书写自由 一行可书写几句语句,之间用冒号分隔； 一句语句可分若干行书写，用续行符_（空格+下画线）连接一行<=255个字符。
大一VB期末考试试卷及答案 1．在代码中引用一个控件时，应使用控件的（ b ）属性。 A．Caption B．Name C．Text D．Index 2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（ a ）的值为“假”。 A．x+a <= b-y B． x > 0 AND y < 0 C．a = b OR x>y D． x+y > a+b AND NOT (y < b) 3．表达式Int(Rnd*71)+10产生的随机整数范围是（ c ）。 A．（10，80） B．（10，81） C．[10，80] D．[10，81] 4．函数Sgn(3.1416)的返回值是（ c ）。 A．-1 B．0 C．1 D．以上都不对 5．67890属于（ d ）类型数据。 A．整型 B．单精度浮点数 C．货币型 D．长整型 6．下列变量名中正确的是（ d ）。 A．3S B．Print C．Select My Name D．Select_1 7．下列赋值语句（ a ）是有效的。 A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0 8．以下的控件或方法具有输入和输出双重功能的为（ b ）。 A．Print B．Textbox C．Optionbutton D．Checkbox 9．若要获得列表框中被选中的列表项的内容，可以通过访问（ d ）属性来实现。 A．Name B．ListIndex C．ListCount D．Text 10．下列代码的运行结果为（ b ）。 Private Sub command1_click() Dim m(10)
第一部分：客观题 1、 单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（ ） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 （ ） A、工程资源管理器窗口 B、工具箱窗口 C、 属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（ ）方法来实现。 Ａ、Refresh Ｂ、Setfocus Ｃ、Gotfocus Ｄ、Value 4、下列不可作为VB变量名的是（ ） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是 （ ） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（ ） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（ ）。 n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（ ） Ａ、Click Ｂ、MouseDown Ｃ、MouseUp Ｄ、DblClick 9、下列为整型变量的是（ ） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是 （ ） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0
2007年春 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试 二级试卷 试卷语种：Visual Basic 第一部分计算机基础知识 1．微电子技术是信息技术领域的关键技术，它以集成电路（IC）为核心。在下列有关叙述中，错误的是。 A．A．目前IC芯片（如CPU芯片）的集成度可达数千万个电子元件 B．B．Moore定律指出，单块IC的集成度平均每半年翻一番 C．C．从原料熔练到最终产品包装，IC的制造工序繁多，工艺复杂，技术难度非常高 D．D．非接触式IC卡采用电磁感应方式无线传输数据，所以又称为射频卡或感应卡 2．在下列有关通信中使用的传输介质的叙述中，错误的是。 A．A．计算机局域网中大多使用无屏蔽双绞线，其无中继有效传输距离大约100m B．B．同轴电缆可用于传输电视信号 C．C．光纤价格高，一般不在校园网和企业网中使用 D．D．微波的波长很短，适合于长距离、大容量无线通信 3．二进制数（1010） 2与十六进制数（B2） 16 相加，结果为。 A．(273) 8B.(274) 8 C.(314) 8 D.(313) 8 4.设有一段文本由基本ASCII字符和GB2312字符集中的汉字组成，其代码为B0 A1 57 69 6E D6 D0 CE C4 B0 E6，则在这段文本中含有。 A．1个汉字和9个西文字符 C.3个汉字和5个西文字符 B.2个汉字和7个西文字符 D.4个汉字和3个西文字符 5.在下列有关CPU的叙述中,错误的是 . A. A.CPU的主要组成部分有运算器、控制器和寄存器组 B. B.CPU的主要功能是执行指令，不同类型CPU的指令系统通常有所 不同 C. C.为了加快运算速度，CPU中可包含多个算术逻辑部件（ALU） D. D.目前PC机所有的CPU芯片均为Intel公司的产品 6．PC机在加电启动过程中会运行POST程序、引导程序、系统自举程序等。若在启动过程中，用户按某一热键（通常是Del键）则可以启动CMOS设置程序。这些程序运行的顺序是。 A．A．POST程序->CMOS设置程序->系统自举程序->引导程序 B．B．POST程序->引导程序->系统自举程序->CMOS设置程序 C．C．CMOS设置程序->系统自举程序->引导程序->POST程序 D．D．POST程序->CMOS设置程序->引导程序->系统自举程序 7.目前PC机一般都有USB和FirWire接口,用于连接各种外部设备.在下列关于这两种接口的叙述中,错误的是 . A. https://www.doczj.com/doc/343049137.html,B是一种串行接口,可以连接键盘、鼠标器、优盘、数码相机等 多种设备
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）。
20**-20**学年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
【HNCE网上考试系统 v9.6】本套软件使用权属于：郑州大学 考试课程: 考试时间:100分钟考场:第一考场考试日期:2013.05.24 考号：姓名：剩余时间：99:42 保存交卷退出帮助 A B C D A B C D A B C D A B C D A B C D A B C D
A B C D A 命令 B 命令 C 命令 D 命令 A B C D A B C D A B C D A B C D A B
C D A B C D A B C D A 模块文件 B 件的属性 C 源文件 D 包含多个工程文件及属于该工程的其他文件 A 该窗体文件并没有被删除 B 窗体文件被删除 C 程仍然包含这个窗体 D A B C D A B C D
A B C D A B C D A可以实现交换两个变量值，而S2不能 B 个变量值，而S1不能 C 现交换两个变量值 D 现交换两个变量值 A B C D A B C D A 过程调用后均不保存值 B 有变量都是Static型的变量 C 所有变量都是Private型的变量 D 所有变量都是非全局Public A 用Dim语句或Static语句声明的变量 B 明它的过程
C Static语句声明的 D 程执行完毕后就被释放了 A B C D A B C D A B C D A B C D 声明段 A B C D A B C D A B
C D A B C D A B C D A B C D A 同 B Sub过程不可以 C 值，而Function过程能通过过程名返回值 D 或直接使用过程名调用，而 A工程中可以有多个窗体，但最多只能有一个窗体作为启动窗体 B 声明Public类型的变量来传递数据 C 大化、最小化或正常（保持设计时大小）等三种状态 D A 菜单 B 过程代码都放在窗体文件中 C 名必须相同 D 是设计阶段时显示的位置
全国计算机VB等级考试历年全真试题 （共15套，含答案） ２００５年4月份二级VB真题（附参考答案） （考试时间90分钟，满分100分） 一、选择题((1)~(35)每小题2分，共70分) 下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。 (1)数据的存储结构是指 A) 存储在外存中的数据B) 数据所占的存储空间量 C) 数据在计算机中的顺序存储方式D) 数据的逻辑结构在计算机中的表示 (2)下列关于栈的描述中错误的是 A)栈是先进后出的线性表B) 栈只能顺序存储
C)栈具有记忆作用D) 对栈的插入与删除操作中，不需要改变栈底指针 (3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是 A) 冒泡排序为n/2 B) 冒泡排序为n C) 快速排序为n D) 快速排序为n(n-1)/2 (4)对于长度为n的线性表进行顺序查找，在最坏情况下所需要的比较次数为 A) log2n B) n/2 C) n D) n+1 (5)下列对于线性链表的描述中正确的是 A)存储空间不一定是连续，且各元素的存储顺序是任意的 B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面 C)存储空间必须连续，且前件元素一定存储在后件元素的前面 D)存储空间必须连续，且各元素的存储顺序是任意的 (6)下列对于软件测试的描述中正确的是 A)软件测试的目的是证明程序是否正确 B)软件测试的目的是使程序运行结果正确 C)软件测试的目的是尽可能多地发现程序中的错误 D)软件测试的目的是使程序符合结构化原则 (7)为了使模块尽可能独立，要求 A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强 (8)下列描述中正确的是 A) 程序就是软件 B) 软件开发不受计算机系统的限制 C) 软件既是逻辑实体，又是物理实体 D) 软件是程序、数据与相关文档的集合 (9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指 A) 数据与程序独立存放 B) 不同的数据被存放在不同的文件中 C) 不同的数据只能被对应的应用程序所使用 D) 以上三种说法都不对 (10) 用树形结构表示实体之间联系的模型是
一、常量 常量(也称常数)，是在程序运行期间其值始终保持不变的量。注意π不是常量。 定义常量的语法格式：[Public|Private]Const 常量名[As数据类型] = 表达式 Const前不能使用Dim 在窗体的通用声明处不能使用Public定义常量、定长字符串、数组 定义常量的语句可以在过程内部，也可以在通用声明处 = 后边的表达式不能是函数 二、变量 定义变量的语法格式：Dim|Private|Static|Public 变量名[As数据类型][，变量名[As数据类型]…] 使用Dim|Private|Static|Public定义变量后会将变量进行初始化 使用Dim定义变量的语句可以在过程内，也可以在通用声明处；使用static定义变量的语句只能在过程内；使用public、private定义变量的语句只能在通用声明处 在过程内部使用dim定义的变量是局部的过程级的变量，即该变量的生命周期和作用域很小。其作用域为本过程，即只在本过程中能用，出了本过程就不能使用其值。其生命周期为从该变量定义的位置开始变量在内存中存在，它所在的过程结束（遇到End Sub）该变量就从内存消失 在通用声明处用Dim定义的变量是模块级的变量；其作用域为本模块，即在本窗体或模块的所有过程中都能使用该变量，在其他窗体或模块中不能使用该变量的值；其生命周期为从该变量定义的位置开始变量在内存中存在，整个程序结束（点击结束按钮或点击窗体上的关闭按钮）该变量才从内存消失 使用static定义的变量是局部的静态变量。其作用域为本过程（同局部的dim定义的变量）；其生命周期为从该变量定义的位置开始变量在内存中存在，整个程序结束（点击结束按钮或点击窗体上的关闭按钮）该变量才从内存消失 使用private定义的变量是模块级的变量，其作用域和生命周期同模块级的dim定义的变量 使用public定义的变量是全局变量，其作用域为整个程序，即在整个程序的所有窗体或模块的所有过程中都可以使用此变量（但是注意，如果是在窗体的通用声明处定义的public类型的变量，则在其他窗体或模块使用该变量时需加上窗体的名字）；其生命周期为从该变量定义的位置开始变量在内存中存在，整个程序结束（点击结束按钮或点击窗体上的关闭按钮）该变量才从内存消失 三、数组 数组是一组按一定顺序排列的数据的集合，数据的类型可以不相同，数组的维数不得超过60维 1.静态数组 定义静态数组的语法格式：public|private|static|Dim 数组名([下界To] 上界) [As数据类型]若省略下界时，表示下标的取值是从0开始，等价于“0 To上界” 可以使用Dim 或public 或private 或static 定义 分别使用这4个关键字进行定义数组的语句可以出现的位置不同（同变量的定义）、数组的生命周期和作用域不同（同变量的作用域和生命周期） 定义静态数组时小括号内的下标不能使用变量 在同一个作用域内不能定义同名的静态数组（即：在同一个作用域内不能多次定义同一个数组），在不同的作用域内可以定义同名的静态数组（同名数组的使用和同名变量的使用相同） 数组的定义语句中的下界和上界可以是常量或表达式（即：可以是整数、实数、正数、负数），下界不必须是0或1 静态数组定义的同时将被初始化 静态数组一旦定义后，数组名、数组大小、数组的类型就确定了 在程序的窗体模块或标准模块的通用声明处用Option Base n语句可重新设定数组的下界。此语句的含义是：在定义数组时，如果省略了下界则默认的下界是n，在定义数组时如果未省略下界则该数组的下界就是其自己定义的下界值（此时忽略Option Base n指明的下界n）
VB期末考试试题及答案 一、填空题 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 。
1、VB应用程序中可以包括三种模块：( 窗体模块)、( 标准模块) 和类模块。 2、下列过程不能在标准模块中定义的是( A )。 A、事件过程 B、子过程 C、函数过程 D、公共过程 3、以下叙述中错误的是D A、如果过程被定义为Static类型，则该过程中的局部变量都是Static类型 B、Sub过程中不能嵌套定义Sub过程 C、Sub过程中可以嵌套调用Sub过程 D、事件过程可以像通用过程一样由用户定义过程名 2、在某一窗体模块中定义的全局级过程，若被该模块外的模块所调用，必须在该过程名前加上( 窗体名称)。 2、自定义的过程有两种形式：＿Sub＿和＿Function＿。 3、用于退出过程的语句是( D )。 A、Exit B、Exit For C、Exit Do D、Exit Sub 4、在过程的参数列表中列入__ Optional __关键字，就可以指定过程的参数为可选的。 5、如果使用Call关键字来调用一个需要参数的过程，参数就必须要加上__括号__。 1、在窗体代码中有以下事件过程的声明，其中Private表示( B ) Private Sub lblAbc_Change() …… End Sub A、此过程可以被任何其它过程调用 B、此过程只可以被本窗体模块中的其它过程调用 C、此过程不可以被其它过程调用 D、此过程只可以被本工程中的其它过程调用 9、假定已定义了一个过程Sub Add(a As Single,b As Single)，则正确的调用语句是( A )。 A、Add 12,5 B、Call(2*x,Add(1.57)) C、Call Add x,y D、Call Add(12,12,x) 10、要想在过程调用后返回两个结果，下面的过程定义语句合法的是( C )。 A、Sub Procl(ByVal,n,ByVal m) B、Sub Procl(n,ByVal m) C、Sub Procl(n,m) D、Sub Procl(ByVal n,m) 6、写出单击命令按钮Command1时的窗体显示结果。 Public Sub Proc(ByRef n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x as Integer,y As Integer x=15:y=30 Call Proc(x,y) Print x;y
VB知识点总结 目录 1 第一章知识点 (2) 2 第二章知识点 (2) 3 第三章知识点 (3) 4 第四章知识点 (7) 5 第五章知识点 (8) 6 第六章知识点 (8) 7 第七章知识点 (10) 8 第八章知识点 (12)
（1）VB的语言特点 可视化开发环境：界面设计所见所得；面向对象程序设计：程序和数据封装作为一个对象，在工具箱里面的都是一个一个的类，比如commandbutton类，当你把它从工具箱拖出来已经，它就被实例化成了一个对象，名称叫command1，如果你拖了2个command，就是2个不同的对象；事件驱动编程：VB程序没有明显的入口和出口，都在等待用户或者系统或者代码触发某个事件，然后执行事件对应的任务 （2）VB的工作模式 设计模式，运行模式，中断模式；程序在运行模式是没有办法修改代码和设计界面窗口的。 （3）VB的文件类型 窗体文件frm；程序模块文件bas；类模块文件cls；工程文件vbp；工程组文件vbg；资源文件res；保存工程的时候应该同时保存工程文件vbp和窗体文件frm。 （4）VB的窗口 任何的窗口被关闭了找不到了，都应该在视图菜单下面来寻找，工具箱窗口，代码窗口，窗体布局窗口，立即窗口（可以在中断模式下查询程序运行对象值，ctrl+G打开立即窗口） 2 第二章知识点 （1）面向对象的基本概念 类：具有类似属性和方法的对象的抽象，比如大学；对象：类实例化就成为一个对象，每个对象都具有自己的属性和方法，比如西南财经大学天府学院。属性：对象的静态特征，最重要的属性是name，在VB里面对象的name是不能省略的，而且在程序运行的过程中是不能修改的；事件：人或者系统对对象的作用，对象是被动者，比如load，unload，timer；click等；方法：对象发出的行为，对手是主动者，比如move，show，hide等。 （2）VB的开发流程 第一步分析后画流程图 第二步界面设计 第三步编写代码 第四步测试运行
VB 期末考试试卷及答案 一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A 属性、控件和方法 B 属性、事件和方法 C 窗体、控件和过程 D 控件、过程和模块 2.所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3.下列叙述中错误的是（ A ） A工程文件扩展名是 .vbgB 标准模块文件的扩展名是 .basC窗体模块的扩展 名是 .frmD 类模块的扩展名是 .cls 4.当要编写一个新的 Visual Basic程序时，所做的第一件事是（ A ）A xx 一个工程 B 编写代码 C 设置属性 D 添加 Active X控件 5.下面控件中，没有caption 属性的是（ B ） A框架B组合框 C 命令按钮 D 复选按钮 6.在文件框中输入字符时，若只显示某个字符，如（* ），应设置属性是（B）A MultiLine B PasswordChar C Text D selText 7.若要将窗体从内存中卸载出去，其实现的方法是（ D ） A Show B Hide
C Load D UnLoad 8.下列关于过程叙述不正确的是（ D ） A过程的传值调用是将实参的具体值传值传递给形参 B过程的传址调用是将实参在内存的地址传递给形参 C过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D无论过程传值调用还是传地址调用，参数传递都是双向的 9.某人创建 1 个工程，其中的窗体名为Form1，之后又添加了 1 个名为Form2 的窗体，并希望程序执行时先显示Form2 窗体，那么，他需要做的工作 是（ C ）A 在 Form1 的 Load 事件过程中加入语句Load Form2 B 在 Form2 的 Load 事件过程中加入语句Form2.Show C在“过程属性”对话框中把“启动对象”设置为 Form2 D在 Form2 的 TabIndex 属性设置为 1，把 Form1 的 TabIndex属性设置为 2 10.以下关于文件的叙述中，正确的是（ B ） A 以 Output 方式打开一个不存在的文件时，系统将显示出错信息 B 以Append 方式打开的文件，既可以进行读操作，也可以进行写操作 C 在随机文件在，每个记录的长度是固定的 D无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相 同的 11.设 a=6，b=8，c=10则函数 IIf(a
相关主题
文本预览