vb代码5.docVIP

1．1！+2！+3！+… Private Sub Command1_Click() Dim n%, i%, s%, m% n =val( InputBox(请输入一个正整数)) 编写程序计算 m = 1 For i = 1 To n m = m * i s = s + m Next i Label1.Caption = s End Sub 2．随机产生10个数，最大和最小，对调，蓝色标记 Private Sub Command1_Click() Dim a(1 To 10) As Integer, i%, min%, max%, t% Print 产生的10个数是： For i = 1 To 10 a(i) = Int(Rnd * 91 + 10) Print a(i); Next i min = 1 max = 1 For i = 2 To 10 If a(i) a(max) Then max = i If a(i) a(min) Then min = i Next t = a(max) a(max) = a(min) a(min) = t Print Print 调换之后的数： Form1.FontSize = 16 Form1.ForeColor = vbBlue For i = 1 To 10 Print a(i); Next i End Sub 3．水平滚动条，乘