VB程序设计学习与实验指导书答案(包含实验答案)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB学习与实验指导测试题
参考答案
第一章
第二章
第三章
第四章
第五章
第六章
第七章
第八章
第九章
综合测试题一
综合测试题二
下篇实验教程
实验2 Visual Basic 变量、函数与表达式的使用
实验2-1 算术运算符的使用
13
17
8
3
3
2
2
6
2
-2
-2
2007-10-15
3 2.857143 2.85714285714286
实验2-2 字符运算符的使用
200710
200710
2017
2007-10-1010
2007-10-20
出错，类型不匹配
实验2-3 关系运算符的使用
False
False
False
False
False
False
False
True
False
True
实验2-4 逻辑运算符的使用True
True
False
True
False
False
True
True
False
5
-5
9
实验2-5 常用函数的使用
3.14 3.14
7.38905609893065
1 -1 .999999998205103 4
-1 1 0
.7055475
58
25 25
1250 0
A a
65 97
48 68
8 -9
8 -8
9 -9
aaa 4.5 aaa4.5
16 5
Visua 6.0
sua Basic Basic 6.0
abcde EFG
Basic Basic Basic
Visual Basic 6.0 Basic
8 8
aaa dd
2011-3-15
2011-3-15 14:35:52
15
3
2011
3
001.73
1.73
1.73
17.32E-01
0173%
实验3 算法基础及程序控制结构
实验3-1 三个数的交换
A=C
C=B
B=T
B
C
实验3-2 求周长和面积
Const PI=3.1415926
2*PI*R
PI*R*R
Picture1.Cls
Format(L, ".00")
Format(M, ".00")
实验3-3 求分段函数的值
x=Val(Text1.Text)
y=1+Sin(x)
y=Log(x)
Text1.Text = ""
Text2.Text = ""
实验3-4 求一元二次方程的根
Val(Text2.Text)
Val(Text3.Text)
b ^ 2 - 4 * a * c
"x1=" & (-b + Sqr(delt)) / (2 * a)
"x2=" & (-b - Sqr(delt)) / (2 * a)
Text2.Text = ""
Text3.Text = ""
End
实验3-5 判断素数
N Mod k = 0
k=N
N Mod i=0
k=2
实验3-6 求最大公约数和最小公倍数
M L=M L=N M Mod k = 0 And N Mod k = 0 Text3.Text = k Exit For M>N L=M L=N k Mod M = 0 And k Mod N = 0 Text4.Text = k Exit For 实验3-7 判断升序数、降序数 CStr(N) Len(S) – 1 Mid(S, k, 1) >= Mid(S, k + 1, 1) k = Len(S) N = Val(Text1.Text) S = CStr(N) For k = 1 To Len(S) - 1 If Mid(S, k, 1) <= Mid(S, k + 1, 1) Then Exit For Next k k = Len(S) 实验3-8 判断回文数 1 Len(s)\2-1 Mid(S, k, 1) <> Mid(S, Len(S) - k + 1, 1) k = Len(S) \ 2 Mid(S, k, 1) + S1 S = S1 实验3-9 求级数的值 Val(Text1.Text) 1 x ^ n s * n t / s <= 10 ^ -6 Text2.Text = y 实验3-10 查找数字串并求和 Text1.Text = "" Text2.Text = "" List1.Clear Text1.Text False While Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Flag = True k = k * 10 + Mid(s, i, 1) i = i + 1 Flag = True sum + k Text2.Text = sum 实验3-11 随机产生20个奇数 Int((99 - 10 + 1) * Rnd) + 10 a Mod 2 = 1 n Mod 5 = 0 Picture1.Cls 实验3-12 加密解密 Chr(Asc("a") + (Asc(c) - Asc("a") + 3) Mod 26) c = Chr(Asc("A") + (Asc(c) - Asc("A") + 3) Mo d 26) c & s2 Text2.Text Len(s2) Mid(s2, i, 1)