2014中职VB语言程序设计程序填空题综合练习（六）.docVIP

VB语言程序设计综合练习：程序填空题 41.题目：程序功能：求1+2+3……，直到其和超出3000为 止，并输入结果。------------------------------------------------ Option Explicit Private Sub Form_Click() Cls Dim i As Integer Dim s As Single i = 1 Do s = s + i Loop Print 从1 到:; i; 的和是; s End Sub题目：以下程序段用于输出100-300的所有素数------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, i As Integer, swit As Integer For n = 101 To 300 Step 2 k = Int(Sqr(n)) i = 2 If n Mod i = 0 Then swit = 1 Else End If Wend If swit = 0 Then Print n; End If Next n End Sub 43.题目：本程序的功能是随机产生的10个两位正整数，并进行递减排序。------------------------------------------------ Option Explicit Private Sub CreateRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10 Print 数据： For I = 1 To N Print X(I); Next I Print Print 排序： For I = 0 To N - 1 For J = I + 1 To N X(J) = X(I) X(I) = Temp End If Next J Print X(I); Next I Print End Sub Private Sub Command1_Click() CreateRND End Sub 44.题目:输入两个正整数m和n，求其最大公约数。 ------------------------------------------------ Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, r As Integer m = InputBox(输入m的值：) n = InputBox(输入n的值：) Do While n 0 m = n Loop Print 两数的最大公因子为：; End Sub 45．题目：下面程序将10个整数从大到小排序------------------------------------------------ Option Explicit Private Sub Form_Click() Dim t%, m%, n%, w% Dim a(10) As Integer For m = 1 To 10 a(m) = Int(10 + Rnd() * 90) Print a(m); ; Next m Print For m = 1 To 9 t = m Next n