VB程序设计练习题附加答案

Dim n, i, t As Long n = Val(Text1.Text) i = 1: t = 1 If n < 0 Then

Label2.Caption = \ ElseIf n = 0 Then

Label2.Caption = \ Else

Do While i <= n t = t * i i = i + 1 Loop

Label2.Caption = n & \ End If End Sub

13、参考代码如下:

Private Sub Form_Load()

Dim Prev, Last, NewOne, sum As Long Dim i As Integer

Prev = 0: Last = 1: sum = Prev + Last For i = 3 To 20

NewOne = Prev + Last sum = sum + NewOne Prev = Last Last = NewOne Next i

Label1.Caption = \第20项为\

第 46 页 共 32 页

Label2.Caption = \前20项的和为\End Sub

第四章 常用控件与窗体

一、填空题

1、AddItem 2、窗体、控件 3、StartUpPostion 4、form1.hide 5、sorted、ture 6、text1、tabindex、0 7、chr(10) 8、timer 9、interval

10、scroll和change事件 11、mousepointer

12、selected、text、list1.text、removeitem 2*i-1、x,2*i-1 13、change、value、scrol、value 14、List 15、Checked 16、keypress 17、组合框 18、Form2.Show 1 19、Click(或鼠标单击)

二、选择题

1、C 2、B

第 47 页 共 32 页

3、A 4、C 5、A 6、A 7、C 8、A 9、C 10、B 11、C 12、C 13、A 14、D 15、A 16、A 17、D 18、D 19、D 20、A 21、C 22、B

三、简答题

1、单选按钮用来显示一个可以打开或关闭 选项,而且在同一组中的单选按钮控件,用户只能选择其中的一项。

2、主要是用鼠标拖动滑块时对Value属性的影响不同。

3、快捷键是执行某一个菜单项的键盘命令,常用形式Ctrl+字母,访问键是打开一个菜单的键盘命令,常用形式Alt+字母。 4、Scroll事件

第 48 页 共 32 页

5、MenuItem.Enabled=False 6、Interval属性

7、单选按钮用于只能选择一个的情况下,复选框(即检查框)用于可以选择多个的情况下 8、为一个菜单项设置热键时需要在相应字符前面加&,设置快捷键需要在菜单编辑器中选择

9、菜单的形式有两种:下拉式菜单和弹出式菜单

10、在KeyPress事件中,若想取消用户刚输入的字符,只要将该事件的参数设置为0即可 11、框架主要是用作容器,可以实现多组单选按钮,并且可以美化界面 12、250

13、在一个窗体的程序代码中可以访问另一个窗体上控件的属性,在访问时只要写上窗体名称即可

14、先建立框架,然后再在其中建立控件 15、下拉式组合框、简单组合框、下拉式列表框

四、读程序题

1、输出结果为:

498 5

2、结果如下:

14

五、编程题

1、参考代码如下:

Private Sub Form_Load() Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer() Txttime.text = Time End Sub

第 49 页 共 32 页

2、参考代码如下:

Private Sub Command1_Click() Dim Char As String * 1 Char = Trim(Text1.Text)

Text2.Text = Text2.Text & Spc(5) & Char & _ Spc(10) & Str(Asc(Char)) & chr(13)&chr(10) Text1.SetFocus Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text) End Sub

3、具体代码略。 4、具体代码略。 5、具体代码略。 6、具体代码略。 7、具体代码略。

六、程序分析填空题

1、结果如下:

Private Sub btnCut_Click() ?请补充

Str1 = text1.selText text1.selText = “” End Sub 2、结果如下:

Private Sub Form_Load()

Dim sum,count as Integer ?请补充 Sum = 0 第 50 页 共 32 页

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4