- 博客(6)
- 收藏
- 关注
RSS订阅原创 规阵元素求和
Dim a(1 To 4, 1 To 4) As Integer Private Sub Command1_Click()For i = 1 To 4For j = 1 To 4Print a(i, j); '输出数组元素Next jPrint '换行Next iEnd SubPrivate Sub Command2_Click()Dim s
2012-05-28 22:12:20
268
原创 文字倒序输出
Dim a() '声明一动态数组 Private Sub Command1_Click()Dim n As IntegerDim wz As Integerwz = Text1.Textn = Len(wz) '取字符串wz的长度ReDim a(1 To n) '制定数组的大小For i = 1 To 10a(i) = Mid(wz, i, 1) '取字符串wz
2012-05-28 22:10:34
479
原创 输入10个正数，求最大值、最小值、平均值。
Option Base 1 '数组下标从1开始Dim a(10) As Integer '声明一整型数组Private Sub Command1_Click()For i = 1 To 10a(i) = InputBox("输入第" & i & "个数")Next iEnd SubPrivate Sub command2_click()Dim max A
2012-05-28 22:08:10
3021
原创 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
319
原创 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 Elsemax = b End If I
2012-05-28 22:00:42
225
原创 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
169
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人