Question

请VB(visual basic)大侠进入~!急!请教vb题目

1.在语句Public Sub Sort(i As Integer)中的 i 是一个按____传递的参数。
(A) 地址 (B) 值 (C) 变量 (D) 常量
2. 下列函数中____的值与其他三个的不一样。
(A) Val ("-1") (B) Round (-0.9) (C) Int (-0.9) (D) Fix (-0.9)
3. 使某菜单项能够通过按住键盘上的Alt键及K键打开，应该在菜单编辑器中设置____。
(A) 在“名称”栏中“K”字符前加上“&”
(B) 在“标题”栏中“K”字符前加上“&”
(C) 在“名称”栏中“K”字符后加上“&”
(D) 在“标题”栏中“K”字符后加上“&”
4. 列表框List1的最后一个数据项可以用____来表示。
(A) List1.List (List1.ListCount) (B) List1.List (List1.ListCount-1)
(C) List1.List (ListCount) (D) List1.List (ListCount-1)

1、 . 窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。完成下列事件代码过程，使单击“测试”按钮时，隐藏“显示”按钮。
Private Sub cmdTest_Click ()
_____(1)______
End Sub
2. 窗体中有图像框Image1，完成下列事件过程代码，使单击Image1时，Image1移到窗体中心。
Private Sub Image1_Click ()
Image1. ___ (2)___ = (Form1.ScaleWidth - Image1.Width) \ 2
Image1.Top = ___ (3)___
End Sub
3. 窗体中有图片框（Picture1）和计时器（Timer1）两个控件。完成下列事件代码过程，使运行程序时，将指定图片加载到图片框里，然后图片框以每2秒钟一次的速度向窗体的右下角移动（每次向右移动100个twip，同时向下移动100个twip）。
Private Sub Form_Load ()
Picture1.Picture = ___ (4)___ ("c:\white.bmp")
Timer1.Interval = ___ (5)___
End Sub

Private Sub Timer1_Timer ()
Picture1.Move ___ (6)___ , ___ (7)___
End Sub

4. 用公式可以计算π的近似值。请完成下列程序，编写函数Pi（n）求π的近似值，并调用该函数求n＝100时π的近似值。
Function Pi (ByVal n As Integer) As Double
Dim i As Integer
Pi = 0
For i = 1 To n
Pi = Pi + ___ (8)___
Next i
Pi =___ (9)___
End Function

Private Sub Form_Click ()
Print "n=100时，π的近似值为："; ___ (10)___
End Sub
5输入任意一个整数x，将其插入到一个按升序排列的整数数组中，并保证数组在插入之后仍按原来的升序排列，请填写完整程序。
Const n = 9
Private Sub Form_Click()
Dim a
Dim i As Integer, j As Integer, x As Integer
____(11)____ = Array(1, 3, 4, 5, 9, 15, 22, 28, 30, 60)
x = InputBox("输入一个整数x：")
ReDim Preserve a(n + 1)
For i = n To 1 ____(12)____
If ____(13)____ Then
a(i + 1) = a(i)
Else
____(14)____
Exit For
End If
Next i
If i < 1 Then ____(15)____
End Sub

1、 编写程序，使得单击窗体时，产生10个值为100－400之间（含100和400）的随机整数，用冒泡法将10个数从小到大排序后，显示在窗体上。
2. 编写一个函数过程，实现判断一个数字是否素数。

Answer 1

选择题ADBB

填空
1. cmdDisplay.visible=false
2. left
3. (Form1.ScaleHeight - Image1.Height) \ 2
4. loadpicture
5. 2000
6. Picture1.Left+100
7. Picture1.Top+100
8. (-1)^(i-1) / (2*i-1)
9. Pi * 4
10. Pi(100)
11. a
12. Step –1
13. x < a(i)
14. a(i + 1) = x
15. a(1) = x

习题1

Private Sub Form_Click()
Dim a(10) As Integer
Print "随机生成10个数字为："
For i = 1 To 10
a(i) = 100 + Int(301 * Rnd)
Print a(i)
Next
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next
Next
Print "排序后为："
For i = 1 To 10
Print a(i)
Next
End Sub

习题2

Function Prime(ByVal n As Integer) As Boolean
Dim i As Integer
For i = 2 To Int(Sqr(n))
If n Mod i = 0 Then Prime = False: Exit Function
Next i
Prime = True
End Function

Private Sub Form_Click()
Print Prime(100)
Print Prime(7)
End Sub

Answer 2

我靠 你搞什么
试题啊!!帮你做下呵!! 分给我!!
正在学习VB朋友进60350564呵
一起交流学习呵
正在学这呵!!!
我是个鸟儿呵!! 有困难互相帮助!!!
你跟我一样 在学这呵
1.在语句Public Sub Sort(i As Integer)中的 i 是一个按___A_传递的参数。
(A) 地址 (B) 值 (C) 变量 (D) 常量
2. 下列函数中__B_的值与其他三个的不一样。
(A) Val ("-1") (B) Round (-0.9) (C) Int (-0.9) (D) Fix (-0.9)
3. 使某菜单项能够通过按住键盘上的Alt键及K键打开，应该在菜单编辑器中设置____。
(A) 在“名称”栏中“K”字符前加上“&”
(B) 在“标题”栏中“K”字符前加上“&”
(C) 在“名称”栏中“K”字符后加上“&”
(D) 在“标题”栏中“K”字符后加上“&”
4. 列表框List1的最后一个数据项可以用__B__来表示。
(A) List1.List (List1.ListCount) (B) List1.List (List1.ListCount-1)
(C) List1.List (ListCount) (D) List1.List (ListCount-1)

1、 . 窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。完成下列事件代码过程，使单击“测试”按钮时，隐藏“显示”按钮。
Private Sub cmdTest_Click ()
cmdDisplay1.enable=false
End Sub

以后再做