vb 随机产生20个三位正整数存入一维数组A中,找出其中升序数,回文数
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/30 16:25:02
vb 随机产生20个三位正整数存入一维数组A中,找出其中升序数,回文数
定义两个function过程,来判断一个数是否为回文数、升序数.
定义两个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
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 "其中有升序数:";
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 "其中有回文数:";
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
vb 随机产生20个三位正整数存入一维数组A中,找出其中升序数,回文数
VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且
用随机函数产生10个不大于100的整数存入一维数组A中,并找出这数组中被3除后余2的数
VB计算:随机产生20个1~100的正整数放入数组中,显示产生的数,并求出其最大值
找出所有4位数的升序数和回文数,使用函数实现回文数和升序数的判断.用VB编程,马上啊.
求一VB代码,用数组保存随机产生的10个介于20到50之间的整数,编程求出其中的最大数、最小数和平均值,并
随机产生300个1000以内的正整数,求出素数个数找出其中素数并按升序排列
Vb 随机函数产生20个10到50之间的数,放入数组,并且计算所有20个随机整数的平均值并输出
编写一个C程序,输入8个整数放入一维数组w中,找出其中的最小数和 最大数,并将它们分别与数组
将30个整数存放于一维数组a中,把其中所有能同时被3和7整除的数依次存入数组b,并按每行最多3个元素格式输出b
vb随机产生10个两位数随机正整数,求其中素数之和(用过程实现判断一个数是否是素数)
随机产生20个1-50的之间的正整数放入数组A中,输入这组随机数.