vb第三部分 练习题 下载本文

Private Sub Commandl_Click()

Dim a$,I%,c$,d$ A=InputBox$(“输入字符串”) n= Len(“A”) For I = 1 To int(n\\2) c=Mid(a,i,1)

Mid(a,i,1)= Mid(a,I,1)&c a =c Next I Print a End Sub

17.找出被3、5、7除,余数为1的最小的5个正整数。

Private Sub Commandl_Click()

Dim CountN%.n% CountN=0 n=1 Do n=n+1

If n mod 3=1 and n mod 5 =1 and n mod 7 =1 Then Print n

CountN=CountN+1 EndIf

Loop until CountN=5 End Sub

18.某次比赛,有七个评委打分,如下程序对一名参赛者,输入七个评委的打分分数,去掉一个最高分、一个最低分后,求出平均分为该参赛者的得分。

Private Sub Command1_Click() Dim mark!, aver!, i%, max1!, min1! aver = 0 For i = 1 To 7

mark=InputBox(\输入第\位评委的打分\ If i = 1 Then

maxl = mark: Else

If mark < min1 Then Min1=mark ElseIf mark > maxl Then Max1=mark End If End If Aver=aver+mark Next i

aver = (aver-min1-max1) /5 Print aver End Sub

19.由键盘输入一个正整数,找出大于或等于该数的第一个质数。 Private Sub Commandl_ Click()

Dim m%,x%,Tag As Boolean Tag=False

x=InputBox(”输入正整数”) Do While Not Tag

m=2:Tag=

Do While Tag And(m<(x、2))

If X Mod m=0 Then Else Loop

If Not Tag Then x=x+1

Loop Print x End Sub

20.将一个正整数分解为质因数乘积。例如,234=2*3*3*13。 Private sub CommaIldl一Click()

Dim n%.Factor%,First As BooleaJl n=InputBox(“输人一个正整数”) Factor=2 First=True Do

Do While ’内循环考虑到有多个相同的质因数

If First Then

Print n;”=”;Factor; Else

Print ”*”;Factor; End If First=False Loop

Factor=Factor+1

Loop Until Factor > n End Sub 三、编程题

1.编写程序计算1+4+7+?+100。 Private Sub Command1_Click() Dim i, s As Integer For i = 1 To 100 Step 3 s = s + i Next i MsgBox s End Sub

2.一个两位数,其十位数字与个位数字对调得到的数称为其对调数。给定一个两位数56,请找另一个两位的正整数,使得这两个数的和等于各自对调数之和。

3 一个球从100m高度自由下落,每次落地后反弹回原高度的一半,再落下。求它在第10次落地时,共经过多少米?落地10次反弹高度多少?

4 猴子吃桃问题。有一群猴子吃桃,第一天吃了总数的一半又多吃了一颗,第二天吃了剩下的一半又多吃了一颗,第三天如此,??直到第九天,第十天还未吃却只有一个桃子,求原来有多少桃子?

5.给定三角形的3条边长,计算三角形的面积。编写程序,首先判断给出的3条边能否构成三角形,如可以构成,则计算并输出该三角形的面积,否则要求重新输入。当输入-1时结束程序。

6.勾股定理中3个数的关系是:a2+b2=c2。编写程序,输出30以内满足上述关系的整数组合,例如3、4、5就是一个整数组合。

7.分别按以下要求计算ex=1+x/1!+x2/2!+x3/3!+??+xn/n!+??的值(X的值由文本框输入)。 (1)直到第21项。

(2)直到最后一项小于等于10-6。 8. 编写程序,打印如下图的“数字金字塔”: 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 ??

1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1

9 单击命令按钮,随机产生100个[100,999]之间的三位数,显示在文本框中,并判断这些三位数中的素数,显示到第二个文本框中。

10.编程实现单击相应的命令按钮输出对应的图案如图所示。

图5.1 打印图案界面 练习题四

一、问答题

1、单文档窗体(SDI)和多文档窗体(MDI)区别是什么? 2、简述普通Windows下的窗口主要组成。

3、简述键盘事件中的KeyPress事件、 KeyDown事件和KeyUp事件。

4、简述鼠标事件中的CLICK、DBLCLICK、MOUSEMOVE、MOUSEDOWN、MOUSEUP事件。 5、简述标签框与文本框的主要用途以及二者之间的区别。 6、简述Line、Shape、Image和PictureBox图像控件。

二、单选题

1. 窗体Forml的(A)属性可以用于取消窗体Forml的的控制菜单和所有的控制按钮。 A. ControlBox

B. MinButton

C. MaxButton

D. BorderStyle

2. 判断窗体Forml当前所处状态,可通过访问窗体Forml的( D )属性来实现。 A. ControlBox

B. MinButton

C. MaxButton

D. WindowState

3. 若要使窗体Forml启动时,位于屏幕的中央,则可窗体Forml的( C)属性来设置。 A. Top

B. Left

C. StartUpPosition

D. WindowState

4. 若要禁止窗体Forml被移动,则可设置窗体Forml的( B )属性为False来实现。 A. Move

B. Moveable

C. Minbutton

D. ControlBox

5. 命令按钮Command1的标题欲做快捷键的字母,可通过在其前加上一个( B )符号来设置。 A. \\<

B. &

C. _

D. \\>

6. 若要将命令按钮Command1设置为默认按钮,则可设置命令按钮Command1d的( C )属性为True

来实现。 A. Value

B. Cancel

C. Default (默认)

D. Enabled

7. 若要设置光标停留在命令按钮Command1的提示文字,则可通过它的(D )属性来设置。 A. Caption

B. Text

C. Value

D. ToolTipText