【vb精品源码栏目提醒】:网学会员为需要vb精品源码的朋友们搜集整理了大一VB程序考试题 - 其它资料相关资料,希望对各位网友有所帮助!
1、求100以内的素数。
Private Sub Form_ClickDim i jFor i 2 To 100For j 2 To i - 1If i Mod j 0 Then Exit ForNext jIf j i Then Print iNext iEnd Sub2、从键盘输入任意长度的字符串,要求将字符顺序倒置,例如,将输入的“ABCDEFG”变换成“GFEDCBA”。
Private Sub Command1_ClickDim a I c d na InputBox输入字符串n LenaFor I 1 To Intn 2c Mida I 1Mida I 1 Mida n - I 1 1Mida n - I 1 1 cNext IPrint aEnd Sub3、计算0200之间所有能被11或5整除的数之和Private Sub Form_ClickDim n in0For i 1 To 200If i Mod 11 0 Or i Mod 5 0 Thenn niEnd IfNext iPrint nEnd Sub (判断闰年的条件是:年份能被4整除但不能被100整除,或者能被4004、输入一年份,判断它是否为闰年,并显示有关信息。
整除)Private Sub Command1_ClickDim yy InputBox请输入年数If y Mod 4 0 And y Mod 100 0 Or y Mod 400 0 ThenMsgBox y 年是闰年ElseMsgBox y 年是平年End IfEnd Sub5、已知 xyz 3个变量中存放了3个不同的数,比较它们的大小并进行调整,使得 x z Then t x: x z: z tIf y z Then t y: y z: z tPrint 排序后 x y zEnd Sub ,6、求 saaaaaa...aaaaa(n 个 a)其 中 a 和 n 的值随机产生,a 的范围是19的整数,n 的范围是510。
如 a3n6则s333333333333333333333。
编程确定 n 和 a 的值,并计算 s。
Private Sub Form_ClickDim s t i a na IntRnd 9 1n IntRnd 6 5t 0: s 0Print a a n nFor i 1 To nt t 10 asstPrint tNext iPrintPrint s sEnd Sub7、计算100300之间所有能被3和7整除的数之和。
Private Sub Form_ClickFor i 100 To 300If i Mod 21 0 ThenssiPrint iEnd IfNext iPrintPrint s sEnd Sub8、编程求200--400范围内5的倍数或7的倍数之和。
一个数如果同时是7和5的倍数,则只能加一次。
Private Sub Command1_ClickDim s1s2s3iS10S20For i200 to 400If i mod 5 0 or i mod 70 thens1s1iEnd ifNext iFor i200 to 400If i mod 5 0 or i mod 70 thens2s2iEnd ifNext iS3s1-s2Print s3End sub9、找出被3、5、7除,余数为1的最小的5个正整数。
Private Sub Command1_ClickDim CountN nCountN 0n1Don n1If n Mod 3 1 And n Mod 5 1 And n Mod 7 1 ThenPrint nCountN CountN 1End IfLoop Until CountN 5End Sub10、某次歌曲大奖赛,有7个评委。
如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分。
Private Sub Command1_ClickDim mark max min aver iaver 0For i 1 To 7mark InputBox输入第 i 位评委的打分If i 1 Thenmax mark: min markElseIf mark min Then min markIf mark max Then max markEnd Ifaver aver markNext iaver aver - min - max / 5Print averEnd Sub11、编程显示100500之间所有的水仙花数之和。
水仙花数是3位数,其各位数之和等于该数本身Private Sub Form_ClickDim i s s1 s2 s3 aa0For i 0 To 400s 99 is1 s Mod 100 10s2 s Mod 10s3 s 100If s1 3 s2 3 s3 3 s ThenasaEnd IfNext iPrint aEnd Sub12、随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。
例如,产生246,输出是642。
Dim a m b c dPrivate Sub Form_Clicka IntRnd 900 100Print ad a Mod 10 100b a Mod 100 - a Mod 10c a 100mcbdPrint mEnd Sub13、从键盘输入三角形的三条边 a,b,c 的值,根据其数值,判断能否构成三角形。
Private Sub Form_ClickDim a b ca ValInputBoxinput ab ValInputBoxinput bc ValInputBoxinput cIf a b c And a c b And b c a ThenMsgBox 能构成三角形ElseMsgBox 不能构成三角形End IfEnd Sub14、已知数组 a,编程删除 a 中第5个元素。
数组 a 中的元素分别为12,6,4,89,75,63,100,20,31。
Private Su