早教吧作业答案频道 -->数学-->
vb!输入一个四位数,求四个数字之和,判断和是不是质数
题目详情
vb!输入一个四位数,求四个数字之和,判断和是不是质数
▼优质解答
答案和解析
Private Sub Command1_Click()
a=cint(inputbox("输入一个四位数"))
if a9999 then msgbox a & "不是四位数!":exit sub
for i=1 to 4
b=b+val(mid(a,i,1))
next
print "四个数字之和=";b
for i=2 to a-1
if a mod i=0 then exit for
next
if i
a=cint(inputbox("输入一个四位数"))
if a9999 then msgbox a & "不是四位数!":exit sub
for i=1 to 4
b=b+val(mid(a,i,1))
next
print "四个数字之和=";b
for i=2 to a-1
if a mod i=0 then exit for
next
if i
看了 vb!输入一个四位数,求四个...的网友还看了以下：
两位数的十位数字为6,如果把十位数字与个位数字对调,那么所得的两位书与原来的两位数之比是七分之四, 2020-05-13 …
180×九分之二表示把（）看作单位1,平均分成（）份,表示这样的（）份,即求（）的（）是多少一袋米 2020-05-13 …
几道应用题 一个两位数 十位数字比个位数字少3 两个数字之和等于这两位数的四分之一.求这个两位数. 2020-05-16 …
四位同学做红花,甲做的是其他三位做的总数的一半.乙做的是其他三位做的总数的三分之一,丙做的是其他三 2020-06-14 …
、一个四位正整数N,它的前两位的平方加上后两位的平方等于它本身,求N.如12332、有四个三位自然 2020-06-23 …
100*3\4表示求（?）,4\5*2\1表示求（?）请尽快,偶的意思：一百乘四分之三是表示求一百 2020-07-08 …
4分位数怎么求哪位大神可以给我详细说一下4分位数的具体求法.我举一个例子.这里有313233474 2020-07-17 …
1.一个两位数,它的十位上的数字比个位上的数字小3,十位上的数字与个位上的数字之和等于这个两位数的四 2020-11-06 …
有一物体做单向直线运动,前四分之一的位移平均速度为V,全程平均速度为四分之一V,求后四分之三位移平均 2020-11-28 …
小明去甲、乙、丙三个单位应聘,其被录用的概率分别为三分之二,四分之三,二分之一.（各单位是否录用他相 2020-12-22 …