计算机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

第一问:

第二问: s=9

第三问:777

第五问:依次输出 1 2 3

第六问:24

第七问:-

第八问:Unload       Show

温馨提示:内容为网友见解,仅供参考
无其他回答
相似回答