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编程题
创建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编程实现两个有序数组的合并，即二路归并
数组A和数组B分别记录有一些数据，这两个数组上的数据都已经由小到大按顺序排列好。请用vb编写一个程序把这此数据合并到同一个数组之中，并使得合并后的数据全部按由小到大排列。
这就是所谓的“二路归并”。在编写这个程序时先进行说明一下，首先，大量数据的输入用inputbox（）函数的方法显得很烦琐，特别在调试阶段，每次运行时都要输入一大堆数据。因此采用了ARRAY函数的输入方法。
为了使大量的数据在输出时看得清楚，我们在运行窗体上设置了一个文本框，并把文本框的属性MultiLine设为True，Scorllbars设为2（带竖直滚动条）。
Vb程序代码如下：
Private Sub Form_Click()
Dim a'定义了一个可变类型的数组
a= Array(1, 3, 5, 7, 9, 11)
Dim b
b= Array(2, 4, 6, 8, 10, 12, 14, 16, 18)
Dim c(1000)
pa= 0: pb= 0: pc= 0
ea= UBound(a)'可变数组A的下标的上界和下界可以用函数UBOUND()和LBOUND()得到（若没说明下标的下界一般是0）
eb= UBound(b)
Do Until pa> ea And pb> eb
If pa> ea Then ta= b(eb)+ 1 Else ta= a(pa)
If pb> eb Then tb= a(ea)+ 1 Else tb= b(pb)
If ta< tb Then
c(pc)= ta
pc= pc+ 1
If pa<= ea Then pa= pa+ 1
Else
c(pc)= tb
pc= pc+ 1
If pb<= eb Then pb= pb+ 1
End If
Loop
Print ea, eb, pc
Text1.Text="数组A的元素："& vbCrLf
For i= 0 To ea
Text1.Text= Text1.Text& a(i)&""
Next i
Text1.Text= Text1.Text& vbCrLf& vbCrLf&"数组A的元素："& vbCrLf
For i= 0 To eb
Text1.Text= Text1.Text& b(i)&""
Next i
Text1.Text= Text1.Text& vbCrLf& vbCrLf&"合并后B的元素："& vbCrLf
For i= 0 To pc
Text1.Text= Text1.Text& c(i)&""
Next i
End Sub
当然，你可以把这些数据全部复制到一个数组之中再使用一个排序算法来处理一次，但这样的话，原来两个数组已经分别排好的顺序就没有利用上，能否利用原来已经排好顺序的特点使得算法高效一些？
如果你还想了解更多这方面的信息，记得收藏关注本站。