- 博客(6)
- 收藏
- 关注
原创 规阵元素求和
Dim a(1 To 4, 1 To 4) As Integer Private Sub Command1_Click() For i = 1 To 4 For j = 1 To 4 Print a(i, j); '输出数组元素 Next j Print '换行 Next i End Sub Private Sub Command2_Click() Dim s
2012-05-28 22:12:20
274
原创 文字倒序输出
Dim a() '声明一动态数组 Private Sub Command1_Click() Dim n As Integer Dim wz As Integer wz = Text1.Text n = Len(wz) '取字符串wz的长度 ReDim a(1 To n) '制定数组的大小 For i = 1 To 10 a(i) = Mid(wz, i, 1) '取字符串wz
2012-05-28 22:10:34
484
原创 输入10个正数,求最大值、最小值、平均值。
Option Base 1 '数组下标从1开始 Dim a(10) As Integer '声明一整型数组 Private Sub Command1_Click() For i = 1 To 10 a(i) = InputBox("输入第" & i & "个数") Next i End Sub Private Sub command2_click() Dim max A
2012-05-28 22:08:10
3048
原创 10位数字的比较,找出最大值。
Private Sub Command1_Click() Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Integer Dim f As Integer Dim g As Integer Dim h As Integer
2012-05-28 22:02:51
324
原创 3位数字的比较,找出最大值,
Dim b As Integer Dim c As Integer Dim max As Integer a = InputBox("输入数字") b = InputBox("输入数字") c = InputBox("输入数字") If a > b Then max = a Else max = b End If I
2012-05-28 22:00:42
231
原创 2位数字的比较,找出最大值。
Private Sub Command1_Click() Dim m As Integer Dim n As Integer m = InputBox("输入数字") n = InputBox("输入数字") If m > n Then Print m Else Print n End If
2012-05-28 21:57:49
172
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人