UC知道寻找VB答案,急急急~~~~~~~~~
来源：百度知道 编辑：UC知道 时间：2024/05/06 11:21:37
二、填空题（每小题2分，共20）
(1) Visual Basic表达式：Sin(x)*Exp(x)+2*x^2, 它相当于代数式【 1 】(2) 标签框所显示的内容由【 2 】属性值决定。
(3) 在VB中，若要产生一消息框，则可用语句【 3 】来实现。
(4) 22.3 Mod 3.8 的结果为 【 4 】
(5) Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是【 5 】
(6) 下面的程序是判断一个正整数（≥3）是否为素数 ，但程序不完整，请在【 6 】、【 7 】处将程序补充完整。
Dim n As Long
Dim i As Long
Dim k As Integer
n = InputBox("输入一个正整数（≥3）：")
i = 2
k = Int(n/2)
Do While 【 6 】
If n Mod I = 0 Then
Exit Do
Else
i = i + 1
End If
Loop
If【 7 】Then
Print n; "是素数"
Else
Print n; "不是素数"
End If
(7)下面的程序用“冒泡”法将数组numbe中的10个整数按升序排列，请在
【8】、【9】、【10】处将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim number As Variant
number = Array(333, 5, 2, 99, 26, 8, 1,
(1) Visual Basic表达式：Sin(x)*Exp(x)+2*x^2, 它相当于代数式【 1 】(2) 标签框所显示的内容由【 2 】属性值决定。
(3) 在VB中，若要产生一消息框，则可用语句【 3 】来实现。
(4) 22.3 Mod 3.8 的结果为 【 4 】
(5) Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是【 5 】
(6) 下面的程序是判断一个正整数（≥3）是否为素数 ，但程序不完整，请在【 6 】、【 7 】处将程序补充完整。
Dim n As Long
Dim i As Long
Dim k As Integer
n = InputBox("输入一个正整数（≥3）：")
i = 2
k = Int(n/2)
Do While 【 6 】
If n Mod I = 0 Then
Exit Do
Else
i = i + 1
End If
Loop
If【 7 】Then
Print n; "是素数"
Else
Print n; "不是素数"
End If
(7)下面的程序用“冒泡”法将数组numbe中的10个整数按升序排列，请在
【8】、【9】、【10】处将程序补充完整。
Option Base 1
Private Sub Command1_Click()
Dim i As Integer, j As Integer, t As Integer
Dim number As Variant
number = Array(333, 5, 2, 99, 26, 8, 1,
这就是VB编程考试吗?
帮你做一题吧：编程题第二题：
加入一个命令按钮：command1
下面是代码：
Private Sub Command1_Click()
Dim x(20) As Integer'这里的20可以随意写，但一定要大于你想要的答案个数！不过,整数的范围有限
Dim d As Integer
For d = 0 To 19
If d <= 1 Then
x(d) = 0 + 1'这里是算前两位的，也可以写"=1"，因为反正前两位都是1！不过,整数的范围有限
Print x(d);
ElseIf d > 1 Then
x(d) = x(d - 1) + x(d - 2)
Print x(d);
End If
Next d
End Sub
这一题我用了两个公式，分两步来解，不用一个公式是因为我觉得我的数学太差了！想不出怎么用一个公式把它们算出来，因为开头有两个1！呵呵。