UC知道刚学VB的菜鸟，有两个问题请教。。。
来源：百度知道 编辑：UC知道 时间：2024/05/22 05:26:29
两个程序，我自己怎么做也做不出来鸟~~~
1.随机产生一个3位正整数，然后逆序输出，产正的随机数与逆序数同时显示。例如，产生735，输出是537
PS：这道题做了前半部分，产正随机数我会的，用rnd就ok了，就是逆序输出不知道怎么用了，请指教。。。。
2.输入一个数字（1-7），分别通过select语句和choose函数两种方法用英文显示对应的是星期一~~星期日。
谢谢各位了。。。
1.随机产生一个3位正整数，然后逆序输出，产正的随机数与逆序数同时显示。例如，产生735，输出是537
PS：这道题做了前半部分，产正随机数我会的，用rnd就ok了，就是逆序输出不知道怎么用了，请指教。。。。
2.输入一个数字（1-7），分别通过select语句和choose函数两种方法用英文显示对应的是星期一~~星期日。
谢谢各位了。。。
1题
Private Sub Command1_Click()
a = Int((999 - 100 + 1) * Rnd + 100)
Dim str As String
For i = 3 To 1 Step -1
str = str & Mid(a, i, 1)
Next
Print a; str
End Sub
2题
用select
Private Sub Command1_Click()
a = InputBox("请输入一个1到7的整数")
If a < 1 Or a > 7 Then MsgBox "输入数有问题，重新来": Exit Sub
Select Case (a)
Case 1: MsgBox "Monday"
Case 2: MsgBox "Tuesday "
Case 3: MsgBox "Wednesday "
Case 4: MsgBox "Thursday "
Case 5: MsgBox "Friday "
Case 6: MsgBox "Saturday "
Case 7: MsgBox "Sunday "
End Select
End Sub
用choose
Private Sub Command1_Click()
a = InputBox("请输入一个1到7的整数")
If a < 1 Or a > 7 Then MsgBox "输入数有问题，重新来": Exit Sub
b = Choose(a, "Monday", "Tuesday", " Wednesday", "Thur