VB编程题及答案

VB编程问题求一千以内的素数。2 .需要从键盘输入任意长度的字符串，使字符顺序相反。 例如，将输入的“ABCDEFG”转换为“GFEDCBA”。计算3，0到200之间所有数量的和，可以被11或5除尽4 .输入年份，判断是否是闰年，并显示信息。 (用于确定闰年的条件可以被4除尽，但不能被100除尽，或可以被400除尽)5、在已知的x、y、z这3个变量中存储3个不同的整数，将它们的大小进行比较，并调整为x 0 Or n Mod 400=0 Theni=1End IfIf i=1 ThenPrint n 是闰年ElsePrint n 是平年End If日本职业足球联赛5 .已知在x、y、z这3个变量中存储有3个不同的变量，将它们的大小进行比较，并调整为x y Theni=xx=yy=iEnd IfIf x z Theni=xx=zz=iEnd IfIf y z Theni=yy=zz=iEnd Ifprintx y z日本职业足球联赛6 .求出s=aaaaa.AAAA (n个a )，随机产生a和n的值，a的范围是 1，9 的整数，n的范围是 5，10 。 如果a=3，n=6，则s=3333333333333333。 程序确定n和a的值，并计算s。私有子命令1 _ click ()Dim c(1 To 10 )、a%、n%、s#、i%、m#n=Int(Rnd * 6 5 )a=Int(Rnd * 9 1 )m=ac(1)=mFor i=1 To 10c(i)=mm=10 * m a下一步s=c(1) c(2) c(3) c(4)For i=5 To ns=s c(i )下一步Print a= a， n= n， s= s日本职业足球联赛计算100到300之间所有数字的和，可以被3除以7。.私有子命令1 _ click ()Dim s%，i%s=0For i=100 To 300If i Mod 3=0 Or i Mod 7=0 Thens=s iEnd If下一步Print s= s日本职业足球联赛8编程求出200-400范围内的5的倍数或7的倍数的和。 (如果一个数是7和5的倍数，则只能加1次。 中所述情节，对概念设计中的量体体积进行分析.私有子命令1 _ click ()Dim s1%、s2%、s3%、i%s1=0s2=0For i=200 To 400If i Mod 5=0 Or i Mod 7=0 Thens1=s1 iEnd If下一步For i=200 To 400if I mod5=0和I mod7=0thens2=s2 iEnd If下一步s3=s1 - s2Print s3日本职业足球联赛9 .找到馀数除以3、5、7的最小5个正整数。. Private Sub Form_Click ()Dim t%For i=0 To 500if imod5=1and imod7=1and imod3=1thenprinti；下一步日本职业足球联赛10某曲大奖赛有7名评委。 分别输入7个评估人的情况用除去一个最高得分和一个最低得分的计算方法，求某参加者的平均得分。.私有子命令1 _ click ()Dim a(6)，imin！ imax！ I！j%、n%、t%、k%、f%a (0)=val (inputbox ( a (0)a (1)=val (inputbox ( a (1)a (2)=val (inputbox ( a (2)a (3)=val (inputbox ( a (3)a (4)=val (inputbox ( a (4)a (5)=val (inputbox ( a (5)a (6)=val (inputbox ( a (6)For i=0 To 6imin=iFor j=i 1 To 6If a(j) a(imin) Then imin=jNext jt=a(i )a(i)=a(imin )a(imin)=t下一步a(i - 1)=0For k=0 To 6imax=kFor f=k 1 To 6If a(f) a(imax) Then imin=f下一步t=a(k )a(k)=a(imax )a(imax)=t下一代ka(k - 1)=0n=(a (0) a (1) a (2) a (3) a (4) a (5) a (6) )/5Print n日本职业足球联赛11、主题编程显示100500之间所有水仙花数之和。 (水仙花的数量是3位数，其各位数之和等于其数量本身)私有子表单_单击()Print 100500之间所有水仙花的数量为“”Dim x%，a%，b%，c%For x=100 To 500a=x Mod 10b=(x Mod 100) 10c=x 100If x=a 3 b 3 c 3 Then Print x下一代x日本职业足球联赛12问题随机生成3位正整数，按相反顺序输出，与生成的数相反顺序的数同时显示。 举例来说，可生