VB程序设计学习与实验指导书答案(包含实验答案)

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)