VB输任意1个不超过9位的正整数,求该整数的全部数字组成的同样位数最大正整数、最小数 结果放text中
来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/13 23:23:59
VB输任意1个不超过9位的正整数,求该整数的全部数字组成的同样位数最大正整数、最小数 结果放text中
Private Sub Command1_Click()
Dim a() As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim n As Integer
Dim s As String
Dim max As String
Dim min As String
s = Text1
n = Len(s)
ReDim a(1 To n) As Integer
For i = 1 To n
a(i) = Val(Mid(s,i,1))
Next i
For i = 1 To n
For j = 1 To n - i
If a(j) < a(j + 1) Then
k = a(j)
a(j) = a(j + 1)
a(j + 1) = k
End If
Next j
Next i
For i = 1 To n
max = max & a(i)
min = a(i) & min
Next i
Text2 = max
Text3 = min
End Su
Dim a() As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim n As Integer
Dim s As String
Dim max As String
Dim min As String
s = Text1
n = Len(s)
ReDim a(1 To n) As Integer
For i = 1 To n
a(i) = Val(Mid(s,i,1))
Next i
For i = 1 To n
For j = 1 To n - i
If a(j) < a(j + 1) Then
k = a(j)
a(j) = a(j + 1)
a(j + 1) = k
End If
Next j
Next i
For i = 1 To n
max = max & a(i)
min = a(i) & min
Next i
Text2 = max
Text3 = min
End Su
VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.
任取一正整数,求该数的平方的末位的数字是1的概率 任取一非负整数 求该数平方的末位数是1的概率 注意对比
输入一个任意6位正整数,求出由该数各位数字组成的最大值和最小值.
输入一个6位正整数,求出由该数各位数字组成的最大数.c语言
在5--9的5个数字中,任意选择三个数,组成最大的数和最小的数,然后两数相减,并把结果的三个数重新组成一个最大的数和最小
在有理数中,最小的正整数是什么?,最大的负整数?,绝对值最小的数是?
任取一正整数,求该数的平方的末位的数字是1的概率
VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数
pascal输入一个n位的正整数,输出由这n个数字组成的最大正整数.
一个n位正整数,它由1、2...n这n个数字排列而成,如果它的前K个数字组成的k位数能被k整除,就称n位幸运数.问这样的
输入一个正整数,输出由该数的各位能表示的最大数和最小数.(提示:首先将正整数分拆得到各个位上的数字
输入一个N位高精度的正整数,去掉其中任意K个数字后剩下的数字按原左右次序组成一个新的正整数.