选择题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
我靠 你搞什么
试题啊!!帮你做下呵!! 分给我!!
正在学习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
以后再做