vb教程答案第五章.doc

1阅读程序，写出执行结果(1) 6 55(2) DDEFEDDEFFEDDEF(3) 提示：注意变量p的类型是整型，如果将实数赋给它，系统会自动四舍五入取整。结果是：6 5(4) 提示：For循环的终值和步长都是变量，但由于For语句只执行一次，所以，不管以后变量n和p的值是多少，循环的终值和步长都不会变。执行结果是：11 10 82编写程序，随机生成100个两位整数，并统计出其中小于等于40、大于40小于等于70及大于70的数据个数。提示：本题是统计算法程序，由于有三个统计要求，所以需要定义三个计数器。Private Sub Command1_Click() Dim i As Integer, n1 As Integer, n2 As Integer, n3 As Integer, x As Integer n1 = 0 n2 = 0 n3 = 0 For i = 1 To 100 x = Int(Rnd * 90) + 10 Print x; If i Mod 10 = 0 Then Print Select Case x Case Is = 40 n1 = n1 + 1 Case 41 To 70 n2 = n2 + 1 Case Else n3 = n3 + 1 End Select Next i Print Print 小于等于40的个数为 & n1 Print 大于40小于70的个数为 & n2 Print 大于70的个数为 & n3End Sub3编写函数，求下面函数的值。提示：分段函数一般用分支结果来处理Private Sub Command1_Click()Dim x As Integer, y As Integerx = InputBox(请输入x的值)If x = 0 Then y = 2 - x ElseIf x = 2 Then y = x + 2 ElseIf x = 5 Then y = x 2 Else y = 25 - xEnd IfPrint yEnd Sub4编写程序，随机生成20个三位正整数，将其中的偶数与奇数分别输出到两个列表框中。提示：本题需要对生成的20个100以内的随机整数进行判断，注意不能一边判断一边输出，因为在窗体上输出内容，如果在第一行输出一个奇数，在第二行输出一个偶数后，若第三个数是奇数，应该在第一行上输出，保证所有奇数在一行上输出，但这时已经不能在回到第一行进行输出了。解决的办法是定义两个字符串型变量，分别用来存放奇数和偶数串。Private Sub Form_Click() Dim i As Integer, x As Integer, y As String, z As String For i = 1 To 20 x = Int(Rnd * 100) + 1 If x Mod 2 = 0 Then 如果是偶数，则将其连在偶数串y的后面 y = y & x & 末尾加空格，可以保证每个数之间有一定的间隔，不会连在一起 Else z = z & x & 是奇数，将其连在奇数串z的后面 End If Next i Print 偶数有：; y Print 奇数有：; zEnd Sub5编写程序，求两个正整数的最小公倍数。提示：先用碾转相除法求出最大公约数，再用两个数的乘积除以最大公约数即得到最小公倍数。Private Sub Command1_Click()Dim a As Integer, b As IntegerDim d As Integer, r As Integer, t As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a b Then t = a a = b b = t End If Do r = a Mod b a = b b = r Loop While r 0 d = Val(Text1.Text) * Val(Text2.Text) / aPrint dEnd Sub6编写程序，求用Inputbox函数输入的10个数的和数连乘积。提示：本题主要是累和运算和累积运算，注意乘积变量必须先设置为1，否则最后乘积将会是0。Private Sub Command1_Click()Dim a As Integer, i As Integer, s As IntegerDim j As Longj = 1For i = 1 To 10 a = InputBox(请输入数值) s = s + a j = j * aNext iPrint s, jEnd Sub7编写程序，从文本框1中输入的一个由字母和数字组成的字符串中，找出所有的数。Private Sub Command1_Click()Dim s As String, s1 As String, c As String, i As Integers = Text1.TextFor i = 1 To Len(s) c = Mid(s, i, 1) If c = 0 And c 0Print n & 所对应的二进制数是 & sEnd Sub9提示：本题是穷举算法的应用Private Sub Form_Click() Dim a As Integer, b As Integer For a = 1 To 100 列出所有a可能的值 b从a+1开始，可以保证ab，而且避免重复输出。比如3、4、5是满足条件的勾股数，而4、3、5和5、4、3等等就可以不再输出For b = a + 1 To 100 If Int(Sqr(a 2 + b 2) = Sqr(a 2 + b 2) And Sqr(a 2 + b 2) 100 Then Print a, b, Sqr(a 2 + b 2) End If Next b Next aEnd Sub10编写程序，找出所有三位的升序数。Dim a As Integer, b As Integer, c As Int