VB输任意1个不超过9位的正整数,求该整数的全部数字组成的同样位数最大正整数、最小数 结果放text中

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/28 22:41:11
VB输任意1个不超过9位的正整数,求该整数的全部数字组成的同样位数最大正整数、最小数 结果放text中

VB输任意1个不超过9位的正整数,求该整数的全部数字组成的同样位数最大正整数、最小数 结果放text中
VB输任意1个不超过9位的正整数,求该整数的全部数字组成的同样位数最大正整数、最小数 结果放text中

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 Sub

VB输任意1个不超过9位的正整数,求该整数的全部数字组成的同样位数最大正整数、最小数 结果放text中 VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数 VB随机产生10个任意的两位正整数存放在一维数组中,求数组的最大值、平均值、能实现将数据升序排列,并且 VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数. VB 最大公约数和最小公倍数.编写2个函数,分别求两个正整数的最大公约数和最小公倍数,用户任意输入两个数,采用函数嵌套调用,该函数将它们在窗体显示.注意:要采用函数嵌套调用 随机生成20个100以内的两位正整数,统计其中有多少个不相同的数?(求VB编程答案!)要写清界面搭建过程! 给定正整数k(1≤k≤9),令KKKK(n个)表示各位数字均为k的十进制n位正整数给定正整数k(1≤k≤9),令kkkk(n个)表示各位数字均为k的十进制n位正整数,若对任意正整数n,二次函数F(X)满足F(kkkk(n个 求4个不超过70000的正整数,且每个正整数约数多于100个 js验证非0开头的不超过6位的正整数,求正则表达式 用VB编写函数过程,求任意正整数各位数字之和是用VB编写啊, 求四个不超过70000的正整数,每一个正整数的约数的个数多于100个. VB 求两个正整数的最大公约数 任取一正整数,求该数的平方的末位的数字是1的概率 VB求输入任意一个正整数,若该数不是一个素数,则找出一个大于它的最小素数.[分析]1:在文本框Text1中输入一个正整数,并将其赋值给N.2:判断N是否是素数,若是素数,则在文本框Text2显示N是素数, VB 生成四位正整数随机数,公式没错却会产生三位数是为什么呢VB 生成四位正整数随机数,用Text1.Text = Str(Int(Rnd * 9999 - 1000 + 1) + 1000),却会产生三位的正整数是为什么? 大学VB编程题:输出两位正整数中个位数是3的素数,并求这些素数的个数. VB有一个三位数abc和a 的积为一个四位正整数baac,编程求这一个三位数 关于c语言超长正整数相加的问题,.设某机器表示的正整数不超过5位十进制数字.试采用顺序表表示任意长的正整数,并设计计算两个正整数之和的程序.要求:1、存储结构采用顺序结构.2、要求