*****
******* *********
66.该程序的功能是求出100到200之间的全部素数，并且按每行4个、每个数据之间有10个空格的格式输出。
67.如样张所示,当单击“显示”按钮时，在窗口中显示如张所示的“数字金字塔”。
68.猜数游戏：程序启动后Lable1和Lable2滚动显示属于[1，100]的随机整数，当用户单击\左大\或\右大\按钮时，滚动停止，如果用户猜对了，在Lable3中显示\猜对了\，否则显示\猜错了\。 69.求s=1!+3!+5!+7!，阶乘的计算用Function过程fact实现.
70.单击\开始\命令按钮，秒表开始计时，单击\结束\命令按钮， 秒表结束计时，并在标签框显示运行时间，如\运行了0小时2分10秒\。
71.本程序求3~100之间的所有素数（质数）并统计个数；同时将这些素数从小到大依次写入顺序文件c:\\dataout.txt；素数的个数显示在窗体Form1上。
72.请根据下列描述编写购物优惠程序。某商场为了加速促成商品流通，采用购物打折的优惠办法，每位顾客一次购物（1）在100元以上者，按九五折优惠；（2）在200元以上者，按九折优惠；（3）300元以上者，按八折优惠；（4）500元以上者按七折优惠。
73.用自定义函数的方法求sum（x），求当-1≤x≤1时，sum（x）=x/2！+x^2/3!+x^3/4!+??+x^n/(n+1)!，当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数 据错误。X、N都是由用户输入。
74.如样张所示，当用户单击“添加”按钮时，则将文本框text1中的字符串添加到列表框list1中，若在列表框list1中已经存在相同字符串，则弹出对话框提示“在列表框中已有相同内容”。当用户单击“删除”按钮时，则删除在list1中选中的项目。
75.请修改程序中错误，保证程序最后输出效果如图1所示。
76.如样张所示，当单击“生成”按钮时，利用随机函数产生10个(10~100)之间的随机整数（包含10和100）并显示在列表框List1中。然后，单击“计算”按钮，在Picture1中显示能被5或3整除的数并计算其累加和。
77.给定三角形的三条边，计算三角形的面积。要求程序首先判断给定的三条边能否构成三角形。 第78题 题目:窗体的左上角坐标（－8，6），右下角坐标为（8，－6）。以厘米为单位，以坐标原点为圆心画圆，程序运行界面如图1所示。
79.题目：用辗转相除法求两个整数的最大公约数。
80.题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。
81.题目:创建一个绘图程序。当程序运行时，单击\绘图\按钮，在窗体的Picture控件上画出[-pi，pi ]即[-3.14,3.14]区间的余弦曲线。要求将图片框的坐标系定义为左上角为（-4，2），右下角为（4，-2），并在图片框中画出坐标的x轴和y轴。程序运行界面如图1所示。 82.'题目：程序功能为打印下列图形： ' * ' ** ' *** ' **** ' *****
'83.题目:判断给定的年月日是该年中的第几天。
84下面的程序段功能为：单击图形框后，显示如样张所示效果。部分错误需填写代码段。
85.题目:在窗体上有两个命令按钮和一个文本框，名称分别为cmdstart（\开始\）、cmdend（\结束\）和Text1。文本框Text1中的字符个数不超过200个。程序刚开始运行时，\结束\按钮成灰色，单击\开始\按钮后，将
文本框Text1.text中的字符按其ASCII码值由大到小自
左而右重新组合，并在窗体上输出重组后的字符串，同时使\结束\按钮能响应而\开始\按钮不能响应。 86.题目：挑选单数并排序程序：程序启动后由计算机自动产生20个属于[100，300]之间的随机整数，单击\显示全体\按钮时，在Form1上显示这20个随机数；单击\显示奇数\按钮时，在Form1上显示其中的奇数；单击\排序\按钮时，在Form1上将这些奇数从小到大显示。要求显示格式为每行显示5个数据。 87.题目：求s=2!+4!+6!+8!，阶乘的计算用Function过程fact实现
88.题目：在下列程序段中，过程fb可以显示任意长度的菲波那契数列，现要求通过键盘输入一数字，利用该过程显示不超过指定数字大小的数列
89.题目:编程实现从左到右的滚动字幕，滚动的速度由滚动条控件来控制。
90.本程序的功能是：随机生成15个3位正整数，找出其中的升序并移动放置到数列的左端，
'非升序数放置在数列的右边。升序数是指其各位数字从高位到低位，是依次增大的整数如134，257，389等均为升序数。改错时，不得增加或删除语句，但可适当调整语句位置。 91.题目：该程序实现将输入的 0 - 255 之间的正整数转换成二进制数
92.题目:下面函数的功能是：求变量s(s=a+aa+aaa+aaaa+??)的值。其中，a是一个0-9的数字，总共累加a项。例如，当a=3时,s=3+33+333 (共累加3项)。 93.题目：下面程序段将7个随机整数从小到大排序
94.'题目:使用Timer函数设计用来暂停指定时间（秒）的Sub过程。 95.题目：下面程序将10个整数从大到小排序
96.'题目：程序功能：求1+2+3??，直到其和超出3000为止，并输入结果。 97.'功能：如样张所示,当单击“打印”按钮时，在图片框Picture1中显示杨辉三角形 98.'题目:编程求一个m*n矩阵中最大元素及其所在的行列号。 99.'题目：以下程序段用于输出100-300的所有素数
100.题目：其功能为：实现一个简单的猜数字游戏。在单击\开始\按钮后，首先由计算机生成一个[1，100]的任意整数，然后让用户在信息输入框中输入所猜的数字，再由计算机给出\太大\或\太小\的提示。如果5次后还没有猜中则结束游戏并公布正确答案。效果如样张所示。部分错误需填写代码段。 一、程序填空 共134题 （共计134分） 第1题 （1.0分）
'功能：以下程序段用于计算n的阶乘：n！。（1！=1） Public Function fac(n As Integer) As Integer
'**********SPACE********** If n = 1 Then fac = 1 Else
'**********SPACE********** fac = n * fac(n-1) End If End Function
Private Sub Command1_Click() Print \End Sub
答案： 1 ； n-1 第2题 （1.0分）
'题目：已知某城市一年的交通事故车辆报废情况如下表，编程序 ' 计算该城市的交通事故一年损失金额。
' 卡车 吉普车 轿车 摩托车
'数量（辆） 17 9 5 21 '折价（万元） 4.5 2.5 8 0.4
'------------------------------------------------------- Option Base 1
Function all(a() As Integer) As Single b = Array(4.5, 2.5, 8, 0.4)
Print \该城市交通事故报废车数量：\
Print \卡车：\吉普车：\轿车：\摩托车：\ Print \各种报废车折合人民币（万元）：\
Print \卡车：\吉普车：\轿车：\摩托车：\ For i = 1 To 4 s = s + a(i) * b(i) Next i
'**********SPACE********** 【?】 End Function
Private Sub Form_Click() Dim total As Single Dim a(4) As Integer
a(1) = 17: a(2) = 9: a(3) = 5: a(4) = 2 '**********SPACE**********
total = all(【?】) '数组a为参数 Print
Print \该城市交通车辆报废损失金额：\万元\End Sub
第3题 （1.0分）
'题目：下面的程序用\冒泡\法将数组a中的10个整数按从小到大 ' 排列，请将程序补充完整。 Option Base 1
Private Sub Command1_Click() Dim a
a = Array(-2, 5, 24, 58, 43, -10, 87, 75, 27, 83) For i = 10 To 2 Step -1
'**********SPACE********** For i=0 To 9
'**********SPACE********** If a(i)
a(j + 1) = a(j) a(j) = a1 End If Next j
'**********SPACE********** Next i For i = 1 To 10 Print a(i) Next i End Sub
答案： 0 To 9 ；a(i)
'程序运行界面如图所示。键盘输入3个数，将它们按由大到小的 '顺序输出，-1为结束标志。 Private Sub Form_Click() '**********SPACE********** Do While i<4
a = Val(InputBox(\请输入第一个数：\ If a = -1 Then Exit Sub
b = Val(InputBox(\请输入第二个数：\ c = Val(InputBox(\请输入第三个数：\ '**********SPACE********** If a
答案 ：i<4 ; a
'在窗体有三个复选框，名称分别为 Ch1、Ch2和Ch3，标题依次为 '\体育\、\音乐\、\美术\，还有一个命令按钮，名称为C1，标题 '为\显示\。要求程序运行后，如果选中某个复选框，则当单击 '\显示\命令按钮时，则显示相应的信息。例如，如果选中\体育\'和\音乐\复选框，则单击\显示\命令按钮后，在窗体上显示 '\我的爱好是体育音乐\（如图1所示）；而如果选中\体育\、 '\音乐\和\美术\复选框，则单击\显示\按钮后，在窗体上显示\'我的爱好是体育音乐美术\。 Option Explicit
Private Sub C1_Click()
'**********SPACE********** Dim s As String s = \我的爱好是\ If Ch1.Value = 1 Then s = s + Ch1.Caption End If
If Ch2.Value = 1 Then s = s + Ch2.Caption End If
If Ch3.Value = 1 Then s = s + Ch3.Caption End If
'**********SPACE********** Print s End Sub
答案：String ； s 第6题 （1.0分）
'功能：窗体上建立了一个文本框Text1(\输入口令\和一个命令按钮Command1(\检查\。 ' 判断密码是否正确，并显示相应提示
' 在加载窗体时设置密码框最大长度为8，密码显示字符为“*” dim x as string
Private Sub Command1_Click() x = Text1.Text
'**********SPACE********** If x = \ MsgBox (\欢迎你用机!\ Else
MsgBox (\对不起，口令错\ End If Text1.Text = \ Text1.SetFocus End Sub
Private Sub Form_Load() Text1.Text = \
'**********SPACE********** Text1. MaxLength = 8 '**********SPACE********** Text1. PasswordChar = \ End Sub
答案 ： = ； MaxLength ； PasswordChar 第7题 （1.0分）
'功能：下面的程序用于求三个数中最大数