vb的几道题(可以参考一下).doc

加 油 ! 【程序填空】 1.下面的程序段用于打印出以下图形 * *** ***** ******* ***** *** * Private Sub Form_Click() Dim i%, j%, k% For i = 0 To 3 For j = 0 To 2 - i Print ; Next j **********SPACE********** For k = 1 To 2 * i + 1 for k = 1 to【?】 Print *; Next k Print Next i For i = 0 To 2 For j = 0 To i **********SPACE********** Print ; print Next j For k = 0 To 4 - 2 * i Print *; 【?】 Next k **********SPACE********** Print 【?】 Next i End Sub 2.本程序段将一个十进制整数m转换成 r (2－16)进制字符串 方法：将m不断除 r 取余数，直到商为零，以反序得到结果。 ------------------------------------------------------- Function TranDec$(ByVal m%, ByVal r%) Dim StrDtoR$ Dim iB%, mr% StrDtoR = Do While m 0 **********FILL********** mr = m Mod r ‘mr = _____ m = m \ r If mr = 10 Then **********FILL********** ‘StrDtoR = Chr(mr - 10 + _____) StrDtoR StrDtoR = Chr(mr - 10 + 65) StrDtoR Else StrDtoR = mr StrDtoR End If Loop TranDec = StrDtoR End Function Private Sub Command1_click() Dim m0%, r0%, i% m0 = Val(Text1.Text) r0 = Val(Text2.Text) If r0 2 Or r0 16 Then i = MsgBox(输入的R进制数超出范围, vbRetryCancel) If i = vbRetry Then Text2.Text = Text2.SetFocus Else End End If End If Label3.Caption = 转换成 r0 进制数 **********FILL********** Text3.Text = TranDec(m0, r0) ‘Text3.Text = TranDec(m0, _____) End Sub 3.要求输入若干学生的成绩，计算平均分和高于平均分的人数， 并将这两个数据放入数组的最后。 ------------------------------------------------------- Private Sub Form_Click() Dim mark() As Integer, i%, n%, aver n = InputBox(输入学生的人数) ReDim mark(1 To n) aver = 0 For i = 1 To n mark(i) = Int(Rnd * 101) aver = aver + mark(i) Next i **********FILL********** ‘ ReDim _preserve____ mark(1 To n + 2) 增加两个元素,存放平均分和高于平均分的人数,原来的学生成绩仍保留 ReDim Preserve mark(1 To n + 2)