VB例题
1、输入球的的半径R，计算并输出球的体积V。
Private Sub Command1_Click()
Dim v As Single, r As Single '一般应考虑v、r取实数，故声明为Single类型。
r = Val(Text1.Text)
v = 4 / 3 * 3.14159 * r ^ 3
Label3.Caption = Str(v)
End Sub
Private Sub Command2_Click()
End
End Sub
2、统计运行时所输入字符串中的字符数。
Private Sub Command1_Click()
Label3.Caption = Len(Text1.Text)
End Sub
Private Sub Command2_Click()
End
End Sub
‘讨论与思考:
'·如果在文本框中输入中文文字，可以观察Len函数如何计算一个中文文字的长度。'·模仿实例3，可以将Command1_Click()过程中的函数改成Ltrim、Rtrim、Trim、Left、Lcase和Ucase等字符串函数，体会这些函数的功能以及使用规则。
3、设计一个简单的函数计算器，熟悉三角函数、'随机函数、时间函数、日期函数等常用函数的使用方法与规则。
Private Sub Cmdsin_Click() '计算正弦值，参数为弧度制
Text1.Text = Sin(Val(Text1.Text))
End Sub
Private Sub Cmdcos_Click() '计算余弦值
Text1.Text = Cos(V al(Text1.Text))
End Sub
Private Sub Cmdsqr_Click() '计算平方根
Dim n As Byte
If Val(Text1.Text) >= 0 Then Text1.Text = Sqr(Val(Text1.Text)): Exit Sub
n = MsgBox("开平方函数的参数为负数，是否以其绝对值为参数？", _
vbYesNo + vbQuestion + vbDefaultButton2, "运算错误")
If n = 6 Then
Text1.Text = -Val(Text1.Text)
Text1.Text = Sqr(Val(Text1.Text))
Else
Text1.Text = ""
End If
End Sub
Private Sub Cmdrnd_Click() '产生随机数
Dim rndx As Single
rndx = Val(Text1.Text)
Randomize rndx '将此数作为"随机数种子"，以期使此后的
Text1.Text = Rnd '调用"Rnd"所返回函数值的随机性更好。
End Sub
Private Sub Cmdtime_Click() '显示系统时间
Text1.Text = "现在是" + Left(Time, 2) + "点" + Mid(Time, 4, 2) + "分"
End Sub
Private Sub Cmddate_Click() '显示系统日期
Dim s As String, m As Integer
s = Right(Date, Len(Date) - 5): m = InStr(s, "-")
Text1.Text = "今天是" + Left(Date, 4) + "年" _
+ Left(s, m - 1) + "月" + Mid(s, m + 1, Len(s) - m) + "日"
End Sub
Private Sub Cmdclear_Click()
Text1.Text = ""
End Sub
Private Sub cmdend_Click()
End
End Sub
'讨论与思考:
'·函数调用不是一个独立的语句，只能出现在表达式中，目的是求得函数值。
'·要注意函数的定义域和值域，如三角函数的自变量为弧度制，开平方函数（Sqr）要求参数不小于0，Exp(23778)的值超出VB实数的表示范围，会发生数据溢出，等等。'·MsgBox函数中第2个参数vbYesNo + vbQuestion + vbDefaultButton2 实际上是三个整数之和，分别为4、32、256，决定了消息框中有两个按钮（"是"与"否"）、一个问号图标以及第二个按钮"否"为缺省按钮（突出显示）。
4、构成三角形的条件是，任意两边之和大于第三边；计算三角形面积的公式如下：
S= sqr (x(x-a)(x-b)(x-c)，其中:x=(a+b+c)/2
Private Sub Command1_Click() ' 计算
Dim a As Single, b As Single, c As Single, s As Single
a = Val(txtA.Text)
b = Val(txtB.Text)
c = Val(txtC.Text)
If a + b > c And a + c > b And b + c > a Then
x! = (a + b + c) / 2
s = Sqr(x * (x - a) * (x - b) * (x - c))
LblRs.Caption = Str(s)
Else
MsgBox "无法构成三角形", vbOKOnly + vbCritical, "输入错误"
End If
End Sub
Private Sub Command2_Click() ' 清除
txtA.Text = ""
txtB.Text = ""
txtC.Text = ""
LblRs.Caption = ""
End Sub
5、编制一个用户身份证验证程序，设3个不同密码表示不同类型的用户，通过身份证验证后显示该用户类型，密码长度不超过7个字符。
Option Explicit
Private Sub Form_Load() '设置主要对象的属性
Form1.Caption = "用户身份验证"
Text1.Text = ""
Text1.PasswordChar = "*"
Text1.MaxLength = 7
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim pw As String, i As Integer
If KeyAscii = 13 Then ' 按回车键后进行密码检验
pw = Trim(Text1.Text)
'判断密码是否正确
If pw = "1234567" Or pw = "1989643" Or pw = "1687799" Then
MsgBox "你的口令正确,已通过身份验证", vbInformation + _
vbOKOnly, "用户身份验证"
Select Case pw
Case "1234567"
Label2.Caption = "你是普通用户"
Case "1989643"
Label2.Caption = "你是授权用户"
Case "1687799"
Label2.Caption = "你是特许用户"
End Select
Else '密码不正确
i = MsgBox("口令不正确,是否重试", vbYesNo + vbQuestion, "提示信息")
If i = vbYes Then Text1.Text = "": Text1.SetFocus Else End
End If
End If
End Sub
6、判断一个整数是否为素数。
Private Sub Command1_Click()
Dim N As Integer, I As Integer, result As Boolean
result = True
N = Val(Text1.Text)
For I = 2 To Int(Sqr(N))
If N Mod I = 0 Then
result = False
Exit For
End If
Next I
If result Then
Label3.Caption = N & "是素数"
Else
Label3.Caption = N & "不是素数"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) '禁止输入非数字字符
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub
Private Sub Text1_LostFocus() '处理当文本框中没有输入数据，而失去焦点情况。
If Val(Text1.Text) = 0 Then Text1.SetFocus
End Sub
7、统计文本框中的中英文单词的个数（单词由空格、逗号、分号、感叹号、回车符、换行符作为单词间的分隔符）。
Private Sub Command1_Click()
Dim Nw As Integer, I As Integer, n As Integer
Dim St As String, Char As String, Last As String
St = Text1.Text
Last = " "
n = Len(St)
For I = 1 To n
Char = Mid(St, I, 1)
If UCase(Char) >= "A" And UCase(Char) <= "Z" Then
Select Case Last
' Last是单词分隔字符,回车符（Chr(13))、换行符(Chr(10))
Case " ", ",", ";", ".", Chr(13), Chr(10)
Nw = Nw + 1
End Select
End If
Last = Char
Next I
Label1.Caption = "共有单词数:" & Nw
End Sub
8、在一个具有n个升序排列元素的一维数组中插入一个新的元素x，要求插入后数组中元素仍按升序排列。
Private Sub Form_Click()
Const N = 10
Dim a() As Integer, x%, i%, j%, t%, p%
ReDim a(1 To N)
For i = 1 To N '产生10个数存于数组a中
a(i) = Int(Rnd * 90) + 10
Next i
For i = 1 To N - 1 '使用选择法,对数组a进行排序
p = i
For j = i + 1 To N
If a(p) > a(j) Then p = j
Next j
t = a(i): a(i) = a(p): a(p) = t
Next i
For i = 1 To N '输出排序后的数组
Print a(i);
Next i
x = Val(InputBox("请输入待插入的元素", "插入"))
For p = 1 To N '确定插入位置
If a(p) > x Then Exit For
Next p
ReDim Preserve a(1 To N + 1)
For j = N To p Step -1 '空出插入位置
a(j + 1) = a(j)
Next j
a(p) = x '插入
For i = 1 To N + 1
Print a(i);
Next i
End Sub
9、单击命令按钮后输入一个十进制整数，用两个标签控件分别显示其所对应的8进制、16进制数(要求将根据10进制数写出8、16进制形式字符串的运算编为过程并存入模块文件)。
Private Sub Command1_Click()
Dim x As Integer, x8 As String, x16 As String
x = InputBox("请输入一个十进制整数：")
Call dtox(x, x8, x16)
Label1.Caption = x8
Label2.Caption = x16
End Sub
Public Sub dtox(ByVal n As Integer, ByRef s8 As String, ByRef s16 As String)
Dim m As Integer, k As Integer
m = Abs(n)
Do While m <> 0
s8 = Trim(Str(m Mod 8)) + s8 '后得到的余数是高位，因此要前置。
m = m \ 8
Loop
m = Abs(n)
Do While m <> 0
k = m Mod 16
If k < 10 Then
s16 = Trim(Str(k)) + s16
Else
s16 = Chr(Asc("a") + k - 10) + s16
End If
m = m \ 16
Loop
If n < 0 Then s8 = "-" + s8: s16 = "-" + s16 '形参若为负数，字符串必须前置"-"。
End Sub
10、多窗体程序设计，单击主窗体中任意一个运算命令按钮，显示“计算”窗体。单击该窗体中“出题”命令按钮则随机产生计算数，最后根据输入数据判断结果的正确性。
Public flag As Integer
Private Sub Command1_Click()
Form2.Caption = Command1.Caption '设置Form2的标题为当前按钮上的字符
https://www.doczj.com/doc/a46726570.html,bel2.Caption = "＋" '设置窗体2的运算符标签为"＋"
flag = 0 '设置0表示加法运算
Form2.Show '显示窗体2
Form1.Hide '隐藏窗体1
End Sub
Private Sub Command2_Click()
Form2.Caption = Command2.Caption '设置form2的标题为当前按钮上的字符
https://www.doczj.com/doc/a46726570.html,bel2.Caption = "－" '设置窗体2的运算符标签为"－"
flag = 1 '设置1表示减法运算
Form2.Show '显示窗体2
Form1.Hide '隐藏窗体1
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Text1.Text = "": Text2.Text = ""
Text3.Text = "": Label4.Caption = ""
Randomize ' 对随机数生成器做初始化的动作。
a = Int((99 * Rnd) + 1) ' 生成1 到99 之间的随机数值作为运算数。
b = Int((99 * Rnd) + 1)
'如果是减法，并且被减数小于减数，则将被减数和减数交换，保证被减数大于减数。If Form1.flag = 1 And a < b Then c = a: a = b: b = c
Text1.Text = LTrim(Str(a)): Text2.Text = LTrim(Str(b))
Text3.SetFocus
End Sub
Private Sub Command2_Click()
Unload Form2
End Sub
Private Sub Form_Load()
Text1.Text = "": Text2.Text = ""
Text3.Text = "": Label4.Caption = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
Form1.Show
End Sub
Private Sub Text3_KeyPress(KeyAscii As Integer)
Dim c As Integer
If KeyAscii = 13 Then '如果是回车键，则回答结束，判断是否计算正确。
Select Case Form1.flag
Case 0: c = Val(Text1.Text) + Val(Text2.Text) '计算加法结果
Case 1: c = Val(Text1.Text) - Val(Text2.Text) '计算减法结果
End Select
If (c = Val(Text3.Text)) Then '判断输入结果的正确性并给出结论
Label4.Caption = "对！"
Else
Label4.Caption = "错！"
End If
End If
End Sub
11、编写一个过程，将矩阵进行转置后输出。
'自定义矩阵转置过程
Public Sub Trans (a() As Integer, m As Integer, n As Integer, b() As Integer) Dim i As Integer, j As Integer
For i = 1 To m
For j = 1 To n
b(j, i) = a(i, j)
Next j, i
End Sub
Private Sub Form_Click()
Cls
Dim a(3, 4) As Integer, b(4, 3) As Integer
getarray a, 3, 4 '初始化数组
Print "转置前矩阵为："
arrayPnt a, 3, 4
Call Trans(a, 3, 4, b) '调用矩阵转置过程
Print "转置后矩阵为："
arrayPnt b, 4, 3
End Sub
Public Sub arrayPnt(a() As Integer, m As Integer, n As Integer)
Dim i As Integer
For i = 1 To m
For j = 1 To n
Print a(i, j);
Next j
Print '换行显示
Next i
End Sub
'自定义数组初始化过程
Public Sub getarray(a() As Integer, m As Integer, n As Integer)
Randomize
For i = 1 To m
For j = 1 To n
a(i, j) = Int(Rnd * 20) + 10
Next j, i
End Sub
12、输入一个1至9之间的整数a，计算多项式a+aa+aaa+aaaa+…前7项的和，要求将计算多项式中每一项的运算写作函数。
Private Static Function sum(a As Integer) As Single '自定义求每项值的函数
Dim s As Single
s = s * 10 + a '每一项的值均为其前项乘以10后加a
sum = s
End Function
Private Sub form_Click()
Dim s As Single, a As Integer, i As Integer
Dim n As Integer
a = Val(InputBox("输入一个小于10的正整数"))
Cls
For i = 1 To a '从第一项开始累加到第a项
s = s + sum(a) '每一项都调用函数sum计算
Print "S" & i & "="; s '显示每一项的值
Next i
End Sub
12、简易键盘打字练习。
'定义窗体变量n表示输入文字的个数,right表示正确文字的个数
Dim n As Integer, right As Integer
Private Sub cmdStart_Click() '"开始"按钮的单击事件过程
Dim i%
lblExample.Caption = ""
Lbldisp.Caption = ""
For i = 1 To 50
lblExample.Caption = lblExample.Caption & Chr(Rnd * 94 + 32) Next i
txtInput.MaxLength = 50 '限定输入文字的个数
txtInput.Text = ""
txtInput.SetFocus
n = 0
right = 0
End Sub
'输入文本框的KeyPress事件过程
Private Sub txtInput_KeyPress(KeyAscii As Integer)
n = n + 1
If KeyAscii = 8 Then '当按回退修改键删除输入的一个字符
If Len(Lbldisp.Caption) > 0 Then
Lbldisp.Caption = Left(Lbldisp.Caption, Len(Lbldisp.Caption) - 1) End If
n = Len(Lbldisp.Caption)
Exit Sub
End If
If Mid(lblExample, n, 1) = Chr(KeyAscii) Then '统计正确文字的个数right = right + 1
Lbldisp.Caption = Lbldisp.Caption & " "
Else
Lbldisp.Caption = Lbldisp.Caption & "X" ' 标志对应字符输入错误End If
End Sub
Private Sub cmdEnd_Click() '"结束"按钮的单击事件过程
'显示统计信息
MsgBox "正确率" & right / n * 100 & "%"
End
End Sub
13、设计一个点餐程序，用户在选择了食物和份数后，单击结帐按钮后，将在列表框中列出食物的清单和价钱。
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 3 '文本框属性初始化
Text1(i).Text = ""
Text1(i).Enabled = False
Next
End Sub
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = 1 Then '对选中的食物做好输入份数的准备
Text1(Index).Enabled = True
Text1(Index).SetFocus
Else
Text1(Index).Enabled = False
End If
End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then '文本框只接受数字键
KeyAscii = 0
End If
End Sub
Private Sub Command1_Click() '结帐
Dim m As Integer
If Check1(0).Value = 1 And Val(Text1(0).Text) <> 0 Then
m = m + 10 * Val(Text1(0).Text)
List1.AddItem "汉堡" & Text1(0).Text & "份"
End If
If Check1(1).Value = 1 And Val(Text1(1).Text) <> 0 Then
m = m + 5 * Val(Text1(1).Text)
List1.AddItem "薯条" & Text1(1).Text & "份"
End If
If Check1(2).Value = 1 And Val(Text1(2).Text) <> 0 Then
m = m + 8 * Val(Text1(2).Text)
List1.AddItem "鸡翅" & Text1(2).Text & "份"
End If
If Check1(3).Value = 1 And Val(Text1(3).Text) <> 0 Then
m = m + 3 * Val(Text1(3).Text)
List1.AddItem "汉堡" & Text1(3).Text & "份"
End If
If List1.ListCount <> 0 Then List1.AddItem "共计：" & m & "元" End Sub
Private Sub Command2_Click() '下一位
Dim i As Integer
For i = 0 To 3
Text1(i).Text = ""
Text1(i).Enabled = False
Check1(i).Value = 0
Next
List1.Clear
End Sub
14、编写一个可以移动列表框中所选表项的位置程序。
Private Sub Command1_Click() '上移
Dim i As Integer
i = List1.ListIndex
List1.AddItem List1.Text, i - 1 '先将选中的内容添加到上一项前List1.RemoveItem i + 1 '将原来选中的那项删除
List1.ListIndex = i - 1 '将光标重新指向已经上移后的选项
End Sub
Private Sub Command2_Click() '下移
Dim i As Integer
i = List1.ListIndex
List1.AddItem List1.Text, i + 2 '先将选中的内容添加到下一项后List1.RemoveItem i '将原来选中的那项删除
List1.ListIndex = i + 1 '将光标重新指向已经下移后的选项
End Sub
Private Sub List1_Click()
Command1.Enabled = True
Command2.Enabled = True
If List1.ListIndex = 0 Then
Command1.Enabled = False '第一项不能上移
End If
If List1.ListIndex = List1.ListCount - 1 Then
Command2.Enabled = False '最后一项不能下移Else
End If
End Sub
所有填空题 1、VB6.0是运行于______操作系统环境下的一个快速可视化程序开发工具，用它进行程序设计，有两个基本的特点，即______和______。 答案：1：Windows9x/NT#Windows9x/NT#Windows9x\NT#Windows9x\NT#Windows9x#Windows NT#Windows9x#WindowsNT#windows9x/NT#windows9x/NT#windows9x\NT#windows9x\NT#windows9x#windows NT#windows9x#windowsNT 2：事件驱动编程#可视化设计 3：可视化设计#事件驱动编程 等级：1难度：1 知识点：VB知识点/VB简介 2、VB是一种面向______的可视化编程语言，它采用______的编程机制。 答案：1：对象 2：事件驱动 等级：1难度：1 知识点：VB知识点/VB的编程环境 3、在VB集成开发环境中，运行应用程序的方法有两种：______或______。 答案：1：编译运行模式#解释运行模式#编译运行#解释运行 2：解释运行模式#编译运行模式#解释运行#编译运行 等级：1难度：1 知识点：VB知识点/VB简介 4、VB的对象主要分为______和______两大类。 答案：1：窗体#控件 2：控件#窗体 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 5、VB中，用来描述一个对象的状态或特征的量称之为对象的______。 答案：1：属性 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 6、在VB中，最基本的对象是______。 答案：1：窗体 等级：1难度：1 知识点：VB知识点/VB的对象、属性、方法和事件 7、一个对象响应某个事件后所执行的操作是通过一段程序代码来实现，这段程序代码称______。 答案：1：事件过程 等级：1难度：1
二、选择题 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 。
第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、以下说法错误的是（A ）。 A.Visual Basic是面向过程的编程语言 B.Visual Basic是一种可视化编程工具 C.Visual Basic是结构化程序设计语言 D.Visual Basic采用事件驱动编程机制 2、窗体和控件的描述及其属性的设置保存在（ B）文件中。 A.工程 B.窗体 C.窗体二进制数据 D.标准模块 3、假定一个Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该 应用程序，以下正确的操作是（ C）。 A.只保存窗体模块和标准模块文件 B.只保存窗体模块文件 C.分别保存窗体模块、标准模块和工程文件 D.只保存工程文件 4、以下叙述中错误的是（ A ）。 A.事件都是由用户的键盘操作或鼠标操作触发的 B.在Visual Basic的窗体中，一个命令按钮是一个对象 C.事件是能够被对象识别的状态变化或动作 D.不同的对象可以具有相同的方法 5、以下叙述中，错误的是（B ）。 A.一个Visual Basic应用程序可以含有多个标准模块文件 B.标准模块文件可以属于某个指定的窗体文件 C.一个Visual Basic工程可以含有多个窗体文件 D.标准模块文件的扩展名为.bas 6、Visual Basic的窗体设计器主要是用来（ A ）。 A.建立用户界面 B.添加图形、图像、数据等控件 C.编写程序源代码 D.设计窗体的布局 7、Visual Basic是一种结构化高级程序设计语言，它采用的是（ D）驱动方式。 A.键盘 B.鼠标 C.函数 D.事件 8、与传统的程序设计语言相比，Visual Basic最突出的特点是（ B） A.结构化程序设计 B.可视化、面向对象、事件驱动编程机制 C.程序开发环境 D.程序调试技术 9、用来描述对象状态的是（C） A.过程 B.类 C.属性 D.对象 10、Visual Basic中对象窗口的主要功能是（B） A.书写代码 B.设计用户界面 C.接受事件 D.显示文字 11、一个Visual Basic应用程序至少应该包含（C ） A、 .frm文件和.exe文件 B、 .frm文件.bas文件 C、 .frm文件和.vbp文件 D、 .frx文件和.vbp文件
《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. 下面过程定义语句合法的是____________。
一:基础知识 对象的有关概念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个字符。
1. _________________ GBK 字符集共有 C 汉字。 A 、6000 多 B 、10000 多 C 、20000 多 D 、30000 多 2. 美国标准信息交换码（ASCII 码）中，共有128个字符，包括___B_ 32个控制字符。 A 、52 B 、96 C 、116 D 、101 3. 在计算机中，西文字符最常用的编 码是 __C ―。 A 、原码 B 、反码 C 、ASCII 码 D 、补码 4?下列四个选项中，按照其 ASCII 码值从小到大排列的是 A Q A 、 数字、英文大写字母、英文小写字母 B 、 数字、英文小写字母、英文大写字母 C 、 英文大写字母、英文小写字母、数字 D 英文小写字母、英文大写字母、数字 5?下列字符中，其 ASCII 编码值最大的是__B ________ Q A 、9 B 、D C 、A D 、空格 6. 中文标点符号“。”在计算 机中存储时占用 —B_个字节。 A 、1 B 、2 C 、3 D 、4 7. GBK 是汉字内码 的一种扩充规范，下面叙述中错误的是 _B _ Q A. 它共有20000多个汉字 B. 、它使用双字节表示，字节的最高位均为 0 C. 、它与GB2312保持向下兼容 D 它不但有简体字，也有繁体字 &汉字从录入到打印，至少涉及三种编码，汉字输入码，字型码和 _D A 、BCD 码 B 、ASCII 码 C 、区位码 D 、机内码 9. 在下列汉字编码标准中，不支持繁体汉字的 是 _A Q 个可打印字符和 其原因不可能
A、GB2312 B、GBK C、BIG5 D、GB18030 10.在利用拼音输入汉字时，有时虽正确输入拼音码但却找不到所要的汉字, 是A ______ Q A 、计算机显示器的分辨率不支持该汉字的显示 B 、汉字显示程序不能正常工作 C 、操作系统当前所支持的汉字字符集不含该汉字 D 、汉字输入软件出错 11 ?将字符信息输入计算机的方法中，目前使用最普遍的是_A _ 。 A、键盘输入 B 、笔输入. C语音输入D、印刷体识别输入 12?汉字的键盘输入方案数以百计，能被用户广泛接受的编码方案应_C _ 。 A、必须易学易记 B可输入字数多 C.、易学易记，效率要高 D重码要少，效率要高 13. ________________ MP3音乐采用 C 编码方法。 A、MPEG-1层1 B、MPEG-1 层2 C 、MPEG-1 层3 D、MPEG-2audio 14.Windows操作系统中的“帮助”文件，为方便用户使用，提供了超文本功能，超文本采 用的信息组织形式为_C _______ 。 A 、线性结构 B 、层次结构 C 、网状结构 D 、顺序结构 15?使用计算机进行文本编辑与文本处理是常用的两种操作，下列不属于文本处理的是_ C_。 A.、文本检索 B 、字数统计 C文字输入 D 、文语转换
《程序设计语言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. 属性
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
注意：其中Chr（）、Str（）、Mid（）三个函数的值为字符串型，结果要加双引号（1）赋值语句： 块If语句： 注意：行if语句只有一行。而块If语句写在多行上，最后需要EndIF结尾
表格信息的加工 （一）了解工作表概念，会建立工作表，掌握工作表中的基本操作（复制、移动、插入、删除等）。 1.数据的输入（1）纯数字符号的输入:要在数字符号前加单引号，如字符0021，输入为’0021 分数的输入：先输入一个零(0)，然后输入一个空格，最后再输入相应的分数。（2）单元格内出现“####”号，是因为单元格的宽度不够，只需要选定该单元格，再在菜单栏上选择“格式”/“列”/“最适合的列宽”即可去掉####号。 2．单元格表示方法：列号（英文字母）+行号（数字），如第6行第6列的单元格为F6 单元格区域表示方法：如A3到A9区域表示为A3:A6，共A3、A4、A5、A6四个单元格（二）能进行表格数据的计算（利用公式或函数进行计算）：求和、求平均、求最值、计数。 1.用公式计算数据（输入公式的标志是输入一个等号）常用函数的应用：SUM（求和函数），A VERAGE（求平均值函数），Max（求最大值函数），min（求最小值函数），Count（计数函数）“= SUM（C3:C5）”表示求C3到C5单元格区域的数据的和。等同于“=C3+C4+C5”“=Average（C3:C5）”表示求C3:C5单元格区域数据的平均值“=Max（C3:C5）”表示求C3:C5单元格区域数据的最大值“=Count （C3:C5）”表示求C3:C5区域中包含数字的单元格个数以及参数列表中数字的个数。假设C3:C5中的数据分别为12、0、a，则应用函数“=count（C3:C5）”后得到的结果是2；如果函数变为“=count（C3:C5，5，3）”则得到结果为4 2.公式的复制：可以完成类似的计算（操作方法一：选中应用了公式的单元格后，单击“编辑”菜单中的“复制”命令，然后选择需要完成类似计算的单元格，单击“编辑”菜单中的“粘贴”；操作方法二：选中应用了公式的单元格后，鼠标指针指向右下角的小方块，变成黑十字形时按住左键不放拖动到目标单元格。两种方法均可实现公式的复制）（三）对表格数据进行排序、筛选和分类汇总。（四）根据表格中的数据建立柱形图、饼图、折线图等图表。（这三种图表的类型要了解）（五）根据图表对表格数据进行合理分析。
判断题： 1、VB中，每一种对象有着不同的属性设置，每一种对象能识别的事件也不同。（对） 2、Val(“123hello”) 和Val(“hello123”)返回值一样。（错） 3、赋值语句X=123+”123”和X=”123”+123中，X的值一样。（对） 4、赋值语句X=”123”+”123”和X=”123”+123中，X的值一样。（错） 5、执行Print 5*8 和Print “5*8 ”语句运行结果一样。（错） 6、标签框和文本框内容的最大区别就是在程序运行过程中标签框的内容不可编辑，而文本框的内容可编辑。（对） 7、用vb编写程序时，标签控件能代替文本框控件使用. （错） 8、VB程序代码中，Label1.Caption=””的作用是该标签框中得内容清除。（对） 9、变量名的长度最长可达1024个字符。（错）225个 10、sum和int.sum都可以作为VB的变量名。（错） 11、下列程序的运行结果是15 （对） Dim s as Double Dim i as Integer S=0 I=1 Do While i<=5 I=i+2 S=s+i Loop Label1.Caption=s 12、对于熟练的程序员，可以省略程序的调试过程。（错） 13、在VB中，使用if语句就可以根据条件改变程序的执行路径。（对） 14、VB编程的一般步骤应该是：分析问题——设计界面——编写代码——调试与运行程序。（对） 单项选择题 1、小明想用VB设计一个加法器程序，做了如下规划，下列说法错误的是。（D） A、程序运行时标题栏显示加法器 B、前两个标签框显示的内容分别为“+”和“=” C、Command1用来计算出结果 D、使用了三个命令按钮、两个标签框和三个文本框 2、从下面的对象属性可以看出，该对象的标题为（A）
索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。
V B知识点总结 集团文件版本号：（M928-T898-M248-WU2669-I2896-DQ586-M1988）
VB知识点总结大全 第一章VB入门（*） 1.2.2 主窗口 1．标题栏 三种工作模式 （1）设计模式：可进行界面设计、代码编制 （2）运行模式：不可编辑界面、代码 （3）中断模式：不可编辑界面，可以编辑代码 2．菜单栏 3．工具栏 1.2.3 设计窗口 1．窗体设计窗口 2．代码设计窗口 （1）打开方式： 1.单击菜单栏的视图——选择代码窗口 2.双击窗体、控件 3.单击工程资源管理器窗口的“查看代码” （2）主要内容 1.对象列表框：显示所选对象的名称。列出窗体所有可用的对象名。 2.过程列表框：列出所有对象列表框中对象的事件过程或自定 义过程的名称。
由四部分组成： 1.对象列表框 2.属性排列方式：按字母排列、按分类排列 3.属性列表框：左边为属性名，右边为相应的属性值 4.属性含义说明：显示所选属性的含义 1.2.5 工程资源管理器窗口 （1）3个按钮 1.“查看代码”：切换到代码窗口，显示和编辑代码 2.“查看对象”：切换到窗体窗口，显示和编辑对象 3.“切换文件夹”：切换到文件夹显示方式 （2）包含两种类型的文件 1.窗体文件（.frm文件）：储存窗体上所有控件对象和有关的属 性、对象相应的事件过程、程序代码。 2.标准模块文件（.bas文件）：储存所有模块级变量和用户定义 的通用过程，该类型可选。 1.2.6 工具箱窗口 一般由21个按钮形式的图标构成。除指针外的20个为标准控件（指针不是控件），每个也是一个类。如：文本类、图形类等。 1.3.1 建立一个应用程序的步骤 1.建立用户界面的对象 2.对象属性的设置 3.创建对象事件过程及编程
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. 标签框的边框，由属性的设置值决定。
V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 ……
算法与程序设计 VB知识点 一、数据类型 Integer 整型 Long 长整型 Single 单精度实型 Double 双精度实型 String 字符型 二、常量与变量 1、常量的定义 Const 常量名 as 类型=表达式 2、变量的定义 Dim 变量名 as 类型 三、运算符 1、算术运算符 + - * / ^ \ mod 2、字符运算符 & + 3、关系运算符 >, >= , < , <= , <> , = 4、逻辑运算符 And not or 四、函数 1、sin(x) 2、cos(x) 3、fix(x) 4、int(x) 5、sqr(x) 6、abs(x) 五、赋值语句 格式： 变量=表达式 六、输入语句 变量=inputbox(““，““) 七、输出语句 Print 容 八、条件语句 1、If 条件 then 语句 2、If 条件 then 语句1 else 语句2 或者： 1、 If 条件 then 语句 End if 2、 If 条件 then 语句1 Else 语句2 End if 九、循环语句 1、for 循环变量=初值 to 终值 循环体 Next 循环变量 2、do while (until) 条件 循环体 Loop 或者 do 循环体 Loop while (until) 条件 第一课时
一、VB的简单介绍 VB是visual basic 的简称，是一种可视化的程序工具。 VB的界面介绍及相关控件和窗口的介绍： 1、控件工具箱（标签、文本框、按钮控件） 2、设计窗口 3、属性窗口 （强调标签的caption、font属性，文本框的text属性,按钮的caption、font 属性） 4、代码窗口
1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有？号的地方填入正确的程序代码,然后删除？及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有？号的地方填入正确内容,然后删除？及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。
VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x
1.项目文件的扩展名是（） A．.vb B．.sln C..exe D．.vbproj 2.集成开发环境有两类窗口：浮动和固定，下面的（）窗口不是浮动窗口。 A．工具箱B．属性 C.即时D．窗体 3.要使窗体的标题为“演示实例”，应修改窗体的（）属性。 A．Caption B．Tip C．Item D．Text 4.在https://www.doczj.com/doc/a46726570.html,中，下面属于方法的是（）。 A.Focus B.SelectedText C.LostFocus D.Keypress 5.一条语句要在下一行继续写，可用（）符号作为续行符。 A.+ B.- C.空格和_ D.... 6.若要使命令按钮不可操作，要对（）属性进行设置。 A.Enabled B.Visible C.BackColor D.Text 7.在https://www.doczj.com/doc/a46726570.html,集成环境中创建https://www.doczj.com/doc/a46726570.html,应用程序时，除了工具箱窗口、窗体窗口和属性窗口 外，必不可少的窗口是（） A．窗体布局窗口B．立即窗口 C．代码窗口D．监视窗口 8.当运行程序时，系统自动执行启动窗体的（）事件过程 A．Load B．Click C．Unload D．GotFocus 9.当文本框的ScrollBars属性设置了非None值，却没有效果，原因是（） A．文本框没有内容B．文本框的MultiLine属性为False C．文本框的MultiLine属性为True D．文本框的Locked属性为True 10.若要使标签控件显示时不要覆盖窗体的背景图案，要对（）属性进行设置 A．BackColor B．BorderStyle C．ForeColor D．BackStyle 11.数据类型为Long的类型标识符为（）。 A．%B．&C．!D．# 12.下面（）是日期型常量。 A．“5/17/12”B．5/17/12 C．#5/17/12#D．(5/17/12) 13.下面的（）是合法的单精度型变量。 A.num! B.sum% C.char! D.mm# 14.下面的（）是合法变量名。 A.X_yz B.123abc C.Integer D.X-Y 15.Rnd函数不可能为下列的（）值。 A.0 B.1 C.0.1234 D.0.0005 16.图片框控件（PictureBox）是专门用于显示图片的控件，主要属性image用于设置显示 在控件上的图片，使用（）语句可以在程序中消除已装入的图片。 A.PictureBox控件名.image=”” B．PictureBox控件名.image=Nothing C．PictureBox控件名.image=Image.FromFile(“”) D．PictureBox控件名.image=Image.FromFile(Nothing) 17.表达式16/4-2^5*8/4Mod5\2的值为（） A.14 B.4 C.20 D.2 18.表达式Len（“123程序设计ABC”）的值是（） A.10 B.14 C.20 D.17 19.为了给x,y,z三个整型变量赋初值1，正确的赋值语句是（）。 A.x=1:y=1:z=1 B.x=1，y=1，z=1