大学计算机VB程序设计教程课后答案
第1章概述二．选择题：
1.C
2. B.
3.C.
4.C.
5.A
6.C
7.D
8.B
9.B 10.B
11.A12.C 13.D 14.C 15.D
16.A17.C 18.A19.A20.D 21.B
三．填空题：
1.面向对象，事件驱动
2.编译，解释
3.设计，运行，中断
4.F5
5.调试
6.切换文件夹
四．编程及上机调试：
1．略
2．Sub Form_Click( )
Label1.Caption = “你单击了窗体”
End Sub
Sub Form_DblClick( )
Label1.Caption = “你双击了窗体”
End Sub
第2章面向对象编程基础二．选择题：
1.C
2. C.
3.B.
4.B.
5.D
6.D
7.B
8.B
9.C 10.D
11.B 12.B 13.B 14.C 15.A
16.B 17.B 18.B 19.C 20.B
三．填空题：
1.窗体，控件
2.属性，事件，方法
https://www.360docs.net/doc/bb3094297.html,mand2_click
4.picture
5.中部，代码
四．编程及上机调试：
1．Private Sub Command1_Click()
Form1.WindowState = 2
End Sub
Private Sub Command2_Click()
Form1.WindowState = 0
Private Sub Command3_Click()
Form1.WindowState = 1
End Sub
2．Private Sub Command1_Click()
Form1.Picture = LoadPicture("d:\picture\flower.wmf")
Command1.V isible = False
Command2.V isible = False
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_DblClick()
Form1.Picture = LoadPicture("")
Command1.V isible = True
Command2.V isible = True
End Sub
第3章常用标准控件二．选择题：
1.C
2. B
3.C.
4.D
5.B
6.B
7.A
8.C
9.B 10.C
11.C 12.A13.C 14.B 15.D
16.D 17.C 18.A19.D 20.A21.B
三．编程及上机调试：
1.
Private Sub Check1_Click()
If Check1.V alue = 1 Then
Text1.FontBold = True
Else
Text1.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.V alue = 1 Then
Text1.FontItalic = True
Else
Text1.FontItalic = False End If
End Sub
Private Sub Check3_Click()
If Check1.V alue = 1 Then
Text1.FontUnderline = True Else
Text1.FontUnderline = False End If
End Sub
Private Sub Command1_Click() Text1.Text = " "
End Sub
2.
Private Sub Command1_Click() Text2.Text = List1.ListCount End Sub
Private Sub Command2_Click() List1.AddItem Text1.Text
Text1.Text = " "
End Sub
Private Sub Command3_Click() Dim i As Integer
i = List1.ListIndex
List1.RemoveItem i
Command3.Enabled = False
Text1.SetFocus
Text2.Text = List1.ListCount End Sub
Private Sub Form_Load()
Command3.Enabled = False End Sub
Private Sub List1_Click()
Command3.Enabled = True End Sub
第4章VB语言基础
二．选择题：
1.A
2. D
3.D.
4.A
5.A
6.A
7.C
8.D
9.C 10.B
11.A 12.D 13.C 14.A15.A
16.C 17.D 18.A19.B 20.D
21.C 22.A23.B 24.C 25.C
三．编程及上机调试：
1．Private Sub Form_Load()
Dim x As Integer, s As String, d As Integer
Randomize
x = Int(Rnd * 9000 + 1000)
s = Trim(CStr(x))
d = V al(Right(s, 1) + Mid(s, 3, 1) + Mid(s, 2, 1) + Left(s, 1))
Show
Print "产生的数；"; x; "倒序数"; d
End Sub
2．Private Sub Form_KeyPress(KeyAscii As Integer)
Print "输入字符:"; Chr(KeyAscii), "ASCII码为:"; KeyAscii
End Sub
Private Sub Form_DblClick()
Cls
End Sub
3．Private Sub Form_Click()
MsgBox "在这里显示提示" & vbCrLf & "提示信息", 2 + 16, "请确认"
End Sub
或
Private Sub Form_Click()
MsgBox "在这里显示提示" + Chr(13) + "提示信息", vbAbortRetryIgnore _ + vbCritical, "请确认"
End Sub
第5章程序控制结构
二．单选题
1.D
2. C
3.C.
4.D.
5.B
6.C
7.A
8.A
9.D 10.C
11.C 12.C 13.B 14.B
四．编程及上机调试
1. Private Sub Form_Click()
Dim x As Integer, y As Integer
x = InputBox("请输入一个数值")
If x > 20 Then
y = x ^ 2 + 3 * x + 2
ElseIf x >= 10 Then
y = Sqr(3 * x) - 2
ElseIf x > 0 Then
y = 1 / x + Abs(x)
End If
Print "x="; x, "y="; y
End Sub
（2）Select Case实现：
Private Sub Form_Click()
Dim x As Integer, y As Integer
x = InputBox("请输入一个数值")
Select Case x
Case Is > 20
y = x ^ 2 + 3 * x + 2
Case Is >=10
y = Sqr(3 * x) - 2
Case Is > 0
y = 1 / x + Abs(x)
End Select
Print "x="; x, "y="; y
End Sub
2.
Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
For i = 100 To 999
a = i \ 100
b = (i - a * 100) \ 10
c = i Mo
d 10
If a ^ 3 + b ^ 3 + c ^ 3 = i Then
Print i;
k = k + 1
If k Mod 2 = 0 Then Print
End If
Next i
End Sub
3．
Private Sub Command1_Click()
p = 60: r = 0.014
Do
p = p * (1 + r)
n = n + 1
Loop Until p >= 70
Print n; "年后世界人口达到"; p; "亿"
End Sub
4．
Private Sub Command1_Click()
Dim s As Single, x As Integer, t As Single, n As Integer x = V al(InputBox("请输入x的值", , 2))
s = 1
n = 1
m = 1
Do
n = n + 1
m = -m
t = m * n / x ^ (n - 1)
If Abs(t) < 0.00001 Then Exit Do
s = s + t
Loop
Print s
End Sub
第6章数组二．单选题：
1.A
2.A.
3.A
4.C
5.D
6.D
7.A
8.D
9.B 10.B
四.编程及上机调试:
1.
Option Base 1
Private Sub Form_Click()
Dim a(10) As Integer
Dim i As Integer, t As Integer
Print "数组的原始数据为：";
For i = 1 To 10
a(i) = Int(11 * Rnd) + 10
Print a(i);
Next i
Print "变化后数组数据为：";
For i = 1 To 5
t = a(i)
a(i) = a(10 - i + 1)
a(10 - i + 1) = t
Next i
For i = 1 To 10
Print a(i);
Next i
End Sub
2.
Option Base 1
Private Sub Form_Click()
Dim a(3, 4) As Integer, i As Integer, j As Integer, k As Integer, p As Integer Randomize
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(90 * Rnd + 10)
Print a(i, j);
Next j
Next i
Max = a(1, 1): k = 1: p = 1
For i = 1 To 3
For j = 1 To 4
If a(i, j) > Max Then
Max = a(i, j)
k = i
p = j
End If
Next j
Next i
Print "最大的数为第" & k & "行，第" & p & "列的数：" & Max
End Sub
3.
Option Base 1
Dim a(4, 5) As Integer '在窗体声明段声明数组Dim i As Integer, j As Integer
Private Sub cmdmatrix_Click() '"生成数组"按钮Randomize
For i = 1 To 4
For j = 1 To 5
a(i, j) = Int(Rnd * 10) '一位的随机数
Picture1.Print a(i, j); '输出元素Next j
Picture1.Print
Next i
End Sub
Private Sub cmdcol_Click() '"求列和"按钮Dim colsum As Integer
txtcol.Text = ""
For j = 1 To 5 '列变量先循环colsum = 0
For i = 1 To 4
colsum = colsum + a(i, j)
Next i
txtcol.Text = txtcol.Text & Str(colsum)
Next j
End Sub
Private Sub cmdrow_Click() '"求行和"按钮Dim rowsum As Integer
txtrow.Text = ""
For i = 1 To 4 '行变量先循环rowsum = 0
For j = 1 To 5
rowsum = rowsum + a(i, j)
Next j
txtrow.Text = txtrow.Text & CStr(rowsum) & vbCrLf Next i
End Sub
Private Sub cmdclear_Click() '"清除"按钮Picture1.Cls
txtcol.Text = ""
txtrow.Text = ""
End Sub
Private Sub cmdexit_Click() '"结束"按钮End
End Sub
4. Option Base 1
Private Sub Form_Click()
Dim a() As Integer, b() As Integer, i As Integer, j As Integer, x As Integer, y As Integer x = InputBox("第一维上界")
Do While Not IsNumeric(x)
x = Int(InputBox("第一维上界"))
Loop
y = InputBox("第二维上界")
Do While Not IsNumeric(x)
y = Int(InputBox("第二维上界"))
Loop
ReDim a(x, y)
Print "原数组元素为："
For i = 1 To x
For j = 1 To y
a(i, j) = Int(90 * Rnd) + 10
Print a(i, j);
Next j
Next i
Print "转置后数组元素为："
For i = 1 To y
For j = 1 To x
Print a(j, i);
Next j
Next i
End Sub
5. Option Base 1
Private Sub Form_Click()
Dim a(10, 10) As Integer, i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 10
If i = j Or i + j = 11 Then
a(i, j) = 0
Else
a(i, j) = 1
End If
Print a(i, j);
Next j
Next i
End Sub
6. Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim i As Integer, j As Integer, n As Integer, k As Integer, a(11) As Integer
j = 1
For i = 3 To 21 Step 2
a(j) = i
Print a(j);
j = j + 1
Next i
n = InputBox("请输入一个数")
For i = 1 To 10
If n = a(i) Then
For j = i To 10
a(j) = a(j + 1)
k = k + 1
Next j
End If
Next i
For i = 1 To 9
Print a(i);
Next i
End Sub
7. Option Base 1
Private Sub Form_Click()
Dim a As V ariant, k As Integer, i As Integer, j As Integer
Dim b As V ariant
b = Array(17, 35, 128, 235, 89, 121, 143, 189, 231, 94)
a = Array(11.3, 12.3, 12#, 11.8, 12.6, 11.6, 12.8, 11.8, 12.4, 12.1)
For i = 1 To 9 '对数组a的元素排序
k = i
For j = i + 1 To 10
If a(k) > a(j) Then k = j
Next j
If k <> i Then '数组b的元素随数组a的元素一起变动t = a(i)
a(i) = a(k)
a(k) = t
t = b(i)
b(i) = b(k)
b(k) = t
End If
Next i
Print "按名字的排列顺序为："
For i = 1 To 10
If Len(b(i)) = 2 Then b(i) = "0" & b(i) '补上数组b中长度为２的编号前的"0"
Print "第" & i & "名的号码为：" & b(i) & "，成绩为：" & a(i)
Next i
End Sub
第7章过程
二、单选题
1.C
2. D
3.C
4.D
5. B
6.A
7. B
8.B
9.C 10.D
11.C 12.D 13.B 14.B 15.C
16.A17.B 18.B
三、填空题
1．52 51
2．4 11
8 35
3．1 3 5
四.编程及上机调试:
1. Private Sub Command1_Click()
Dim n As Integer
For n = 100 To 1600 Step 500
Print "n="; n; "时π的近似值是："; pi(n)
Next n
End Sub
Private Function pi(x As Integer) As Single
Dim s As Single, k As Integer, m As Integer
s = 0
k = 1
m = 1
Do
s = s + m / k
m = -m
k = k + 2
Loop While k <= x
pi = 4 * s
End Function
Private Sub Command2_Click()
End
End Sub
2. Private Sub Command1_Click()
Dim x As Integer, i As Integer
x = V al(Text1)
For i = 1 To x
If prime(i) And prime(x - i) Then
Label2 = Str(x) & "是" & Str(i) & "和" & Str(x - i) & "两个素数之和"
Exit Sub
End If
Next i
End Sub
Private Function prime(x As Integer) As Boolean
For i = 2 To Int(Sqr(x))
If x Mod i = 0 Then
prime = False
Exit Function
End If
Next i
prime = True
End Function
Private Sub Command2_Click()
End
End Sub
3. Option Explicit
Option Base 1
Dim a(10) As Integer
Private Sub Command1_Click()
Randomize
Dim i As Integer
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Text1 = Text1 + Str(a(i))
Next i
Call sort(a)
For i = 1 To 10
Text2 = Text2 + Str(a(i))
Next i
End Sub
Private Sub sort(a() As Integer)
Dim k As Integer, i As Integer, j As Integer, t As Integer k = UBound(a)
For i = 1 To k - 1
For j = i + 1 To k
If a(i) < a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
End Sub
Private Sub Command2_Click()
End
End Sub
4. Option Explicit
Private Sub Command1_Click()
Dim i As Integer, j As Integer, s As Integer
For i = 2 To 1000
S=0
For j=1 To i - 1
If I mod j=0 Then s=s+j
Next j
If s=i Then Print I,
Next i
End Sub
5. Public a(10) As Integer
Public Sub sort(a() As Integer)
Dim i As Integer, j As Integer, t As Integer
For i = 1 To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
End Sub
Public Function max(a() As Integer) As Integer
max = a(1)
For i = 2 To UBound(a)
If max < a(i) Then
max = a(i)
End If
Next i
End Function
窗体Form1代码
Private Sub Command1_Click()
Dim i As Integer
Randomize
For i = 1 To UBound(a)
a(i) = Int(Rnd * 90) + 11
Text1 = Text1 & Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub Command3_Click()
Text2 = max(a)
End Sub
Private Sub Command4_Click()
End
End Sub
窗体Form2代码
Private Sub Command1_Click()
Call sort(a)
For i = 1 To UBound(a)
Text1 = Text1 & Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
Form2.Hide
Form1.Show
End Sub
第8章程序调试
二．上机调试题
1. Option Explicit
Private Sub Form_Click()
Dim a() As Single, i As Integer
Dim y As Single
i = 1
Do
ReDim a(i) …改为ReDim Preserve A(I) a(i) = 1 / fib(i)
If a(i) <= 0.0001 Then Exit Do …改为a(i) < 0.0001 y = y + a(i)
i = i + 1
Loop
Print "y="; y
For i = 1 To UBound(a)
Print a(i);
Next i
End Sub
Private Function fib(i As Integer) As Integer
If i = 1 Then
fib = 1
ElseIf i = 2 Then
fib = 2
Else
Fib（i）= fib(i - 1) + fib(i - 2) …改为Fib=Fib(I-1)+Fib(I-2) End If
End Function
2. Option Explicit
Private Sub Command1_Click()
Dim i As Integer, k As Integer, st As String
For i = 10 To 500
If wanshu(i) Then
st = CStr(i)
Text1.Text = Text1.Text & st
Call test(st)
Text1.Text = Text1.Text & Chr(13) & Chr(10)
End If
Next i
End Sub
Private Function wanshu(n As Integer) As Boolean
Dim i As Integer, sum As Integer
For i = 2 To n – 1 …改为i=1
If n Mod i = 0 Then
sum = sum + i
End If
Next i
If sum = n Then wanshu = True
End Function
Private Sub test(s As String)
Dim i As Integer, sum As Integer
sum = 0 …位置错，和for 语句位置调换
Do While Len(s) > 1
For i = 1 To Len(s)
sum = sum + V al(Mid(s, i, 1))
Next i
Text1.Text = Text1.Text & "->" & Str(sum)
s = Str(sum) … 改为s = CStr(sum) Loop
End Sub
第9章数据文件
一、单选题
1．B 2．C 3．A 4．B 5．C
6．B 7．C 8．B 9．10．A
11. 12.A13. 14. 15.A16.B
二、编程及上机调试
1．Private Sub Form_Load()
Open "d:\my\text2.txt" For Output As #1
End Sub
Private Sub Text1_keyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If Trim(Text1) = "0000" Then
Close #1
End
End If
Write #1, Text1
Text1.Text = ""
End If
End Sub
2．Option Explicit
Private Type Student
name As String * 10
age As Integer
End Type
Private Sub Command1_Click()
Dim Stu As Student
Open "d:\my\text2.txt" For Random As #1 Len = Len(Stu)
https://www.360docs.net/doc/bb3094297.html, = "WangY ing"
Stu.age = 20
Put #1, , Stu
Close #1
Open "d:\my\text2.txt" For Random As #1 Len = Len(Stu)
Get #1, , Stu
Print "姓名：", https://www.360docs.net/doc/bb3094297.html,
Print "年龄：", Stu.age
Close #1
End Sub
第10章其它控件
二、选择题
1．B 2．B 3．B 4．C 5．
6．A,C 7．A 8．9．10．
11. 12.B 13.
三、填空题
1．菜单编辑器
2．下拉式菜单弹出式
3．顶
4．PopupMenu
5．多文档窗体
6．MDIChild
7．Private Sub HScroll1_Change()
text1 = HScroll1.V alue
End Sub
Private Sub HScroll1_Scroll()
text1 = HScroll1.V alue
End Sub
8．Private Sub Toolbar1_ButtonClick(ByV al Button As MSComctlLib.Button) Select Case Button.Index
Case 1
Form1.BackColor = vbRed
Case 2
Form1.BackColor = vbGreen
Case 3
Form1.BackColor = vbBlue
End Select
End Sub
四、编程及上机调试
1．Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If Button = 1 Then
Picture1.PSet (X, Y)
StatusBar1.Panels(1) = "X=" & X
StatusBar1.Panels.Item(2) = "Y=" & Y
End If
End Sub
2．Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.InitDir = "D:\"
CommonDialog1.Filter = "Word Files|*.doc|文本文件|*.Txt" '设置过滤器
CommonDialog1.DialogTitle = "打开文件" '设置打开对话框的标题CommonDialog1.Action = 1 '创建"打开"对话框If CommonDialog1.FileName = "" Then '判断文件名是否为空MsgBox "没有选择文件", 37, "检查" '若为空，则显示信息Else
Open CommonDialog1.FileName For Input As #1 '打开选定的文件
Do While Not EOF(1)
Line Input #1, a$ '读文件的一行
Text1 = Text1 & a$ & vbCrLf '输出所读的内容Loop
End If
End Sub
Private Sub Command2_Click()
CommonDialog1.Flags = 3 '列出打印机和屏幕字体
CommonDialog1.Action = 4 '打开"字体"对话框
Text1.FontName = CommonDialog1.FontName '改变文本框的字体
Text1.FontSize = CommonDialog1.FontSize
Text1.FontBold = CommonDialog1.FontBold
Text1.FontItalic = CommonDialog1.FontItalic
Text1.FontUnderline = CommonDialog1.FontUnderline End Sub
Private Sub Command3_Click()
End
End Sub
11章略
VB程序设计课后习题答案(科学出版社)
同步练习1 二、选择题 01——05 CADAB 06——10 ACDAB 11——15 CBDBB 同步练习2 二、选择题 01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题 1．可视 2．LEFT、TOP、WIDTH、HEIGHT 3．按字母顺序 4．查看代码 5．工具、编辑器 6．FORM窗体、FONT 7．MULTILINE 8．在运行时设计是无效的 9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0 同步练习3 二、选择题 01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题 1．整型、长整型、单精度型、双精度型 2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-19 4．FALSE 5．-4、3、-3、3、-4、4 6．CDEF 7．(X MOD 10)*10+X\10 8．(35\20)*20=20 ( 35 \ 20 )* 20 = 20 9．X MOD 3=0 OR X MOD 5=0 10．27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习4 一、选择题 01——05 DBCAD 06——10 CBBAB
11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题 1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 3 3．X>=7 4．X 实验教材实验一 1：单项选择题： A A C C C D C B B C 2：填空题： （1）.bas （2）.vbp，.frm （3）视图工具箱 （4）对象 （5）属性对象事件方法 （6）Windows （7）事件行为 （8）窗体模块 实验二 1：单项选择题： A D C C A B A B D C B B C B C B A B D C 2：基本运算题： （1）27 （2）3.33333333333333 （3）3 （4）0 （5）-3 （6）2 （7）ab33 （8）类型不匹配 （9）3 （10）AB3 实验三 1：单项选择题： B C B D C 2：填空题： （1）300 （2）321456 （3）Shanghai （4）6 7 6 （5）True （6）2+3=5 （7）”area=” 12.56 （8）VISUAL 实验四 1：单项选择题： C A A C A 2：填空题： （1）7 （2）3 5 （3）输入的数小于0 （4）3 （5）False （6）2010 is not leap year. 试验五 1：单项选择题： A C C A B A C C C B 2：填空题： （1）9 （2）①n ②1 （3）①Len(a) ②n\2 ③Mid(a,(n-i+1),1) ④Mid(a,(n-i+1),1) （4）①n Mod 3=1 And n Mod 5=1 And n Mod 7=1 ②While CountN<5 （5）Mid(c1,1,i) 实验六 1：单项选择题： D B D C D A C A D D 2：填空题： （1）30 （2）3 （3）①a(2) ②a(3) ③a(1) （4）①1 ②2 ③a(i)=a(6-i) （5）①i+j ②0 ③a(i,j) （6）①Print ②k ③a(k,j)=a(j,k) ④a(k,j); 实验七 1：单项选择题： A B B A C B 2：填空题： （1）15 （2）①Preserve a(n+1) ②a(i+1)=a(i) ③Exit For ④a(i+1)=m⑤0 to n+1 (或LBound(a) to UBound(a)) （3）d,c,b,a 实验八 1：单项选择题： C A D B D C A C B 2：填空题： （1）a=9 b=4 （2） 36 25 16 9 4 1 （3）①a ②UBound(b) ③ 1、完成实验A（P.259）中的第1、 2、 3、5题。 2、参照第2章例2.6，建立一个类似记事本的应用程序，提供：(1) 剪切、复制和粘贴的编辑操作；(2) 字体大小的格式设置；此外，再对记事本的应用程序的功能进行一点扩允。 1．完成在实验B 顺序结构程序。（P.262）中的第1、2 、4 、5.、6题 2．完成实验C 选择结构（P.266）中的第1、2、4、5题 3．用上面实验B的第二题和实验C的第二题完成下面的实验报告。 1、完成实验D循环结构（P.268）中的第1、3、4、6题，其中第1题利用单循环结构显示如图D.1(P.268)所示的界面,而后将图形改为倒三角形。 2、选做实验E数组（P.271）中的第1、2、3题中的任意二题 3、以实验D中的第4题和实验E中的做完的某一题完成下面的实验报告。 A．1 Private Sub Command1_Click() Label3 = Text1 End Sub A．2 Private Sub Form_Load() Timer1.Interval = 0 End Sub Private Sub Command1_Click() '自动 Timer1.Interval = 200 End Sub Private Sub Command2_Click() '手动 Timer1.Interval = 0 Call MyMove End Sub Private Sub Timer1_Timer() Call MyMove End Sub Sub MyMove() Label1.Move Label1.Left - 50 If Label1.Left < 0 Then Label1.Left = Form1.Width End Sub A．3 Private Sub Form_Click() Text1 = Val(Text1) + 1 End Sub Private Sub Form_Load() Text1 = 0 End Sub A．5 《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) 《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0) 《VB程序设计》综合复习资料 第一章 Visual Basic程序设计概述 一、填空题 1、Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2、在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 3、执行“工程”菜单下的__________命令，可选择并添加ActiveX控件。 4、Visual Basic 6.0用于开发__________环境下的应用程序。 二、选择题 1、下面不是VB工作模式的是（） A．设计模式B．运行模式C．汇编模式D．中断模式 2、可视化编程的最大优点是（） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 3、下列不能打开属性窗口的操作是（） A．执行“视图”菜单中的“属性窗口”命令 B．按F4键 C．按Ctrl+T D．单击工具栏上的“属性窗口”按钮 4、下列可以打开立即窗口的操作是（） A．Ctrl+D B．Ctrl+E C．Ctrl+F D．Ctrl+G 5、Visual Basic的编程机制是（） A．可视化 B．面向对象 C．面向图形 D．事件驱动 三、简答题 1、代码窗口主要包括哪几部分？ 2、在工程资源管理器窗口中，主要列出了哪三类文件？ 3、窗体布局窗口的主要用途是什么？ 4、VB的基本特点是什么？ 5、怎样理解可视化设计？ 6、怎要理解事件驱动编程？ 第二章简单的VB程序设计 一、填空题 1、设置是否可以用Tab键来选取命令按钮，应该用______________属性。 2、一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3、利用对象的属性setfocus可获得焦点，对于一个对象，只有其visible属性和____________属性为true，才能接受焦点。 4、设置控件背景颜色的属性名称是______________________。 5、所有控件都具有的共同属性是__________________属性。 6、一般情况下，控件有两个属性项的缺省值是相同的，这两个属性项是_______________。 7、VB中的每个对象（控件）都有一组特征，这组特征称为__________，我们通过修改它可以控制对象的外观和操作。 8、通常情况下，VB中一个工程主要包括如下四个文件：窗体文件、工程文件、类模块文件和_____________文件，后者的扩展名为.Bas，通常由Basic语言编写，是一个可共用的子程序。 9、VB有三种工作模式，分别是设计（Design）模式、_____________和中断（Break）模式。 二、选择题 1、以下能够触发文本框Change事件的操作是（） VB程序设计答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述VB的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述VB的安装过程。 答：①向光驱中放入VB安装光盘； ②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6．Form_Click 第三章习题参考答案 一、选择题 1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、双引号(英文)、# 3、ASCII、1、2 4、public、通用、Dim、Static、Private、Static 5、&、+、+ 6、Now()、Time、日期型 三、解答题 1、(3) 2、(1 ) 3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量 （7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（1）13 （2）17 （3）#1999-11-12# （4）zxy123ABC 8、（1）19 （2）8.16666666666667 （3）5．25 （4）2 9、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello”（6）He 7）16 （8）“-459.65”（9）5 10、（4） 11、（2） 12、（4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1．500.00% 2．将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1、label1、command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text 课后习题解答 第一、二章： 1、简述VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。2、当正常安装VB6.0后，误把Windows子目录删除。当重新安装Windows后，是否需要再次安装VB6.0？ 答：要重新安装的。因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。 3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在VB6.0的启动界面上，能显示对应的版本。 4、叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是VB98 8、安装Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。 9、如何使用Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定容有关的帮助信息。 10、什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执行的操作。 12、当标签边框的大小由Caption属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的Autosize属性值设置为true。 13、在VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应怎样修改？ 答：命令按钮的显示形式通过将Style属性值设置为Graphical来实现。通过Picture属性来装入图 vb程序设计实例 2009-5-22 15:37 提问者：淘淘的某在|悬赏分：20 |浏览次数：1688次 编写程序，设银行定期存款的年利率为：1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： ①存一次5年期； ②存一次3年期，一次2年期； ③存一次3年期，两次1年期； ④存两次2年期，一次1年期； ⑤存一次2年期，三次1年期； ⑥存五次1年期. 分别计算各种存法5年后到期的本息合计，如图所示 2009-5-22 17:06 最佳答案 Private Sub Form_Activate() '1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法： Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288 Dim x As Double x = Val(InputBox("")) Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5) Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2) Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1) Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1) Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1) Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1) End Sub Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double ss = a + a * c * b End Function Private Sub Form_Load() 《程序设计语言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 VB基础教程 第1课…………VB基础 第2课…………标签控件 第3课…………文本框 第4课…………命令按钮 第5课…………图片框 第6课…………复选框 第7课…………单选按钮I 第8课…………单选按钮II 第9课…………定时器 第10课…………音乐播放器 本教程由86团学校TeliuTe制作|著作权所有，不得用于商业用途 美丽的校园…… VB程序设计基础 一、程序设计是指为计算机编制一些软件和程序。学习的目的是理解计算机的工作方式和运行的方式。 VB是经典的编程设计语言，也是基础语言之一，简单易学，功能强大，深受广大初学者的喜爱。 VB是运行在Windows视窗操作系统上，设计程序的思想在于在窗口中放置对象和针对对象设计代码。 （一）启动VB：单击“开始”－“程序”－“Microsoft Visual Basic 6.0 中文版”选择“标准EXE”，单击“打开”进入窗口。 （二）VB窗口 1、标题栏：在最上面蓝色标题是“工程1－...”，是我们当前正在设计的程序，被称作“工程1”。 2、菜单栏：菜单栏在第二行，包含一组菜单，菜单中有各种命令，我们应该理解操作计算机就是向计算机提供一系列的指令。 （1）“文件”菜单，要求记住“保存”命令，VB要保存两次，注意保存文件到自己的文件夹中。（本书中双引号当中均是指操作命令） （2）“视图”菜单，显示各个窗口，如果一个窗口找不着了，就到这个菜单中找出来。 （3）“运行”菜单，第一个“启动”命令要记住，可以运行我们的程序。 3、工具栏：第三行是工具栏，工具栏是一些最常用的命令，而且是用图标表示的，因而便于形象记忆和操作，要求记住“启动”按钮。（在视窗操作系统中，我们不仅要会认识文字说明，还要特别留意图标含义。） 4、工作区：工作区占据窗口的绝大部分，从左向右包括工具箱、窗体、和属性窗口。 （1）工具箱：在工作区的左侧，包含许多编程用到的基本对象，被称作“控件”。 （2）窗体：中间的灰色的窗口，是我们设计的程序的基本框架，所有的对象都放在这个窗口当中。 （3）小窗口：在右侧有三个纵向排列的窗口。 ①最上面是工程窗口，上边有三个按钮，中间的按钮是显示对象窗口； ②下面是属性窗口，属性是一个对象的名称、大小、颜色等等； 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) 中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型 《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual 集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。 A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．="欢迎您!" B．="欢迎您!" C．Form. print "欢迎您!" D． "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．"China" B．"1,China" C．"China",0 D．"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（） 习题一 答案在教材上找。 习题二 1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。 类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。 VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。 VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。 对象的三要素：属性、事件和方法。 属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。 事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。 方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。 2.窗体和控件具有的基本属性“ (1) Name属性：名称 所创建的对象名称,在程序中引用。 (2) Caption属性：标题 该属性决定了对象上显示的内容。 (3) Height、Width、Top和Left属性 决定对象的大小和位置。 (4) Enabled 属性：对象是否允许操作 (5) Visible 属性：对象是否可见 (6) Font 属性组：文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体 FontStrikethru 删除线 FontUnderline 下划线 (7) ForeColor属性：前景颜色 (8) BackColor属性：背景颜色 (9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。 VB程序设计复习题 1．Visual Basic是一种___D___的可视化程序设计语言。 A．面向机器 B．面向过程 C．面向问题 D．面向对象 2．Visual Basic主窗口中不包括____B_____。 A．标题栏 B．状态栏 C．工具栏 D．菜单栏 3．程序运行中用鼠标双击当前窗体时，会触发窗体的_____C____ 事件。 A．Load B．Unload C．DblClick D．KeyPress 4．假设窗体上已有一个控件是活动的，为了在属性窗口中设置窗体的属性，预先要执行的操作是____A______。 A．单击窗体上没有控件的地方 B．单击任一个控件 C．双击任一个控件 D．双击窗体上没有控件的地方 5、要设置窗体上各控件的属性，可在 ____C___ 中进行。 A．窗体布局窗口 B．工程资源管理器窗口 C．属性窗口 D．窗体窗口 6．设变量A的值为-2，则___A___函数的执行结果与其他三个不一样。 A．Val("A") B．Int(A) C．Fix(A) D．-Abs(A) 7．要在窗体Forml的标题栏上显示"统计程序"，可用___B___语句。 A．https://www.360docs.net/doc/bb3094297.html,="统计程序" B．Form1.Caption="统计程序" C. Forml.Caption=统计程序 D．https://www.360docs.net/doc/bb3094297.html,=统计程序 8．函数String(n, "str")的功能是 B 。 A．把数值型数据转换为字符串 B．返回由n个字符组成的字符串 C．从字符串中取出n个字符 D．从字符串中第n个字符的位置开始取子字符串 9、定义变量如下： Dim MyVar MyVar =”come see me “ 若在立即窗口中显示MyVar的值，下面正确的是（ A ） A．Debug.Print MyVar B、? MyVar C．Printer.Print MyVar D、Print MyVar 10．设置复选框或单选按钮标题对齐方式的属性是（ D ） 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 …… 自测1 程序代码 Private Sub Command1_Click() = + 3 End Sub Private Sub Command2_Click() = True End Sub Private Sub Command3_Click() = True End Sub Private Sub Command4_Click() = 10 = False = False End Sub 初始窗口： 单机放大之后窗口： 单机下划线之后窗口： 单击加粗之后窗口： 单击还原之后窗口： 自测2 程序代码 Private Sub Command1_Click() Label1 = "visual basic" Text1 = "程序设计题" End Sub Private Sub Command2_Click() Text1 = "visual basic" Label1 = "程序设计题" End Sub 初始窗口： 单击显示之后窗口： 单击交换之后的窗口： 自测题3 Private Sub Command1_Click() = * End Sub Private Sub Command2_Click() = + 30 = + 20 = 1 End Sub 初始窗口： 单击缩小两倍之后的窗口： 单击向右下角移动之后的窗口：自测题4 程序代码 Private Sub Command1_Click() = "VB学习" Print "简单的VB程序设计" End Sub Private Sub Command2_Click() Cls End Sub Private Sub Command3_Click() End End Sub Private Sub Command3_Click() End End Sub 初始化窗口： 单击显示之后的窗口： 单击清除之后的窗口：vb程序设计实验教程习题答案
VB程序设计教程(第3版)课后实验答案最新版2
《VB程序设计》习题答案-林卓然编著
《VB程序设计》考试题型练习 答案
visual_Basic程序的设计教程_课后习题答案及练习
VB程序设计答案
VB程序的设计教程课后答案
vb程序设计实例
程序设计语言VB_习题集(含答案)
VB教程十讲(经典例子)
vb程序设计试题(含答案)
[整理]VB程序设计复习题及答案.
VB程序设计期末复习题
vb程序设计教程课后答案(第三版)
VB程序设计复习题答案范文
VB程序设计试题及答案一
VB程序设计教程实验指导与习题解答上机答案