VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数_作业帮
拍照搜题，秒出答案
VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数
VB输入任意一个不超过9位的正整数,求出由该整数的全部数字组成的同样位数的一个最大正整数与一个最小数
Option ExplicitPrivate Sub Form_click()Dim n$,ns() As Byte,temp%,i%,j%n = InputBox("请输入一个不超过9位的正整数",,Int( * Rnd))If Len(n) > 9 Then MsgBox "超过9位",vbCritical:Exit Subns = StrConv(n,vbFromUnicode):Me.ClsPrint "您输入的数是："; n:PrintFor i = 0 To UBound(ns) - 1For j = i To UBound(ns)If ns(i) < ns(j) Then temp = ns(i):ns(i) = ns(j):ns(j) = tempNext j,in = StrConv(ns,vbUnicode)Print "得到的最大数是："; n:PrintPrint "得到的最小数是："; StrReverse(n) ';Val(StrReverse(n))n = StrReverse(n)If Len(Trim(Str(Val(n)))) < Len(n) Theni = Len(n) - Len(Trim(Str(Val(n))))n = Mid(n,i + 1,1) & String(i,"0") & Mid(n,i + 2)Print:Print "--------处理前面的0后------------"Print "得到的最小数是："; nEnd IfEnd SubPrivate Sub Form_Load()Randomize:Me.AutoRedraw = TrueCall Form_clickEnd SubVB编程求解。一个两位正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，后者称为前者的_百度知道
VB编程求解。一个两位正整数，如果将它的个位数字与十位数字对调，则产生另一个正整数，后者称为前者的
Private Sub Form_Click()
Dim V1 As Integer, V2 As Integer
Form1.AutoRedraw = True
Do While V1 & 10 Or V1 & 99
V1 = Val(InputBox(&请输入一个两位正整数：&))
If V1 Mod 10 = 0 Then V1 = 0
&#39;如果要限制V1的个位数不能为0 则加上这句，否则请去掉这句
For V2 = 10 To 99
If V1 + V2 = Val(StrReverse(V1)) + Val(StrReverse(V2)) Then
If V2 Mod 10 & 0 Then
&#39;如果要限制V2的个位数不能为0 则加上这个条件，否则请去掉这个If条件
Print V1 & &+& & V2; &=& & Val(StrReverse(V1)) & &+& & Val(StrReverse(V2)) & &=& & V1 + V2
NextEnd Sub
其他类似问题
为您推荐：
1)*10 + left(a;))
a = int(a)
if len(a)&2 then exit sub
for i1 = 1 to 9
for i2 = 0 to 9
if i1*10 + i2 + a = dd(i1*10+i2) + dd(a)&end subfunction dd(a as integer) as integer
dd = right(a,i1*10+i2
out = true
nextif not out then print &没有找到数据&quotsub test
a = val(inputbox(&输入&quot
一、构建窗体（略）
二、单击窗体事件，编入程序：
Dim InputValue As Variant, A1 As Integer, A2 As Integer, B1 As Integer, B2 As Integer
Dim FindValue As Boolean
InputValue = InputBox(&请输入2位正整数：&, &输入&, InputValue)
If InputValue = && Then Exit Sub
If Not IsNumeric(InputValue) Or Int(InputValue) && InputValue Or InputValue & 99 Or InputValue & 10 Then
MsgBox &输入有误！请重新输入。&, vbCritical, &错误&
GoTo ReInput
A1 = Int(InputValue / 10): A2 = InputValue Mod 10
For B1 = 1 To 9
For B2 = 0 To 9
If InputValue + B1 * 10 + B2 = A2 * 10 + A1 + B2 * 10 + B1 Then
Print InputValue, B1 * 10 ...
vb编程的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB 查找所有满足条件的整数对：1）两个 是三位数 2）组成 的6 字各不相同 File Operate 文件操作 238万源代码下载-
&文件名称: VB
& & & & &&]
&&所属分类:
&&开发工具: Visual Basic
&&文件大小: 5 KB
&&上传时间:
&&下载次数: 4
&&提 供 者:
&详细说明：查找所有满足条件的整数对：1）两个整数都是三位数 2）组成两个整数的6为数字各不相同且都不是0 3）第二个数是第一个数的4倍-check interger
文件列表(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&VB\App.exe&&..\Form1.frm&&..\MSSCCPRJ.SCC&&..\工程1.vbp&&..\工程1.vbw&&VB
&相关搜索:
&输入关键字，在本站238万海量源码库中尽情搜索：vb6.0：程序运行时，在text1和text2中输入两个整数，单击command1，计算这两个整数的积，并在text3中显示_百度知道
vb6.0：程序运行时，在text1和text2中输入两个整数，单击command1，计算这两个整数的积，并在text3中显示
线等.Text = Val(Text1，求助我自己写的有问题啊啊啊啊.Text = Val(Text2.Text) * Val(Text1，可是我的财富值没有了T-T谁能好心帮个忙Private Sub command1_click()Text3.Text)End SubPrivate Sub Text2_click()Text2，是新手啊啊啊.Text = Val(Text2.Text)End SubPrivate Sub Text1_click()Text1
提问者采纳
exit&command1_click()if&exit&如果不是数字或为空;&nbsp.Text&nbsp.Text)End&nbsp，不继续Text3;isnumeric(text1.text=&quot.text)=Flase&nbsp.text=&or&then&nbsp.text)=Flase&=CInt(Text1;sub&如果不是数字或为空;text2;sub&nbsp.Text)*CInt(Text2;text1;&&nbsp：Private&&quot，不继续if&&#39;isnumeric(text2;Sub&then&nbsp代码如下;&#39;or&nbsp
提问者评价
其他类似问题
为您推荐：
其他1条回答
=&&&&&command1_click()&&Integer.Text)&As&Dim&&&&&&y&&=&&&&Integer&Then&&y&&&&&&x*y&y&&&&x&&Else&=&If&&&&&=&&&As&&&If&&x&Then&&&&&&&&Trim(Text1;&Trim(Text2Text)=&quot,&=&0&End&&End&&&Text3;If&&&nbsp.Text)=&&&&If&0&&&&&End&&Else&nbsp.Text&CInt(Text2;x&CInt(Text1;&&&&nbsp.Text)&nbsp只需要一个方法就可以啦Private&Sub&nbsp
vb6的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁某个三位整数位abc,请分解出该三位整数中的三个位数a、b、c.如“123”,分解后得到1、2、3的VB表达式_作业帮
拍照搜题，秒出答案
某个三位整数位abc,请分解出该三位整数中的三个位数a、b、c.如“123”,分解后得到1、2、3的VB表达式
某个三位整数位abc,请分解出该三位整数中的三个位数a、b、c.如“123”,分解后得到1、2、3的VB表达式
x=123a=val(left(x))b=val(mid(x,2,1))c=val(right(x,1))或者：a=int(x/100)b=int((x-a*100)/10)c=x-a*100-b*10}