VB语言程序设计试题库(4)

2019-04-08 17:31

For i = 1 To m X＝（6） Next i fact = x End Function

Private Sub Form_Click()

Dim e As Single, item As Single Dim n As Integer e = 1: n= （7） Do

n = n + 1 item= （8） e = e + item Loop While （9）

程序填空题答案：⑴、1000 ⑵、Timer1. Enabled= True或 Time1＝ True ⑶、0 ⑷、x\\ 3600 ⑸、x Mod 60 ⑹、x*I ⑺、0 ⑻、1/fact(n) ⑼、Abs(item)>=0. 00000001 八、1. 分别写出下面两段程序执行三次后的结果。 Private Sub

Dim i, j As Integer

Form_Click()

Private Sub

Dim i As Integer

Form_Click()

Static j As Integer

j = j + 1

i = i + 1

Print \Str(i),

End Sub

End Sub 参考答案： 1

I=1

左:

j=1

右: I=1

j=1

I=1 I=1

j=2 j=3

I=2 I=3

j=2 j=3

九. 写出下面程序执行后的结果（其中在Form_Click()事件中调用了子过程Proc）。 Private Sub Form_Click() Dim x, y As Integer Dim u, v As Integer x = 1 y = 2 u = 3 Proc x, y u = u + x + y

Print \End Sub

Private Sub Proc(ByVal a As Integer, ByRef b As Integer) Dim u As Integer a = a + 1 b = b + 1

u = u + a + b

Print \End Sub

程序阅读题答案： 2

a=2 x=1

b=3 y=3

u=5 y=5

十．用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。

注：程序写在命令按钮Commandl的Click事件中。

答案程序如下：

Private Sub Command1_Click() Dim x As Single

x = Val(InputBox(\请输入数据\

Select Case x Case Is > 10

y = Sqr(x) + Sin(x) Case 10 y = 0 Case Else

y = 2 * x ^ 3 + 6 End Select Print \End Sub

十一．共用户界面如下图所示，用于实现左右两个组合框中数据的左移和右移功能。程序开始运行时，在左边组合框中生成10个

由小到大排列的随机3位正整数（假设在设计阶段该组合框的Sorted属性值已设置为True，现要求完成：

⑴、单击“＞＞”按钮，左边组合框中的10个数全部移到右边组合框中，并由大到小排列，同时使“＜＜”按钮能响应， “＞＞”按钮不能响应。

⑵、单击“＜＜”按钮，右边组合框中的10个数全部移到左边组合框中，并由小到大排列，同时使“＞＞”按钮能响应， “＜＜”按钮不能响应。

⑶、单击“结束”按钮，结束程序运行。

用户界面

部分程序代码如下： Private Sub Form_load() Dim i As Integer

Label1.Caption = \组合框 1\ Label2.Caption = \组合框 2\ CmdRight.Caption = \＞＞\ CmdRight.Enabled = True CmdLeft.Caption = \＜＜\ CmdLeft.Enabled = False cmdExit.Caption = \结束\ ComboLeft.Text = \ For i = 1 To 10

ComboLeft.AddItem Int(Rnd * 900) + 100 Next i

ComboRight.Text = \End Sub

请分别编写3个命令按钮的单击事件。答案程序如下：

Private Sub cmdExit_Click() End End Sub

Private Sub CmdLeft_Click() Dim i As Integer, last As Integer last = ComboRight.ListCount - 1 For i = 0 To last

ComboLeft.AddItem ComboRight.List(0) ComboRight.RemoveItem 0 Next i

CmdLeft.Enabled = False CmdRight.Enabled = True End Sub

Private Sub CmdRight_Click() Dim i As Integer, last As Integer

last = ComboLeft.ListCount - 1 For i = 0 To last

ComboRight.AddItem ComboLeft.List(last - i) ComboLeft.RemoveItem last - i Next i

CmdLeft.Enabled = True CmdRight.Enabled = False End Sub

共4页:

VB语言程序设计试题库(4).doc 将本文的Word文档下载到电脑下载失败或者文档不完整，请联系客服人员解决！

下载这篇word文档