《Visual Basic程序设计基础》习题 文理学院

Print s End Sub

2．【程序说明】下列程序求两个正整数m、n的最大公约数。 Private Sub Form_Click()

Dim m As Integer, n As Integer, r As Integer

m = InputBox(\请输入M的值：\请输入N的值：\ Print m; \和\的最大公约数是：\ r = m Mod n

Do Until （1）

m = n: n = r: r = （2） Loop Print n End Sub

3.【程序说明】下列程序用来在窗体上输出如图10-3所示的数据。 Private Sub Form_Click()

Dim a(5, 5) As Byte, i As Byte, j As Byte For i = 1 To 5 For j = 1 To 6 - i a(i, j) = ⑴ Next j, i For i = 2 To 5

For j = ⑵ To 5 a(i,j) = j + i - 6 Next j, i For i = 1 To 5 For j = 1 To 5

Print a(i,j); Next j ⑶ Next i End Sub

4．【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。

Private Sub Form Click()

Dim a(30) As byte, i as Byte, j As Byte, m As Byte For i = 1 To 30: a(i) = ⑴ : Next i For i = 1 To 29 For j = ⑵

图10-3

1 2 3 4 5 2 3 4 5 2 3 4 5 1 2 4 5 1 2 3 5 1 2 3 4

If a(i) > a(j) Then

m = a(i): ⑶ :a(j) = m End If Next j,i

For i = 1 To 30

If ⑷ Then Print a(i); Next i End Sub 六、程序设计题

1．用InputBox函数输入3个任意整数，按从大到小的顺序输出。 2．编程，输入x值，按下式计算并输出y值。

?x?3?2?xy?f(x)???x?0?3．编程，在窗体上输出九九乘法表。

x?31?x?3 0?x?1x?04．计算下式的和，变量x与n的数值用输入对话框输入。

xx2x3xns????...?2!3!4!(n?1)!5．用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。

1111 e?1????...?1!2!3!n!

6．编程，输入n（n为1位正整数），输出n+1层的杨辉三角形。如n为6时，输出结果如图10-4所示。

图10-4

第5章 常用控件

习 题

一、判断题

1．命令按钮不但能响应单击事件，而且还能响应双击事件。

2．如果命令按钮Default属性为True，那么任何时候按Enter键都相当于单击该命令按钮。 3．标签控件和文本框控件都能用来输入和输出文本。

4．虽然标签控件显示的文本在运行时不能编辑，但是可以通过程序代码进行改变。 5．SetFocus方法是把焦点移到指定对象上，使对象获得焦点，该方法适用于所有控件。 6．文本框控件常用事件有Change事件、KeyPress事件等，此外它也支持鼠标的Click事件和DblClick事件。

7．运行时，控件的位置可以通过程序代码改变Left和Top属性来定位，也可以直接用鼠标拖动控件来定位。

8．要在文本框中输入6位密码，并按回车键确认，则文本框的MaxLength属性可设置为6。 9．要使输入文本框的字符始终显示“#”，则应修改其PasswordChar属性为“#”。 10．在窗体上建立的控件的标题文字或显示内容的默认字体为窗体字体。 11．单选钮控件和复选框控件都具有Value属性，它们的作用完全一样。 12．单选钮能响应Click事件，但不能响应KeyPress事件。

13．使用单选钮控件数组时，它们响应同一个Click事件，由Index参数值来区分不同的按钮。 14．复选框不支持鼠标的双击事件，如果双击则系统会解释为两次单击事件。

15．设置框架时，可先在窗体上画好框架，再往框架内添置控件；也可以先设计控件，再建立框架，然后将已有控件拖动到框架中。

16．移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。 17．当列表框Style属性设置为1时，复选框将显示在列表框中，支持多选，所以可以将MultiSelect属性值设置为0、1、2中任意一个值。

18．当列表框中表项太多、超出了设计时的长度时，Visual Basic会自动给列表框加上垂直滚动条。

19．列表框和文本框一样均没有Caption属性，但都具有Text属性。

20．从几十个项目中任选其中一项或多项时可选用列表框或组合框控件来实现。 21．将组合框的Style属性设置为0时，组合框称为“下拉式组合框”，其选项可以从下拉列表框的列表项中选择，也可以由用户输入。

22．可以通过合理设置组合框的MultiSelect属性使组合框支持简单复选或扩展复选。 23．滚动条控件可作为用户输入数据的一种方法。

24．用户可拖动滚动条的滚动滑块来改变滚动条的Value值，在移动滚动滑块时，发生

Change事件。

25．由于定时器控件在运行时是不可见的，因此在设置时可将其放在窗体的任何位置。 二、选择题

1．标签控件的标题和文本框控件的显示文本的对齐方式由 C 属性来决定。 A、WordWrap A、Enabled A、Text A、SetDate A、Index A、Text A、Enabled A、AutoSize A、Text4 A、SelText A、True A、Appearance A、文本框 A、Selected A、方法

B、AutoSize C、Alignment D、Style B、Value C、Default D、Cancel B、Caption

C、Left D、Name

2．将命令按钮Command1设置为窗体的取消按钮，可修改该控件的 D 属性。 3．下列 B 属性用来表示标签或窗体的标题。

4．将焦点主动设置到指定的控件或窗体上，应采用 B 方法。

B、SetFocus C、SetText D、GetGata B、TabIndex C、TabStop

D、SetFocus

5．按Tab键时，焦点在各个控件之间移动的顺序是由 B 属性来决定的。 6．下列 C 属性用来表示各对象（控件）的位置。

B、Caption C、Left D、Name B、Locked C、Visible D、MultiLine B、MultiLine C、Alignment D、Visible B、\ C、Locked D、Name B、SelLength C、Text D、Caption B、False C、0 D、1 B、Style

C、Enabled D、TabIndex

7．当文本框的 B 属性设置为True时，在运行时文本框不能编辑。

8．要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置 B 属性。 9．文本框控件Text4的Text属性默认值为 B 。 10．文本框中选定的内容，由下列 A 属性来反映。 11．选中复选框控件时，Value属性的值为 D 。

12．要使复选框控件不响应Click事件，可设置复选框的 C 属性。 13．若要在同一窗体中安排两组单选钮，可用 B 控件予以分隔。

B、框架 C、列表框 D、组合框 B、List C、Text D、Caption B、对象 C、属性 D、事件

14．列表框的 B 属性返回或设置列表框中各列表项的文本。 15．List1.Clear中的Clear是 A 。

16．以下 D 语句将删除列表框List1中的最后一项。 A、List1.RemoveItem List1.ListCount B、List1.Clear

C、List1.List(List1.ListCount-1)= \ D、List1.RemoveItem List1.ListCount-1