vb编程题目及答案解析？vb课后题答案第二版
大家好，如果您还对vb编程题目及答案解析不太了解，没有关系，今天就由本站为大家分享vb编程题目及答案解析的知识，包括vb课后题答案第二版的问题都会给大家分析到，还望可以解决大家的问题，下面我们就开始吧！
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编程题目
2、
(1)
穷举法，列出从1000到9999所有的4位数，分别测试其是否等于所分两个两位数和的平方。
(2)
计算结果：
2025=(20+25)^2
3025=(30+25)^2
9810=(98+10)^2
(3)
代码如下：
Private Sub Command1_Click()
For i= 1000 To 9999
If((i\ 100)+(i Mod 100)) ^ 2= i Then
Print i;"=("; i\ 100;"+"; i Mod 100;")^2"
End If
Next i
End Sub
3、
(1)
穷举法，列出从1001到29999所有的自然数，分别测试其是否能同时被32和47整除。
(2)
由于47是质数，所以判断这个数是否能被32和47的最小公倍数1504整除，如果能整除那么这个数能同时被32和47整除。
代码如下：
For i= 1001 To 29999
a= 32* 47
If i Mod a= 0 Then
Print i
End If
Next i
(3)
计算结果：
1504 3008 4512 6016 7520 9024 10528 12032 13536 15040 16544 18048 19552 21056 22560 24064 25568 27072 28576
================
希望对你有所帮助！
一道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编程题目及答案解析和vb课后题答案第二版的问题到这里结束啦，希望可以解决您的问题哈！