vb 程序填空.doc

1 题目： (事件)单击按钮。 (响应)随机产生N个两位正整数（N由输入对话框 输入，且N0），求出其中的最大数和最小 数，并在标签框Label1上显示最大数与最 小数的差。Private Sub Command1_Click()Dim n As Integer, max As Integer, min As Integer Dim a() As Integer n = Val(InputBox(请输入n:) ReDim a(n) Randomize For i = 0 To n a(i) = Int(Rnd * 90) + 10 Next For i = 0 To n Print a(i), Next max = a(1) min = a(1) For Each x In a If x max Then max = x If x min Then min = x Next Label1.Caption = 最大值为 & max & 最小值为 & min & 两者之差为 & max - minEnd Sub2题目：(事件)单击窗体。 (响应)我国现有人口为13亿，设年增长率为1%， 计算多少年后增加到20亿。并将结果输出 在窗体上。将结果存入变量year中。 使用while .wend语句完成程序。-*Program*Private Sub Form_click()Dim a As Double, i As Integer, year As Integera = 1300000000#While a min Then min = xIf x max Then max = xsum = sum + xNext xaver = sum / 10Print max & Chr(10) & min & Chr(10) & averEnd Sub4编写函数fun，函数的功能是：计算n门课程 的平均值，计算结果作为函数值返回。 例如，若有5门课程的成绩是：92，76，69， 58，88，则函数的值为76.6。-Private Sub Form_Click()Dim m As Integern = Val(InputBox(请输入一个整数, , 1)Print fun(n)End Sub*Program*Private Function fun(ByVal n As Integer) As SingleDim sum As Single, avr As Single, a() As VariantReDim a(n)For i = 1 To na(i) = Val(InputBox(请输入成绩)Next iFor i = 1 To nsum = sum + a(i)Next iavr = sum / nfun = avrEnd Function题目：编写函数fun其功能是：根据整型形参m， 计算如下公式的值: y=1/5+1/6+1/7+1/8+1/9+1/10.+1/(m+5) 例如：若m=9，则应输出：1.168229要求：函数中用到的中间变量必须声明为Single类型。-Private Sub Form_Click()Dim m As Integerm = Val(InputBox(请输入一个整数, , 1)Print fun(m)End Sub*Program*Private Function fun(x As Integer) As SingleDim i As Single, sum As Singlesum = 1 / 5 For i = 1 To x sum = sum + 1 / (i + 5) Next ifun = sumEnd Function【程序填空】-功能：以下程序段实现的功能是：查找一数列中是否存在某数字x，若数列中存在该数字，则输出其出现的次数，否则输出不存在信息。-Private Function Search(a() As Integer, ByVal key, n%) As Boolean Dim i% Search = False *SPACE* For i = LBound(a) To 【ubound(a)】 If key = a(i) Then Search = True *SPACE* 【?】 End If Next iEnd FunctionPrivate Sub Form_Click()Dim x As Integer, k As Integer, num As IntegerDim b() As Integernum = Int(Rnd * 10) + 1ReDim b(num)For i = 0 To num b(i) = Int(Rnd * 70) + 20 Print b(i);Next iPrintx = Val(InputBox(输入待查找数据) *SPACE*If Search(【b(i)】, x, k) Then *SPACE* Print x; 在数列中出现; k; 次Else Print x; 未在数列中出现End IfEnd Sub-【程序填空】-功能：单击插入数据按钮后，输入一个整型数据，该数据会被插入到一个有序的数组a(1 to 10)中,插入该数据后数组还是有序的。-Option Base 1Private Sub Command1_Click() Dim a%(1 To 10), i%, k%, m% Print 原数列是; For i = 1 To 9 a(i) = (i - 1) * 3 + 1 Print a(i); Next i Print m = Val(InputBox(输入要插入的数据) For k = 1 To 9 *SPACE* If (【?】) Then Exit For Next k For i = 9 To k Step -1 *SPACE* a(i + 1) = 【?】 Next i *SPACE* a(【?】) = m Print 插入; m; 后的数列是： For i = 1 To 10 Print a(i); Next i PrintEnd Sub1） ma(k)2） a(i)3） k-功能：以下程序的功能是：生成 20 个 200 到 300 之间 的随机整数，输出其中能被 5 整除的数并求出它们的和-Private Sub Command1_Click() Dim s As Integer Dim x As Integer, i As Integer *SPACE* s = 【?】 For i = 1 To 20 Randomize *SPACE* X = Int(【?】 * 100 + 200) *SPACE* If X 【?】 5 = 0 Then Print X s = s + X End If Next i Print Sum ; sEnd Sub1) 02) Rnd 3) Mod功能：完成程序，使程序输出值为 15-Private Sub Command1_Click() *SPACE* Dim i, j, x,【?】 As Integer For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 *SPACE* For 【?】 = 1 To 2 *SPACE* x = x + 【?】 Next k Next j Next i Print xEnd Sub1） k2） k3） 6-功能：以下程序段用于实现矩阵转置，即将一个nm的矩阵的行和列 互换-Option Base 1Private Sub Form_Click()Const n = 3Const m = 4Dim a(n, m), b(m, m) As IntegerFor I = 1 To n For j = 1 To m a(I, j) = Int(Rnd * 90) + 10 Next j*SPACE*【?】For I = 1 To n For j = 1 To m*SPACE* 【?】 Next jNext IPrint 矩阵转置前For I = 1 To n For j = 1 To m Print a(I, j); Next j*SPACE* 【?】Next IPrint 矩阵转置后For I = 1 To m For j = 1 To n Print b(I, j); Next j PrintNext IEnd Sub1） Next i2） b(j,i)=a(i,j)3） for1.printNext I 或nextb(j, i)= a ( i, j)或b (I , j)=a(j , i)print或form1.print或?-功能：本程序用于实现：从键盘接收一数字，判断其是否在数组 中，如果在数组中则将其删除，否则显示该数字不在数组 中。-Private Sub Form_Click()Dim a(1 to 10) As Integer, x As IntegerFor i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i);Next iPrintx = InputBox(请输入要删除的整数)For i = 1 To 10*SPACE* If a(i) = x Then 【?】Next i*SPACE*If 【?】 Then For k = i To 9*SPACE* 【?】 Next k Print 删除后的数组: For i = 1 To 9 Print a(i); Next iElse Print 该数字不在数组中End IfEnd SubExit fori=10a(k) = a( k + 1)-【程序填空】-功能：有数列 1/5 + 1/9 + 1/13 + 1 / (1 + k * 4) (k=100) 求前 100 项之和-Private Sub Command1_Click() Dim s As Double Dim k As Integer *SPACE* s = 【?】 *SPACE* For k = 1 To 【?】 *SPACE* s = s + 1 / (1 +【?】) Next k Print sEnd Sub1) 02) 100K*43) -【程序填空】-功能：完成程序，使程序输出如图示。-Private Sub Form_Load() Show Dim a(6, 6) As Integer Dim i, j, k, t As Integer *SPACE* For i = 1 To 【?】 For j = 1 To 6 *SPACE* Select Case 【?】 Case Is j a(i, j) = 2 Case Is = j *SPACE* 【?】 End Select Print a(i, j); Next j Print Next iEnd Sub1）62）i3) a(i,j)=0-功能：本程序功能为，单击窗体，Form1的输出结果为 A1=10 B1=20 A2=20 B2=10-*SPACE*Public Sub Swap1 【?】 x As Integer, ByVal y As Integer) Dim t As Integer t = x x = y y = tEnd SubPublic Sub Swap2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = tEnd SubPrivate Sub Form_Click() Dim a As Integer, b As Integer a = 10 b = 20 *SPACE* 【?】 a, b Form1.Print A1=; a, B1=; b a = 10 b = 20 *SPACE* 【?】 a, b Form1.Print A2=; a, B2=; bEnd Sub1) (ByVal2) Swap13) Swap2-【程序填空】-功能：窗体上建立了一个文本框Text1(输入口令)和一个命令按钮Command1(检查)。 判断密码是否正确，并显示相应提示 在加载窗体时设置密码框最大长度为8，密码显示字符为*-Private Sub Command1_Click() x = Text1.Text *SPACE* If x 【?】 12345678 Then MsgBox (欢迎你用机!) Else MsgBox (对不起，口令错) End If Text1.Text = Text1.SetFocusEnd SubPrivate Sub Form_Load() Text1.Text = *SPACE* Text1.【?】 = 8 *SPACE* Text1.【?】 = * End Sub1）=2）MaxLenth3）PasswordChar-功能：由输入对话框输入n（n必须为大于零且小于30的自然数）， 计算下列表达式的值，并在标签框Label1上显示。 sum=1/2+1/6+ . +1/(k*(k+1) (k0 且n30) *SPACE* Do While n = 30 n = Val(InputBox(n=, 请重输入) Loop sum = 0 k = 0 Do *SPACE* k =【?】 sum = sum + 1 / (k * (k + 1) *SPACE* Loop Until 【?】 Label1.Caption = Sum= + Str(sum) End Sub1） Or2） k+1k=n-【程序填空】-功能：窗体上建立了两个文本框Text1(输入字符串)及 Text2(转换结果)，一个命令按钮Command1(清除)。 录入Text1内容时，将录入内容大写字母转为小写， 小写转为大写。-Private Sub Command1_Click() Text1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 *SPACE* s = 【?】(KeyAscii) Select Case s *SPACE* Case A 【?】 Z s = LCase(s) Case a To z *SPACE* s = 【?】 Case Else s = * End Select Text2.Text = Text2.Text + sEnd Sub1） Chr2） To3） UCase(s)-功能：求A,B,C三个数的最大值。-Private Sub Command1_Click()A = Val(Text1.Text)*SPACE*【?】C = Val(Text3.Text)If A B And A C Then MAXDATE = A*SPACE*ElseIf 【?】 Then MAXDATE = BElse*SPACE* 【?】End IfLabel1.Caption = MAXDATE & 是最大值End Sub4） B=Val（text1.text）5） BC6） MAXDATE=C-功能：以下程序段用于计算若干个数字的最大公约数。-Option Base 1Private Function gcd(ByVal m%, ByVal n%) As Integer If m = 1 tempstr = tempstr + Mid(xstr, i, 1) i = i - 1 *SPACE* 【?】 ystr = tempstrEnd SubOption Explicit-【程序填空】-功能：下面是一个体操评分程序，10位评委，除去一个最 高分和一个最低分，计算平均分 (设满分为 10 分) 。-Private Sub Command1_Click() Dim s As Integer Dim Max%, Min As Integer Dim i%, n%, p A