UC知道求大哥帮忙啊 不然不能毕业啊
来源：百度知道 编辑：UC知道 时间：2024/06/19 17:51:05
四、编程题（42分）
1． 从键盘输入二维数组a(4,5)（共30个元素），编写程序求这30个数的最大数，以及这个数的数组下标。 (10分)
2．在窗体上随机打印100个小写的英文字母（a的ascii码为97）。（10分）
3．编写程序，在文本框中任意输入一个字符，在窗体上输出该字符的Ascii码。（10分）
4． 用递归的方法打印如下图形。（12分）
1
1 2 1
1 2 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 …9…4 3 2 1
1． 从键盘输入二维数组a(4,5)（共30个元素），编写程序求这30个数的最大数，以及这个数的数组下标。 (10分)
2．在窗体上随机打印100个小写的英文字母（a的ascii码为97）。（10分）
3．编写程序，在文本框中任意输入一个字符，在窗体上输出该字符的Ascii码。（10分）
4． 用递归的方法打印如下图形。（12分）
1
1 2 1
1 2 3 2 1
1 2 3 4 5 4 3 2 1
1 2 3 4 …9…4 3 2 1
……都快毕业这些题还答不出来？
算了，帮你三道题~
1.
Private Sub Form_Load()
Dim a(4, 5) As Long
Dim MaxNum(2) As Long
For i = 0 To 4
For j = 0 To 5
a(i, j) = InputBox("输入数据", "当前下标是：（" & i & "," & j & "）")
If a(i, j) > MaxNum(0) Then
MaxNum(0) = a(i, j)
MaxNum(1) = i
MaxNum(2) = j
End If
Next j
Next i
MsgBox "最大的数是:" & MaxNum(0) & "，下标是：(" & MaxNum(1) & "," & MaxNum(2) & ")"
End Sub
2.
Private Sub Command1_Click()
Randomize Timer
Dim SList As String
Dim Po As Long
SList = "abcdefghijklmnopqrstuvwxyz"
For i = 0 To 99
Po = Int(Rnd * 26) + 1
Print Mid(SList, Po, 1)
Next i
End Sub
3.
Private Sub Text1_KeyPress(KeyAscii As Integer)
Me.Print KeyAscii
End Sub
都快毕业了，这些基础知识还没掌握，毕业后将去何处呢？