Question

计算机VB有15道题有哪位大神能帮忙做一下啊！！万分感谢！！

（1）设有如下的Visual Basic表达式：
5 * x^2 - 3 * x - 2 * Sin(a)/3
它相当于代数式【1】 。
（2）执行下面的程序段后，s的值为 【2】 。
s = 5
For i = 2.6 To 4.9 Step 0.6
　s = s+1
Next i
（3）在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
　a = InputBox("请输入一个整数")
　b = InputBox("请输入一个整数")
　Print a + b
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【5】 。
(4) 执行下面的程序段后，b的值为【6】 。
a=300
b=20
a=a+b
b=a-b
a=a-b
(5) 以下程序段的输出结果是【7】 。
num=0
While num<=2
num=num+1
Print num
Wend
(6) 在窗体画一个命令按钮，然后编写如下过程：
Function fun(ByVal num As Long)As Long
　Dim k As Long
　k=1
　num=Abs(num)
　Do While num
　　k=k*(num Mod 10)
　　num=num\10
　Loop
　fun=k
End Function

Private Sub Command1_Click()
　Dim n As Long
　Dim r As Long
　n=InputBox("请输入一个数")
　n=CLng(n)
　r=fun(n)
　Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为【12】 。
(7) 如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为【13】 。
(8) 假定建立了一个工程，该工程包括两个窗体，其名称(Name 属性)分别为Form1和Form2，启动窗体为Form1。在Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，请在【14】和【15】处将程序补充完整。
Private Sub Command1_Click()
【15】 Form1
Form2. 【16】
End Sub

Answer 1

第一问：

第二问： s=9

第三问：777

第五问：依次输出 1 2 3

第六问：24

第七问：-

第八问：Unload       Show