VB课后习题参考答案文档格式.docx

1、 b+2（3） p mod q=0 （4） x-2 and x（5） xz or xz and yz （6） a0 and y0 or x0 and y0 。10 s=”A” and s=”a” and s=”z” 。四、编程题1、Private Sub Form_Click（） Dim x%, Ten%, hundred% x = Val（Text1.Text） Ten = （x 10） Mod 10 hundred = x 100 Print 百位数是: & hundred十位数是: TenEnd Sub Dim char As String * 1 Form1.CurrentX = Rn

2、d * Form1.ScaleWidth Form1.CurrentY = Rnd * Form1.ScaleHeight char = Chr（Int（Rnd * 16） + 65） Print char第4章 习题参考答案三、程序阅读写出下列各段程序执行后的输出结果。1785786357864135786422 w=4、w=13、w=135、w=31 3此题有点错误，修改如下：是将语句“If k Asc（A） Then k = k + 26”改为： If k Z） And k a） Then k = k + 26 改后的答案： xyza12 uvw& 4ABBBCCCCCDDDDDDDEE

3、EEEEEEE5此题的“IF KeyAsci=13 Then”改为“IF KeyAscii=13 Then” 答案是：129四、程序填空题1 （1） Sing=-1（2） For i=2 to 19（3） Sing=-Sing2 （1） Len（oldsen）（2） Mid（oldsen ,i,1）（3） Ucase（char）（4） char3（1） Len（str1）（2） Length-1（3） Mid（str1,i,2）（4） Sum=04（1） Trim（Str（i）（2） Trim（Str（i*i）（3） Right（x2,Len（x1）=x15.（1） last_one = la

4、st_two（2） last_two = this_one（3） i = i+1（4） i-1五、编程题1 Dim R1 As Double, R2 As Double R1，R2 表示两电阻值 Dim Rp As Double, Rs As Double R1 = Val（InputBox（输入电阻R1=？） R2 = Val（InputBox（输入电阻R2=？ Rp = R1 * R2 / （R1 + R2） Rs = R1 + R2 Rp = Fix（Rp * 1000 + 0.5） / 1000 保留小数点后3位 Rs = Fix（Rs * 1000 + 0.5） / 1000 Msg

5、Box 并联电阻是： Rp & vbCrLf &串联电阻是： Rs2 Dim N As Long N = Val（InputBox（请输入年份, 提示框 If （N Mod 400 = 0） Or （N Mod 4 = 0 And N Mod 100 0） Then 判断条件 Print N &年是闰年 Else年不是闰年 End If Dim a!, b!, c!, s!, x! a = Val（InputBox（Enter A=? b = Val（InputBox（Enter B=? c = Val（InputBox（Enter C=? If a + b c And b + c a And

6、 a + c b Then 如果能构成三角形 x = （a + b + c） / 2 s = Sqr（x * （x - a） * （x - b） * （x - c）S=; s数据有错,不能构成三角形4（此题不适合使用Select语句）Private Sub Command1_Click（） Dim x As Double, fx As Double x = Val（InputBox（输入x=? If x 0 And x = 0 And x 10 And x 2 And x 0.000001 s = s + f * t i = i + 1 n = n * i t = 1 / n f = -f 表

7、示符号 Loop7方法一 Dim i As Integer Dim Hundred As Integer, Ten As Integer, One As Integer 定义百位，十位，个位数 For i = 100 To 999 Hundred = i 100 求百位数 Ten = （i 10） - Hundred * 10 求十位数 One = i Mod 10 求个位数 If i = Hundred 3 + Ten 3 + One 3 Then 判断是否为素数 Print i &是水仙花数方法二 For Hundred = 1 To 9 百位数 For Ten = 0 To 9 十位数

8、For One = 0 To 9 i = Hundred * 100 + Ten * 10 + One Next One Next Ten Next Hundred8Dim a As Double, x0 As Double, x1 As Doublea = Val（InputBox（“输入a=?”）x0 = a 初值x1 = 2 / 3 * x0 + a / （3 * x0 * x0） 第一次迭代后的值Do While Abs（x1 - x0） 0.000001 控制精度 x0 = x1 迭代 x1 = 2 / 3 * x0 + a / （3 * x0 * x0）Loop Print “立方

9、根: ”; x1第5章 习题参考答案三、程序填空1. Preserve a（n+1） a（i+1）=a（i） a（i+1）=m n+1或Ubound（a）2. Print K-1 t = a（k, j）: a（k, j） = a（j, k）: a（j, k） = t 3 Rnd*100 P=10 P = J P = 0 四、编写程序1.Dim A（） As Integer, N As IntegerDim i As Integer, M As Integer, t As Integer, k As Integer请输入数组的大小N=? M = Val（InputBox（请输入移位次数M=?）

10、输入循环次数的大小 If N = 0 Then Exit Sub ReDim A（N - 1）原始数组值 For i = 0 To N - 1 给数组赋值 A（i） = Int（Rnd * 100） Print A（i）; Print移位 For i = 1 To M 循环体完成右移一位，循环完成右移j位 t = A（N - 1） For k = N - 1 To 1 Step -1 循环右移 A（k） = A（k - 1） Next k A（0） = t打印右移后的数组值循环右移 M &位后的数组值 For i = 0 To N - 12.Const NM = 100Dim a（1 To N

11、M） As Single, b（1 To NM） As Integer, max As IntegerDim i As Integer, j As Integer, k As Integer, t As Integer For i = 1 To NM 输入100个数值 a（i） = Val（InputBox（请输入a（ i &） 的值 If Int（a（i） = a（i） Then 判断是否为整数 k = k + 1 整数个数加1 b（k） = a（i） 将这个整数存放到数组B 选择排择 For i = 1 To k - 1 max = i For j = i + 1 To k If b（ma

12、x） b（j） Then max = j Next j If max i Then t = b（max）: b（max） = b（i）: b（i） = t打印输出 For i = 1 To k Print b（i）; If i Mod 5 = 0 Then Print3. Dim a（） As Integer Dim n%, i%, j% n = Val（InputBox（输入一个整数n=? ReDim a（n） Form1.Cls Randomize产生的30个随机整数: For i = 1 To n a（i） = Int（Rnd * 21） - 10 Print a（i）; If i Mo

13、d 10 = 0 Then Print删除数组的相同数据 j = 2 Do While j n For i = 1 To j - 1 查找相同的元素 If a（j） = a（i） Then Exit For If i j Then 如果第i个数与前面的数据相同,删除第i个元素 For i = j To n - 1 a（i） = a（i + 1） n = n - 1 ReDim Preserve a（n） j = j + 1删除后的数据:4.Dim a（1 To 50） As Integer, i%, j%, t%, p%, n%, x% n = 0 已经产生的元素个数 Do While n n

14、 Then n = n + 1 a（n） = x For i = 1 To 49 使用选择法排序 p = i For j = i + 1 To 50 If a（p） a（j） Then p = j t = a（p）: a（p） = a（i）: a（i） = t For i = 1 To 50 第6章 习题参考答案1 s=CDE sum=3 2（1） 362516（2） 3 y=1 y=2 y=6 y=24 y=120 1（1）Call Convert（st） （2） Ucase（Mid（s,i,1） （3） Asc（subC）-65+10 （4） Convert=P 2（1）Left（s1,i

15、-1） & mid（s1,i+ls2） （2） InStr（s1,s2） （3） Call DeleStr（ss1,Text2） （4） ss1 3（1） number（i,7） （2） （int n, int m） （3） number=number*10+m五、编写程序Public Function fact（x As Integer） As Single 求x! Dim f As Single, i As Integer f = 1 For i = 1 To x f = f * i 累积 fact = fEnd Function Dim n%, m%, y! Do m% = Val（In

16、putBox（m= n% = Val（InputBox（n= Loop Until m = n And n = 0 y = fact（m） / （fact（n） * fact（m - n） Print y判断是否为回文录函数Private Function Judge（str As String） As Boolean Judge = True 假设为回文 For i = 1 To Len（str） 2 依次判断对应位置的两个字符，只要有一组不等即不是回文 If Mid（str, i, 1） Mid（str, Len（str） + 1 - i, 1） Then Judge = False Ex

17、it Function Dim n%,x!n = Val（InputBox（x= Print fe（n, x） 调用求值函数过程求值函数过程Public Function fe（n%, x!） As SingleDim i As Integer, t As Single fe = 1: t = t * x / i t为通项 fe = fe + t第7章 习题参考答案四、程序阅读1 a=1 b=1 a=3 b=2 a=7 b=4 a=15 b=8 2 2 2 23. s=5 s=10 s=40 4 5 , 10 , 2 第8章 习题参考答案121_Multiline_2_Value_3_Selected_、_List_、_0_、_List1.ListCount-1_4 下拉式列表框 5_LargeChange_、_Value_1 Label1.Font = Combo1.Text Combo2.Text Label1.FontBold = True Label1.FontItalic = True Label1.FontSize = Val（Combo3.Text） 2 List1.List（list1.ListIndex） list1.RemoveItem List1.ListIndex List1.AddItem List2.List