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 ??
１ ２ ３ ４ ５ ６ ７ ８ ９ ８ ７ ６ ５ ４ ３ ２ １
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