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

VB语言程序设计综合练习：程序填空题 31.题目：随机产生并输出100以内大于50的20个整数，输 出时每5个数一行。 -----------------------------------------------Option Explicit Private Sub Form_Click() Randomize Timer Dim i As Integer, ma As Integer Do Until ma = Rnd() * 100 \ 1 If ma 50 Then Print ma; i = i + 1 Then Print End If End If Loop End Sub 32.题目：以下程序段用于计算5的N次方。 ------------------------------------------------ Option Explicit Private Sub Form_Click() Dim n As Integer, k As Integer, s As Long n = InputBox( Input n ) Do While k = n s = s * 5 k = k + 1 Print 5的; n次方是; s End Sub题目：下面程序可输出如下图形： * *** ***** ******* *********------------------------------------------------ Option Explicit Private Sub Form_Click() Dim m As Integer, n As Integer, s As String, i As Integer, j As Integer n = 4 m = 1 s = * For i = 5 To 1 Step -1 For j = 1 To 2 * m - 1 Print s; Next j Print Next i End Sub 34题目：用自定义函数的方法求sum（x），求当-1≤x≤1时， sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数 据错误。X、N都是由用户输入。 ------------------------------------------------ Option Explicit Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox(Please input a integer value:)) x = Val(InputBox(Please input a single value:)) If n = 0 Then k = MsgBox(数据输入错误！, vbRetryCancel + vbExclamation, 数据输入) Exit Sub End If s = Sum(x, n) Print s End Sub Function Sum(x As Single, n As Integer) Dim i As Integer, ss As Long ss = 1 Sum = 0 If x 1 Or x -1 Then Else ss = ss * i Next i End If