vb编程题及答案？高中vb编程例题讲解
大家好，今天来为大家分享vb编程题及答案的一些知识点，和高中vb编程例题讲解的问题解析，大家要是都明白，那么可以忽略，如果不太清楚的话可以看看本篇文章，相信很大概率可以解决您的问题，接下来我们就一起来看看吧！
vb题答案!(内部)
1.编程在窗体上输出101~500之间的所有能被3或者7整除的奇数，按照一行5个的方式输出并最后符合要求的数的和。
解：代码为
Private Sub form_load()
Show
Dim n, sum As Integer
Print Spc(6);"101~500之间的所有能被3或者7整除的奇数,及各数的和"
i= 0
sum= 0
For n= 101 To 500 Step 2
If n Mod 3= 0 Or n Mod 7= 0 Then
sum= sum+ n
i= i+ 1
Print Spc(6); n;
If i Mod 5= 0 Then
End If
End If
Next n
Print Spc(7);"sum="; sum
End Sub
2.在4个TextBox中输入4个大小不同的数，将它们从大到小排序后的结果用Msgbox函数输出。
解：代码为
Private Sub Command1_Click()
Dim a!, b!, c!, d!
a= Val(Text1.Text)
b= Val(Text2.Text)
c= Val(Text3.Text)
d= Val(Text4.Text)
If a<> b And b<> c And c<> d And a<> c And a<> d And b<> d Then
If a< b Then
t= a: a= b: b= t
End If
If a< c Then
t= a: a= c: c= t
End If
If b< c Then
t= b: b= c: c= t
End If
If d> a Then
t= d: d= a: a= t
End If
If d> b Then
t= d: d= b: b= t
End If
If d> c Then
t= d: d= c: c= t
End If
MsgBox"从大到小排序："& a&","& b&","& c&","& d
Else
MsgBox"有相同的数"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
3.在TextBox任意输入x的值，将f(x)输出的结果用Msgbox函数输出。
解：代码为
Private Sub Command1_Click()
Dim x As Double
x= Val(Text1.Text)
If x< 0 Then
If x=-3 Then
MsgBox"f(x)="& x ^ 2- x- 1
Else: MsgBox"f(x)="& x ^ 2+ x- 6
End If
End If
If x>= 0 Then
If x< 10 And x<> 2 And x<> 3 Then
MsgBox"f(x)="& x ^ 2- 5* x+ 6
Else: MsgBox"f(x)="& x ^ 2- x- 1
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub
4.找到10000到99999中的所有回文数，并按照一行10个的格式在窗体上输出，例如12321是回文数，个位与万位相同，十位与千位相同。
解：代码为
Private Sub Form_Load()
Show
Dim x, a, b, c, d, e As Integer
Print Spc(25);"所有的五位回文数："
i= 0
For x= 10000 To 99999
a= x\ 10000
b=(x-(a* 10000))\ 1000
c=(x-(a* 10000)-(b* 1000))\ 100
d=(x-(a* 10000)-(b* 1000)-(c* 100))\ 10
e= x-(a* 10000)-(b* 1000)-(c* 100)-(d* 10)
If a= e And b= d And c<> a And c<> b And a<> b Then
Print Spc(5); x;
i= i+ 1
If i Mod 10= 0 Then
End If
End If
Next
End Sub
5.在窗体上输出所有的“水仙花数”，并按照一行5个的格式输出。所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1*1*1＋5*5*5＋3*3*3。
解：代码为
Private Sub form_load() Show Dim a, b, c, i As Integer Print Spc(10);"水仙花数" For i= 100 To 999 a= i Mod 10 b= i\ 100 c=(i- b* 100)\ 10 If a ^ 3+ b ^ 3+ c ^ 3= i Then Print i; Space(2); If(i+ 1) Mod 5= 0 Then Print End If End If Next i End Sub
6.编程找出满足下列条件的所有四位数并在窗体上按照一行10个的形式输出：该数第一、三位数字之和为10，第二、四位数字之积为12。
解：代码为
Private Sub Form_Load()
Dim i As Integer, a(1 To 4) As Integer, j As Integer
j= 0
Show
For i= 1000 To 9999
a(1)= i Mod 10
a(2)=((i- a(1))/ 10) Mod 10
a(3)=((i- i Mod 100)/ 100) Mod 10
a(4)=((i- i Mod 1000)/ 1000) Mod 10
If(a(4)+ a(2)= 10 And a(1)* a(3)= 12) Then
Print Tab((j Mod 10+ 1)* 7);
Print i;
j= j+ 1
If(j Mod 10= 0) Then Print
End If
Next
End Sub
7.编写一个程序，在2个TextBox中输入某人的身高（cm）和体重（kg），按下式确定其体重是否为标准、过胖或过瘦，将结果用Msgbox输出。（1）标准体重=身高-110；（2）超过标准体重5kg为过胖；（3）低于标准体重5kg为过瘦。
解：代码为
Private Sub Command1_Click()
Dim a, b, c As Single
a= Val(Text1.Text)
b= Val(Text2.Text)
c= a- 110
If b- c> 5 Then
MsgBox"体重过胖"
ElseIf c- b> 5 Then
MsgBox"体重过痩"
ElseIf c- b<> 5 Or c- b= 5 Then
MsgBox"标准体重"
End If
End Sub
Private Sub Command2_Click()
End
End Sub
8.在TextBox中输入一个正整数n，计算的值并在窗体上输出结果。
解：代码为
Private Sub Command1_Click()
Dim n, f, s, i As Integer
n= Val(Text1.Text)
f= 1
s= 0
For i= 1 To n
f= f* i
s= s+ f/(i+ 2)
Next i
Label2.Caption="S="& s
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
End Sub
9.已知abcd+dcba=3456，其中a，b，c，d均为一位正整数，编程求出满足条件的a，b，c，d所有组合，在Label上输出答案。
解：代码为
Private Sub Command1_Click()
Dim a, b, c, d, i As Integer
i= 0
For a= 0 To 9
For b= 0 To 9
For c= 0 To 9
For d= 0 To 9
If(a* 1000+ b* 100+ c* 10+ d+ d* 1000+ c* 100+ b* 10+ a= 3456) Then
Label1.Caption="a="& a&","&"b="& b&","&"c="& c&","&"d="& d
i= i+ 1
Else
Label1.Caption="没有这样的数"
End If
Next
Next
Next
Next
End Sub
10.编程输出所有满足如下条件的三位正整数：它是某整数的平方，它的三位数码有两位是相同的，在窗体上按照一行5个的格式输出。（如100是10的平方，它有两个0，225是15的平方，它有两个2）。
解：代码为
Private Sub Form_Load()
Show
Dim x, a, b, c, m As Integer
Print Tab(10);"所有的三位数："
i= 0
For x= 100 To 999
For m= 10 To 32
a= x\ 100
b=(x-(a* 100))\ 10
c= x-(a* 100)-(b* 10)
If a= b Or b= c Or c= a Then
If x= m* m Then
Print Spc(5); x;
i= i+ 1
If i Mod 5= 0 Then
End If
End If
End If
Next m
Next x
End Sub
11.求这样一个四位数并输出该数字，该四位数等于其每位数字的阶乘之和。即：
abcd= a!+ b!+ c!+ d!，将结果用Msgbox函数输出。
解：代码为
Private Sub Command1_Click()
Dim i As Integer, a(1 To 4) As Integer, j As Integer
j= 0
For i= 1000 To 9999
a(1)= i Mod 10
a(2)=((i- a(1))/ 10) Mod 10
a(3)=((i- i Mod 100)/ 100) Mod 10
a(4)=((i- i Mod 1000)/ 1000) Mod 10
If(i= fact(a(1))+ fact(a(2))+ fact(a(3))+ fact(a(4))) Then
MsgBox("其中一个四位数为："& i)
j= j+ 1
End If
Next
If j= 0 Then MsgBox("无结果")
End Sub
Private Function fact(n As Integer) As Long
Dim i As Integer
f= 1
For i= 1 To n
f= f* i
Next
fact= f
End Function
12.输出所有大于1010的4位偶数，且该类偶数的各位数字两两不相同，在窗体上按照一行5个的格式输出。
解：代码为
Private Sub form_load()
Show
Dim a, b, c, d As Integer
Print Tab(20);"所有的四位数："
i= 0
For x= 1010 To 9999 Step 2
a= x\ 1000
b=(x-(a* 1000))\ 100
c=(x-(a* 1000)-(b* 100))\ 10
d= x-(a* 1000)-(b* 100)-(c* 10)
If a<> b And b<> c And c<> a And a<> d And b<> d And c<> d Then
Print Spc(5); x;
i= i+ 1
If i Mod 5= 0 Then
End If
End If
Next
End Sub
13.求1-2!+3!-4!...序列，当最后的结果超过2000000停止计算，将该序列的最结果用Msgbox函数输出。
解：代码为
Private Function m(n As Double) As Double
Dim i As Double
f= 1
For i= 1 To n
f= f* i
Next
m= f
End Function
Private Sub Command1_Click()
Dim i As Integer, b As Double, j As Double
b= 0
i= 1
j= 1
Do While(b< 2000000)
b= b+ i* m(j)
j= j+ 1
i= i*(-1)
Loop
MsgBox("结果为："& b)
End Sub
14.一位司机酒驾撞人逃跑。现场三人目击事件，但都没记住车号，只记下车号的一些特征。甲说：牌照的前两位数字是相同的；乙说：牌照的后两位数字是相同的；丙是位数学家，他说：四位的车号刚好是一个整数的平方。请根据以上线索求出车号。（车号为4位正整数，结果在TextBox中输出）
解：代码为
Private Sub Form_Load()
Dim i As Integer, j As Integer, a(1 To 4) As Integer
j= 0
Show
For i= 1000 To 9999
a(1)= i Mod 10
a(2)=((i- a(1))/ 10) Mod 10
a(3)=((i- i Mod 100)/ 100) Mod 10
a(4)=((i- i Mod 1000)/ 1000) Mod 10
If(Sqr(i)- Fix(Sqr(i))= 0) Then
If(a(1)= a(2) And a(3)= a(4)) Then
Text1.Text= i
End If
End If
Next
End Sub
15.用户利用InputBox函数随机输入12个0－100之间的整数，统计出小于60，60到70，70到80，80到90以及90到100范围的整数各有多少个？用Msgbox函数显示输出结果。
解：代码为
Private Sub Command1_Click()
Dim a(1 To 12) As Integer, b(1 To 5) As Integer, i As Integer
For i= 1 To 12
a(i)= Val(InputBox("请输入第"& i&"个数"))
Next
For i= 1 To 12
Select Case a(i)
Case 0 To 59
b(1)= b(1)+ 1
Case 60 To 69
b(2)= b(2)+ 1
Case 70 To 79
b(3)= b(3)+ 1
Case 80 To 90
b(4)= b(4)+ 1
Case 90 To 100
b(5)= b(5)+ 1
Case Else
End Select
Next
MsgBox("小于60："& b(1)&"，60到70："& b(2)&"，70到80："& b(3)&"，80到90："& b(4)&"，90到100："& b(5))
End Sub
16.在TextBox中输入一个正整数n，当n的值为偶数时，求1-1/2-1/4-...-1/n序列的和，当n为奇数时，求1-1/3-1/5...-1/n序列的和，将结果用Msgbox函数输出。
解：代码为
Private Sub Command1_Click()
Dim a As Integer, b As Double, x As Double
a= Val(Text1.Text)
x= 1
Select Case a Mod 2
Case 0
For b= 2 To a Step 2
x= x- 1/ b
Next
Case 1
For b= 3 To a Step 2
x= x- 1/ b
Next
Case Else
End Select
MsgBox("结果为："& Format(x,"0.#####"))
End Sub
17.编制程序要求输入整数a和b，若a2+b2大于100，则输出a2+b2百位以上的数字，否则输出两数字之和。结果利用Msgbox函数输出。
解：代码为
Private Sub Command1_Click()
Dim a As Long, b As Long, s As Long, n As Long
a= Val(Text1.Text)
b= Val(Text2.Text)
s= a ^ 2+ b ^ 2
n= a+ b
If s> 100 Then
i= MsgBox("结果为："& Int(s/ 100))
Else: i= MsgBox("结果为："& n)
End If
End Sub
Private Sub Command2_Click()
End
End Sub
18.猜数游戏：由计算机随机产生一个2位正整数让人来猜，只能猜8次，如果人猜对了，则利用Msgbox函数显示计算机随机产生的该2位正整数并显示“You are so clever”，否则利用Msgbox函数给出提示，告诉人所猜的数是太大还是太小，直到人猜对为止，或者8次都猜不对给出提示“Game Over”。
解：代码为
Private Sub Command1_Click()
Dim a As Integer, b As Integer, i As Integer
Randomize
a= Fix(Rnd(Time)* 90)+ 10
For i= 1 To 8
b= Val(InputBox("请输入一个数"))
Select Case b
Case 0 To a- 1
MsgBox("太小了！")
Case a+ 1 To 100
MsgBox("太大了！")
Case a
MsgBox("You are so clever!")
Exit For
Case Else
MsgBox("输入错误！")
End Select
If(i= 8) Then MsgBox("GAME OVER!")
Next
End Sub
19.征兵的条件是：男性（sex）年龄（age）在18~20之间，身高（size）在1.65米以上；或者女性（sex）年龄（age）在16~18之间，身高（size）在1.60米以上。
用三个文本框控件分别输入性别、年龄、身高信息，根据这些信息判断是否符合征兵条件，用Msgbox函数输出结果。
解：代码为
Private Sub Command1_Click()
Dim i As String, j As Single, k As Integer
i= Text1.Text
j= Val(Text2.Text)
k= Val(Text3.Text)
Show
Print i
Select Case i
Case"男"
If(k>= 18 And k<= 20) Then
If(j> 165) Then
MsgBox("合格，符合征兵条件")
Else
MsgBox("不合格，不符合征兵条件")
End If
Else
MsgBox("不合格，不符合征兵条件")
End If
Case"女"
If(k>= 16 And k<= 18) Then
If(j> 160) Then
MsgBox("合格，符合征兵条件")
Else
MsgBox("不合格，不符合征兵条件")
End If
Else
MsgBox("不合格，不符合征兵条件")
End If
Case Else
MsgBox("输入错误！")
End Select
End Sub
Private Sub Command2_Click()
End
End Sub
20.求出1到1000之内能被5或13整除、但不能同时被5和13整除的所有整数，在窗体上按照一行5个的格式输出。
解：代码为
Private Sub Form_Load()
Show
Dim n As Integer
Print Spc(10);"1到1000之间能被5或13整除,但不能5和13同时整除的所有整数:"
i= 0
For n= 1 To 1000
If n Mod 5= 0 Or n Mod 13= 0 Then
If n Mod 65<> 0 Then
i= i+ 1
Print Spc(6); Format(n,"!@@@@");
If i Mod 5= 0 Then
End If
End If
End If
Next
End Sub
一道VB编程题
创建3个文本框，第一个输入年，第二个输入月，第三个输入日。
用year(now),month(now),day(now)分别返回当前年月日。
用year(now)-学生生日即可得到年龄，如果想要准确的周岁生日，再比较月，日就行了。
用inputbox也可以
a=inputbox("输入学生生日-年"）
b=inputbox("输入学生生日-月"）
c=inputbox("输入学生生日-日"）
x=year(now)-a'x即为学生年龄，如果想算仔细一些的话，就要进行月，
日的比较
if b<month(now) then
print"该学生已经过了";x;"岁生日了"
elseif b=month(now) and c<day(now) then
print"该学生已经过了";x;"周岁生日了"
elseif b=month(now) and c=day(now) then
print"今天是xx同学";x;"周岁的生日"
else
print"该学生还不满";x;"周岁"
end if
VB编程题目求解
该工程文件中有两个窗体form1、form2，要求将form2设为启动窗体。运行时，单击form2上的“显示”按钮，则显示出form1窗体，单击form1的“隐藏”按钮，则form1窗体消失。
form2的“显示”按钮代码：
form1.Show
单击form1的“隐藏”按钮，则form1窗体消失。代码：
form1.hide
以下数列：1,1,2,3,5,8,13,21，……，的规律是从第3个数开始，每个数是它前面两个数之和。按如下界面设计，运行时，选中一个单选按钮后，单击“计算“按钮，则计算出上述数列的第n项的值，并显示在文本框中，n是选中的单选按钮后面的数值。（提示，计算结果较大，使用长整型变量）。
DimaAsLong'长整型变量
Dimi,j,k
i=1
j=1
a=0
Text1=""
IfOption1.Value=TrueThen'30
Fork=3To30
a=i+j
i=j
j=a
Nextk
Text1=""&a
ExitSub
EndIf
IfOption1.Value=1Then'33
Fork=3To33
a=i+j
i=j
j=a
Nextk
Text1=""&a
ExitSub
EndIf
IfOption1.Value=1Then'35
Fork=3To35
a=i+j
i=j
j=a
Nextk
Text1=""&a
ExitSub
EndIf
关于vb编程题及答案的内容到此结束，希望对大家有所帮助。