VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/10/01 11:12:14
VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数
Option Explicit
Private Sub Form_click()
Dim n$,ns() As Byte,temp%,i%,j%
n = InputBox("请输入一个不超过9位的正整数",,Int(1000000000 * Rnd))
If Len(n) > 9 Then MsgBox "超过9位",vbCritical:Exit Sub
ns = StrConv(n,vbFromUnicode):Me.Cls
Print "您输入的数是:"; n:Print
For i = 0 To UBound(ns) - 1
For j = i To UBound(ns)
If ns(i) < ns(j) Then temp = ns(i):ns(i) = ns(j):ns(j) = temp
Next j,i
n = StrConv(ns,vbUnicode)
Print "得到的最大数是:"; n:Print
Print "得到的最小数是:"; StrReverse(n) ';Val(StrReverse(n))
n = StrReverse(n)
If Len(Trim(Str(Val(n)))) < Len(n) Then
i = Len(n) - Len(Trim(Str(Val(n))))
n = Mid(n,i + 1,1) & String(i,"0") & Mid(n,i + 2)
Print:Print "--------处理前面的0后------------"
Print "得到的最小数是:"; n
End If
End Sub
Private Sub Form_Load()
Randomize:Me.AutoRedraw = True
Call Form_click
End Su
Private Sub Form_click()
Dim n$,ns() As Byte,temp%,i%,j%
n = InputBox("请输入一个不超过9位的正整数",,Int(1000000000 * Rnd))
If Len(n) > 9 Then MsgBox "超过9位",vbCritical:Exit Sub
ns = StrConv(n,vbFromUnicode):Me.Cls
Print "您输入的数是:"; n:Print
For i = 0 To UBound(ns) - 1
For j = i To UBound(ns)
If ns(i) < ns(j) Then temp = ns(i):ns(i) = ns(j):ns(j) = temp
Next j,i
n = StrConv(ns,vbUnicode)
Print "得到的最大数是:"; n:Print
Print "得到的最小数是:"; StrReverse(n) ';Val(StrReverse(n))
n = StrReverse(n)
If Len(Trim(Str(Val(n)))) < Len(n) Then
i = Len(n) - Len(Trim(Str(Val(n))))
n = Mid(n,i + 1,1) & String(i,"0") & Mid(n,i + 2)
Print:Print "--------处理前面的0后------------"
Print "得到的最小数是:"; n
End If
End Sub
Private Sub Form_Load()
Randomize:Me.AutoRedraw = True
Call Form_click
End Su
输入一个任意6位正整数,求出由该数各位数字组成的最大值和最小值.
输入一个6位正整数,求出由该数各位数字组成的最大数.c语言
VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.
VB输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数
pascal输入一个n位的正整数,输出由这n个数字组成的最大正整数.
输入一个正整数,输出由该数的各位能表示的最大数和最小数.(提示:首先将正整数分拆得到各个位上的数字
输入一个正整数,找出大于该数的最小素数
vb输入一个正整数,若该数不是一个素数,则找出一个大于它的最小素数
输入一个N位高精度的正整数,去掉其中任意K个数字后剩下的数字按原左右次序组成一个新的正整数.
求:编写程序,输入一个正整数,统计该整数的位数并计算其各个数位上的数字之和.
VB 随机输入一个3位数正整数,然后逆序输出,产生的随机数与逆序数同时显示
请输入任意一个正整数n,求出该数字为几位数字.