vb程序:输入一个三位正整数,分别计算并输出其各个数位上的字.

如题所述

第1个回答 2016-03-19

国际化放技能和刚才你

第2个回答 2015-04-10

Private Sub Command1_Click()
Do
x = CInt(InputBox("请输入一个3位整数："))
Loop While x < 0 Or x > 999
a = x \ 100
b = x \ 10 Mod 10
c = x Mod 10
MsgBox (a & "+" & b & "+" & c & "=" & a + b + c)
End Sub本回答被网友采纳

相似回答

在VB里输入一个三位数,然后在三个框里分别显示出它的百位,十位和个位...答：private form1_click()dim K as integer K=val(intputbox("请输入一个三位数："))text1.text=k \ 100 text2.text=(K\10) mod 10 text3.texK mod 10 end sub

VB编程,设计一个程序,在文本框里输入一个三位数,单击窗体,在窗体中输出...答：Private Sub Form_Click() Dim a As Integer, b As Integer, i As Integer If Text1 <> "" Then a = Val(Text1) If a < 100 Or a > 999 Then GoTo 1234 Else1234 MsgBox "请在文本框中输入一个三位数字!", vbOKOnly + vbCritical Text1.Text = "" Text...

vb如何随机生成一个三位正整数,单击窗体,分别输出其百位、十位和个位...答：Randomize x = Int(Rnd * 900) + 100 MsgBox "随机生成的三位正整数是" & x & vbCrLf & "百位数是" & x \ 100 & vbCrLf & "十位数是" & x \ 10 Mod 10 & vbCrLf & "个位数是" & x Mod 10 End Sub

用vb编程在文本框输入一个三位数,单击窗体后,在窗本打印输出该数的个...答：VB内置的常用函数里就有这个功能 mid函数:比如你在text1中输入的三位数是123 a=text1.text text2.text=mid(a,1,2)这时输出的字符是1和2,含义是从第一个字符开始的前两个字符,再比如是mid(a,1,3)意思就是从第一个开始的前三个字符,要实现你要求的功能就是text2.text=mid(a,1,1)+" ...

求编一个VB程序?输入一个三位整数,然后将它反向输出?答：可以参考下面的代码：private sub command1_click()x=inputbox("输入一个三位数")X1=X\100 'x1=三位数的百位 X2=(X-X1*100)\10 '十位 X3=X-X1*100-X2*10 '个位 msgbox X3&X2&X1 end sub

输入一个三位数,分别求出百,十,个位数各为多少?vb语言程序设计答：private sub command1_click()a=val(inputbox("输入一个三位数"))if a>=100 and a<=999 then print "百位数: "; a\100 print "十位数: "; a\10 mod 10 print "个位数: "; a mod 10 else print a; "不是三位数！"end if end sub ...

VB编程:输入一合法的3位正整数,先后逆序输出并显示。如:输入“128...答：注意只是用第一行第一列的单元格说明，代码如下：Private Sub CommandButton1_Click()Dim i As IntegerDim s As String s = ActiveSheet.Cells(1, 1) If IsNumeric(s) = True Then s = StrReverse(s) MsgBox s '或者 ActiveSheet.Cells(1, 1)= s Else MsgBox "Is n...

大家正在搜

下列程序的功能是将输入的正整数下面程序的功能是在输入一批正整数下面程序是从键盘输入4位正整数 c语言输入整数输出每一位对任意一个整数序列反序输出编程计算并输出一元二次方程一个c程序只能有一个主函数输入两个正整数a和b c语言输入数字颠倒整数