vb考试经典例题,,详细讲解.docxVIP

vb考试经典例题,,详细讲解 求2000到6000之间能被7整除但不能被17整除的所有整数的和与 平均数 Private Sub Commandl_Click() Label1. Visible = FalseDim i, n, aver, sum As Long For i = 2000 To 6000 If i Mod 7 = 0 And i Mod 17 0 Then Print i; n = n + 1 sum = sum + i End If Next i Print Print sum, sum / n End Sub 、*编写程序，要求使用循环结构输出如下图形。 xlx six Xjs XgX XgX XjS XjX xjx Xjx Xjs XjX XTX six vlx XJ% Private Sub Form _ Click() For i = 1 To 4 Print Tab (20 + i); For j = 1 To 6 Print 〃*〃； Next j Print Next i End Sub 2、请输入X、Y、Z三个数，按照从大到小的顺序排列。 Private Sub Form _ Click （） Dim x!, y!, z!, t! x = InputBoxC请输入x的值〃） y = InputBox （,z请输入 y 的值〃） z = InputBox （请输入z的值〃） If x y Then t 二 x:x 二 y:y 二 t If y z Then t 二 y： y =z: z 二 二 t If x y Then t 二 X： X 二 y： y z 二 t End If End If Print x, y, z End Sub 3、 求出fibonacci （斐波那契）数列的前20项的值。 Private Sub Form^ClickO a = 0 b 二 1 Print a, b For i = 1 To 9 a 二 a. + b b 二 a + b Print a, b If i Mod 2=1 Then Print Next i End Sub 4、 求［25, 300］（包括25和300）内奇数（或偶数）的个数。 Private Sub Form^ClickO Dim i As Integer Dim js As Integer, os As Integer js 二 0 os 二 0 For i = 25 To 300 If i Mod 2=0 Then os 二 os + 1 Else js 二 js + 1 Next Print js, os End Sub 5、 求［1,200］中奇数和的平均值。 Private Sub Form_Click() Dim i As Integer, sum As Integer Dim aver As Integer sum 二 0 For i = 1 To 199 Step 2 sum 二 sum + i aver 二 2 * sum / i - 1 Next i Print aver End Sub 6、 求［25, 300］(包括25和300)内奇数(或偶数)的个数。 Private Sub Form Click() Dim i As Integer Dim js As Integer, os As Integer js 二 0 os = 0 For i 二 25 To 300 If i Mod 2=0 Then os 二 os + 1 Else js 二 js + 1 Next Print js, os End Sub 7、 求二维矩阵a(l to 6, 1 to 6)第一列和第六列所有元素的和，所 有元素从［0, 100］(含0和100)中随机产生。 Private Sub Form_Click() Dim a(l To 6, 1 To 6) Dim i As Integer, j As Integer For i = 1 To 6 For j 二 1 To 6 a(i, j) = Int (Rnd * 101) Print a(i, j); If j 二 1 Then x 二 x + a(i, 1) End If If j 二 6 Then y 二 y + a(i, 6) End If Next Print Next Print x + y End Sub 8、求二维矩阵a (4, 4)所有非边界元素的和，元素从[0, 100](含0和 100)中随机产生。 Private Sub Form^ClickO Dim zu(l To 4, 1 To 4) For i 二 1 To 4 For j = 1 To 4 zu