vb 随机产生20个三位正整数存入一维数组A中,找出其中升序数,回文数定义两个function过程,来判断一个数是否为回文数、升序数.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/15 02:15:52
![vb 随机产生20个三位正整数存入一维数组A中,找出其中升序数,回文数定义两个function过程,来判断一个数是否为回文数、升序数.](/uploads/image/z/4017160-64-0.jpg?t=vb+%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F20%E4%B8%AA%E4%B8%89%E4%BD%8D%E6%AD%A3%E6%95%B4%E6%95%B0%E5%AD%98%E5%85%A5%E4%B8%80%E7%BB%B4%E6%95%B0%E7%BB%84A%E4%B8%AD%2C%E6%89%BE%E5%87%BA%E5%85%B6%E4%B8%AD%E5%8D%87%E5%BA%8F%E6%95%B0%2C%E5%9B%9E%E6%96%87%E6%95%B0%E5%AE%9A%E4%B9%89%E4%B8%A4%E4%B8%AAfunction%E8%BF%87%E7%A8%8B%2C%E6%9D%A5%E5%88%A4%E6%96%AD%E4%B8%80%E4%B8%AA%E6%95%B0%E6%98%AF%E5%90%A6%E4%B8%BA%E5%9B%9E%E6%96%87%E6%95%B0%E3%80%81%E5%8D%87%E5%BA%8F%E6%95%B0.)
vb 随机产生20个三位正整数存入一维数组A中,找出其中升序数,回文数定义两个function过程,来判断一个数是否为回文数、升序数.
vb 随机产生20个三位正整数存入一维数组A中,找出其中升序数,回文数
定义两个function过程,来判断一个数是否为回文数、升序数.
vb 随机产生20个三位正整数存入一维数组A中,找出其中升序数,回文数定义两个function过程,来判断一个数是否为回文数、升序数.
Private Sub Command1_Click()
Dim a%(0 To 19), b%(0 To 19), hwsN%, sxsN%
Dim sxsbz As Boolean, hwsbz As Boolean
Print "随机产生20个三位正整数如下:";
For i = 0 To 19
Randomize
a(i) = Int(Rnd * 900 + 100)
If i Mod 5 = 0 Then Print
Print a(i);
Next i
Print
Print "其中有升序数:";
For i = 0 To 19
Call sxs(a(i), sxsbz)
If sxsbz Then
Print a(i);
sxsN = sxsN + 1
End If
Next i
Print sxsN & "个.";
Print
Print "其中有回文数:";
For i = 0 To 19
Call hws(a(i), hwsbz)
If hwsbz Then
Print a(i);
hwsN = hwsN + 1
End If
Next i
Print hwsN & "个."
End Sub
Private Function sxs(n As Integer, bz As Boolean) '判断所给n是不是升序数,是的话,bz返回true,否返回false
Dim a%, b%, c%, tmp%
tmp = Trim(Str(n))
a = Mid(tmp, 1, 1)
b = Mid(tmp, 2, 1)
c = Mid(tmp, 3, 1)
If (a < b) And (b < c) Then bz = True Else bz = False
End Function
Private Function hws(n As Integer, bz As Boolean) '判断所给n是不是回文数,是的话,bz返回true,否返回false
If Trim(Str(n)) = Trim(StrReverse(Str(n))) Then bz = True Else bz = False
End Function