VB 求详细过程 为什么结果为vb true falsee？？
点击联系发帖人
时间：2015-06-29 11:59
VB xlApp.Visible = False 为什么无法隐藏EXCEL应用程序窗口_好搜问答
|注册&您有新任务，
VB xlApp.Visible = False 为什么无法隐藏EXCEL应用程序窗口
被浏览105次
Private Sub Command2_Click()
Set xlApp = CreateObject(&Excel.Application&)
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(&D:\all.xls&)
Set xlSheet = xlBook.Worksheets(&all&)
For i = 5 To 179
a(i) = Trim(Right(xlSheet.Cells(i, 1), Len(xlSheet.Cells(i, 1)) - 1))
a(i) = Left(a(i), InStr(a(i), &镇&))
b(i) = xlSheet.Cells(i, 7)
xlApp.DisplayAlerts = False
xlBook.Saved = False
xlBook.Close
PS:该excel文件是由网页文件另存为的，所以带有一定的网页格式。
————————
请问如何隐藏这个excel应用程序窗口，谢谢啦。
采纳率：51%
我测试了，是隐藏了窗口的啊，只是需要声明两个数组dim a(),b() 用微信扫描二维码分享至好友和朋友圈分享到：
下面是答答童鞋给您的小建议，您看靠谱吗？初来乍到，弄错了您不要生气哦(*^__^*)答答小贴士
等您帮助的附近的朋友换一换
大家都在搜好搜APP下载好搜摸字APP 随时随地随心搜索 用好搜， 特顺手！
第9天生活就像海洋，只有意志坚强的人才能达到生命的彼岸。知道了这个vb程序的意思是什么，求详细运算过程和结果？_百度知道
这个vb程序的意思是什么，求详细运算过程和结果？
hiphotos.jpg" esrc="/zhidao/wh%3D450%2C600/sign=27e55fdc46a3bfb1f95cad1c86baef.baidu.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="/zhidao/pic/item/314e251f95cad1c86baef;<a href="/zhidao/wh%3D600%2C800/sign=3ba55c471d6f/314e251f95cad1c86baef.baidu://e://e://e.baidu.hiphotos 
其他数字都代表Yes.,当Do While 后面不是比较式的式子而是数字的时候,也就是可以继续循环的意思.,除了0是代表NO的意思。 n=246 k=1 num=246 Do While 246 (可以循环) k=1×6=6 这题的主要关键点是要明白
我还是不会算…………你能不能把具体过程写下来拍张照片给我啊，初学者有点笨……
其他类似问题
为您推荐：
其他1条回答
没有什么含义，就是为了让你理解for循环语句中各变量的变化
可是我不会算啊
n=15 i运行3次，j运行5次，n初始值为0，共运算15次，所以最后n=15i=4 i=3之后运行next，自动+1（step值为1）j=0 j=1之后运行next，自动-1（step值为-1）
I=1to3，为什么最后结果等于4
next之后会运行step，所以运行完3之后，还有一个next，所以i就成了4
vb程序的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁程序设计1 题目： 由输入对话框输入 n （n 必须为大于零且小于 30 的自然数） ， 计算下列表达式的值， 并在标签框 label1 上显示。 Sum=1/2+1/6+?? +1/(k*(k+1)) (k&=n)Private sub form_click() Dim n as integer, sum as double, k as
integer N = val(inputbox(“n=”,”请输入自然数 n（n&0 且 n&30）”)) Do while n &= 0 !! 30 !! n & orN = val(inputbox(“n=”,”请重新输入”)) Loop Sum = 0 K = 0 Do K = !! k+1 Sum = sum + 1/(k * (k+1)) !! Loop until !! !! Label1.caption = “sum” + str(sum) End sub (k+1) & n2 题目：下面的程序用于打印出以下图形。程序代码： Private sub form_click() Dim i%, j%, k% For I = 3 to 0 step -1 For j = 0 to 2 * i Print “ ”; Next j For k = 5 to !! Print “*” ; Next k !! 11-2*i print Next i For I = 0 to 3 For j = 0 to 2 * I + 2 !! Next j For k = 0 to 4-2 * i Print “*” ; Next k !! !! print !! print “ ”;Next i End sub3 题目：以下程序段用于实现：输入两个正整数 m 和 n，求其最大 公因数和最小公倍数。 程序代码： Private sub form_click () Dim a%, b%, num1%, num2%, temp Num1 = inputbox(“请输入一个正整数”) Num2 = inputbox(“请输入一个正整数”) If !! a&b !! then Temp = num1 : num1 = num2 : num2 = temp End if A = num1 B = num2 Do while !! a mod b && 0 !! Temp = a mod b A=b !! b = temp !! Loop Print “最大公约数为：”; b Print ”最小公倍数为：”; num1 *num2 /b End sub4 题目：窗体上建立一个文本框 text1,用于显示结果。单击按钮弹出 输入对话框，录入 0-6 之间的数值，判断输出值为星期几。 程序代码： Private sub command1_click() Dim x as integer X = val(!! inputbox !!(“请输入星期几（0~6）”)) Select case !! x !! Case is = 0 Text1.text = “星期日” Case is = 1 Text1.text = “星期 1” Case is = 2 Text1.text = “星期 2” Case is = 3 Text1.text = “星期 3” Case is = 4 Text1.text = “星期 4” Case is = 5 Text1.text = “星期 5” Case is = 6 Text1.text = “星期 6” Case !! else !! Text1.text = “输入错误” End select 5 题目：下面的时间过程判断文本框 text1 中输入的数所在区间，并 在文本框 text2 中输出判断结果。 程序代码： private sub command1_click() Dim int1 as integer !! int1 !! = val(text1.text) Select case int1 Case 0 Text2.text = “值为 0” Case !! 1 to 10 !! Text2.text = “值在 1 和 10 之间（包括 1 和 10）” Case Is & !! 10 !! Text2.text = “值大于 10” Case else Text2.text = “值小于 0” End select End sub Option Explicit'-------------------------------------------------------'【程序填空】'------------------------------------------------------'题目：程序输出结果为：n=3 x=42 y=9'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click() Dim n, x, y As Integer '**********SPACE********** n = 0: x =【1】: y = 0 Do While x & 20 '**********SPACE********** n = n 【+1】 y=x+y x = x * (x + 1) '**********SPACE********** 【loop】 Form1.Print &n=& & Str(n) Form1.Print &x=& & Str(x) Form1.Print &y=& & Str(y) End SubOption Explicit'------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：窗体上建立了一个文本框 Text1，用于显示结果。 ' 单击按钮弹出输入对话框录入 0-6 之间的数值， '判断输入值为星期几'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click()Dim x As Integer '**********SPACE********** x = Val(【inputbox】(&请输入星期几(0～6)&)) '**********SPACE********** Select Case 【x】 Case Is = 0 Text1.Text = &星期日(Sunday)& Case Is = 1 Text1.Text = &星期一(Monday)& Case Is = 2 Text1.Text = &星期二(Tuesday)& Case Is = 3 Text1.Text = &星期三(Wednesday)& Case Is = 4 Text1.Text = &星期四(Thursday)& Case Is = 5 Text1.Text = &星期五(Friday)& Case Is = 6 Text1.Text = &星期六(Saturday)& '**********SPACE********** Case 【else】 Text1.Text = &输入错误& End SelectEnd SubOption Explicit'------------------------------------------------------- '【程序填空】 '-------------------------------------------------------'题目：窗体中有 Text1-Text7 共 7 个文本框，单击按钮 Command1 在 ' Text7 中显示前 6 个文本框中的数值的最大数'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click() Dim a, b, c, d, e, f, m As Integer a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = Val(Text4.Text): e = Val(Text5.Text): f = Val(Text6.Text) Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) '**********SPACE********** Text7.Text = 【m】 End Sub'**********SPACE********** Sub max(x, y, z【z】)If x & y Then m=x Else m=y End If '**********SPACE********** If m & 【str(m)】 Then m=z End If End SubOption Explicit '------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：窗体上建立了两个文本框 Text1(输入字符串)及 ' ' ' Text2(转换结果)，一个命令按钮 Command1(&清除&)。 录入 Text1 内容时将，将录入内容大写字母转为小写， 小写转为大写'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click()Text1.Text = && Text2.Text = && Text1.SetFocus End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim s As String * 1 '**********SPACE********** s = 【chr】(KeyAscii) Select Case s '**********SPACE********** Case &A& 【to】 &Z& s = LCase(s) Case &a& To &z& '**********SPACE********** s = 【ucase(s)】 Case Else s = &*& End Select Text2.Text = Text2.Text + s End Sub'下面的程序段，用于实现在一个 nXm 的矩阵中，找出值最大的元素 '所在的行和列，并输出其值及行号和列号。 'Private Sub Form_Click() Dim mat() As Integer Dim n As Integer, m As Integer n = Val(InputBox(&请输入矩阵的行数&)) m = Val(InputBox(&请输入矩阵的列数&)) '**********SPACE********** 【redim mat(n,m)】 For i = 1 To n For j = 1 To m mat(i, j) = InputBox(&请输入数组元素值&) mat(i, j) = Val(mat(i, j)) Next j Next i Print &所建立的矩阵为& For i = 1 To n For j = 1 To m Print mat(i, j); Next j Print Next i Max = mat(1, 1) For i = 1 To n For j = 1 To m '**********SPACE********** If 【max&mat(I,j)】 Then Max = mat(i, j) col = j '**********SPACE********** 【row=I】 End If Next j Next i Print Print &矩阵最大的元素的值为：&; mat(row, col) Print &它所在的行号为：&; &列号为：&; col End SubOption Explicit'------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：在窗体上画一个标签（名称为 Label1 ）和一个 ' ' 计时器（名称为 Timer1 ） ，然后编写如下几个事件过程： 要求：每一秒钟 Label1 更新显示一次系统时间'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Form_Load() Timer1.Enabled = False '**********SPACE********** Timer1.Interval = 【1000】End SubPrivate Sub Form_Click()'**********SPACE********** Timer1.Enabled = 【true】End SubPrivate Sub Timer1_Timer() '**********SPACE********** Label1.Caption = 【now】 End Sub Option Explicit '------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：写出程序运行后，单击窗体，Form1 上显示的内容 ' ' ' ' ' ' sum 函数的功能为求阶乘和 isum = 1 isum = 3 isum = 6 isum = 10 isum = 15'请在【?】处填入正确的内容'------------------------------------------------------' Private Sub Form_Click() Dim I As Integer, isum As Integer '**********SPACE********** For I = 1 To 【5】 isum = sum(I) '**********SPACE********** Form1.Print &isum＝& 【+ isum】 Next I End SubPrivate Function sum(n As Integer) Static j As Integer '**********SPACE********** 【j =】 sum = j End Function '以下程序段用于输出杨辉三角:结果样式如图 1 ' j+nPrivate Sub Form_Click()Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(i,1)=1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =【arr(I-1,j-1)+arr(I-1,j)】 Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(i,j)】 Next j Print Next I End Sub Option Explicit'下面过程 max()用于求 3 个数中最大值， 利用这个过程求 5 个数中最 大值。 ' Private Sub Form_Click() Print &5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 = 【max(max1, 73, 352) Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If 【a & b】 Then m=a Else m=b End If '**********SPACE********** If 【m & c】 Then max = m Else max = c End If End Function '下面的程序实现： 从键盘输入一个数字， 将其插入一个有序数组中， 插入后的数组仍保持有序。 ' '请在【】处填入正确的内容?Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox(&请输入要插入的整数&) '**********SPACE********** 【a(0) = x】 i=8 Do While a(i) & x '**********SPACE********** 【a(i + 1) = a(i) i=i-1 Loop '**********SPACE********** If i & 0 Then 【a(i + 1) = x】 For i = 1 To 9 Print a(i); Next i End Sub'根据输入的学习成绩,分别显示优秀(90 分以上), 良好(75 分以上), '及格(60 分以上),不及格几个等级。 ' '请在【】处填入正确的内容? Private Sub Command1_Click() X = Val(Text1.Text) If X &= 90 Then Print &优秀& '**********SPACE********** ElseIf X &= 75 Then Print &良好& ElseIf X &= 60 Then '**********SPACE********* 【print &及格& '**********SPACE********** 【else】 Print &优秀& End If End Sub'下面的程序段用于实现以下功能 : 利用冒泡法将一组整数从小到大 排序? ' Private Sub Form_Click() Const n = 15 Dim a(1 To n) As Integer, work As Boolean Dim i As Integer, j As Integer, x As Integer Randomize For i = 1 To n a(i) = Int(90 * Rnd) + 10 Next i For i = 1 To n Print a(i); Next i Print '**********SPACE********** For i = n To 2 【step -1】 work = True For j = 1 To i - 1 If a(j) & a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x '**********SPACE********** 【work=false】或者【work＝0】 End If Next j '**********SPACE********** If work Then 【exit for】 Next i For i = 1 To n Print a(i); Next i End SubOption Explicit'------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：在窗体上建立两个文本框 Text1(输入数)及 Text2(显示结果)， '一个命令按钮 Command1(&判断&)。单击按钮时判断 Text1中输入的数值 ' 是否是 4 的倍数。'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click() Dim x As Integer '**********SPACE********** If IsNumeric(Text1.Text) = 【false】 Then Text2.Text = &输入错误& Exit Sub End If '**********SPACE********** x = CInt(【text1.text】或者【text1】) '**********SPACE********** If 【x mod 4】 = 0 Then Text2.Text = &是 4 的倍数& Else Text2.Text = &不是 4 的倍数& End IfEnd Sub'下面的程序实现： 从键盘输入一个数字， 将其插入一个有序数组中， 插入后的数组仍保持有序。 ' '请在【】处填入正确的内容?Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox(&请输入要插入的整数&) '**********SPACE********** 【a(0)=x】 i=8 Do While a(i) & x '**********SPACE********** 【a(I+1)=a(i)】 i=i-1 Loop '**********SPACE********** If i & 0 Then 【a(i+1)=x】 For i = 1 To 9 Print a(i); Next i End Sub 代码功能： 输入数字 1-7,显示其对应的星期几(例:输入 1,显示星期日, '如果输入其它内容，一律显示&输入错误&) ' '请在【】处填入正确的内容?Private Sub Command1_Click() Dim x As Integer Dim y As String x = Val(Text1.Text) '**********SPACE********** 【select case x】 Case 1 y = &今天是星期日& Case 2 y = &星期一& Case 3 y = &星期二& Case 4 y = &星期三& Case 5 y = &星期四& Case 6 '**********SPACE********** 【y=“星期五”】 Case 7 y = &星期六& '**********SPACE********** 【case else】 y = &输入错误& End Select Text2.Text = y End Sub1. '题目：下面的程序用于求三个数中最大数 Private Sub Command1_Click()Max Max=b c&max Dim a, b, c, max, min As Integera = Val(InputBox(&请输入第一个数：&))b = Val(InputBox(& 请输入第二个数： &)) c = Val(InputBox(&请输入第三个数： &))'**********SPACE********** 【?】 = a min = a '**********SPACE********** If b & max Then 【?】 If b & min Then min = b '**********SPACE********** If 【?】 Then max = c If c & min Then min = cPrint &最大数为：&; max Print &最小数为：&; min End Sub 答案： Max Max=b c&max2. '下面过程 max()用于求 3 个数中最大值， 利用这个过程求 5 个数中 最大值。 ' Private Sub Form_Click() Print &5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If 【?】 Then m=aMax(max1,73,352) a&b m&c Else m=b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 答案：Max(max1,73,352) a&b m&c3. 题目：本程序执行功能为，输入系列字符串，按递减次序排列。 '（1）在文本框输入字符串，按回车键后存放到数组 a（）中； '（2）单击&排序&按钮（Command1）时，进行递减次序排列，并在 图形框控件显示。 '请在【】处填入正确的内容'------------------------------------------------------I+1 &a(j) a(i)=a(min) preserve a(n) text1.textDim a() As String, n As Integer Private Sub Command1_Click() n=n-1 For i = 0 To n - 1 imin = i '**********SPACE********** For j = 【?】 To n '**********SPACE********** If a(imin) 【?】 Then imin = j Next j t = a(i) '**********SPACE********** 【?】 a(imin) = t Next i For i = 0 To n Me.Picture1.Print a(i) Next i End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then '**********SPACE********** ReDim 【?】 '**********SPACE********** a(n) = 【?】 Text1.Text = && n=n+1 End If End Sub答案：I+1 &a(j) a(i)=a(min) preserve a(n) text1.text 4. '【程序填空】 '-------------------------------------------------------'题目：用输入对话框输入 x , 根据如图公式计算对应的 y, ' 并在窗体上输出 y 的值?Y Inputbox Y=0 +sin(x)'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click() '**********SPACE********** Dim x As Single, 【?】 As Single '**********SPACE********** x = Val(【?】(&Please input x :&, &输入 X 的值&)) If x = 10 Then '**********SPACE********** 【?】 ElseIf x & 10 Then '**********SPACE********** y = Sqr(x) 【?】 Else y=2*x^3+6 End If Print yEnd Sub答案：Y Inputbox Y=0 +sin(x)5. '题目：程序输出结果为：n=3x=42y=91 +1 loop '请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click() Dim n, x, y As Integer '**********SPACE********** n = 0: x =【?】: y = 0 Do While x & 20 '**********SPACE********** n = n 【?】 y=x+y x = x * (x + 1) '**********SPACE********** 【?】 Form1.Print &n=& & Str(n) Form1.Print &x=& & Str(x) Form1.Print &y=& & Str(y) End Sub 答案： 1 +1 loop6. 下面的程序实现：从键盘输入一个数字，将其插入一个有序数组 中，插入后的数组仍保持有序。 ' '请在【】处填入正确的内容?a(0)=x a(i+1)=a(i) a(i+1)=xPrivate Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox(&请输入要插入的整数&) '**********SPACE********** 【?】 i=8 Do While a(i) & x '**********SPACE********** 【?】 i=i-1 Loop '**********SPACE********** If i & 0 Then 【?】 For i = 1 To 9 Print a(i); Next i End Sub答案：a(0)=x a(i+1)=a(i) a(i+1)=x7. '根据输入的学习成绩,分别显示优秀(90 分以上), 良好(75 分以上), '及格(60 分以上),不及格几个等级。 ' '请在【】处填入正确的内容?Else if x&=75 then Print “及格” ElsePrivate Sub Command1_Click() x = Val(Text1.Text) If x &= 90 Then Print &优秀& '**********SPACE********** 【?】 Print &良好& ElseIf x &= 60 Then '**********SPACE********** 【?】 '**********SPACE********** 【?】 Print &优秀& End If End Sub答案：Else if x&=75 then Print “及格” Else'------------------------------------------------------'【程序填空】 '------------------------------------------------------' 功能：输入一个数,若大于 0,则显示&+&；若小于 0， ' 则显示 &-&；若等于&0&,则显示&零&。'------------------------------------------------------Private Sub Command1_Click( ) x = Val(Text1.Text) Select Case x '**********SPACE********** Case is & 0 Label1.Caption = &+& Case Is & 0 '**********SPACE********** Label1.Caption = &-& '**********SPACE********** Case is = Label1.Caption = &零& End Select End Sub答案： 1). 2). 3). Case Is & 0 Label1.Caption = &-& Case 0 或 Case Else 或 Case Is = 0'功能：输入任何一个英文字母 x, ' ' ' 若 x 的值为&a&,&c&,&d-f& ,则显示 x 的大写字母； 若 x 的值为&m&,&o&,&p-z&,则显示 x 的小写字母； 若 x 的值为其它的值,则显示 xa（如输入的 X 的值是 g，则显示 ga） 。 '------------------------------------------------------Private Sub Command1_Click() x = Text1.Text '**********SPACE********** 【?】 '**********SPACE********** Case 【?】 Label1.Caption = UCase(x) Case &m&, &o&, &p& To &z& Label1.Caption = LCase(x) Case Else '**********SPACE********** 【?】 End Select End Sub答案： 1). 2). Select Case x &a&, &c&, &d& To &f& 3).Label1.Caption = Trim(x) + &a& 或 Label1.Caption = x + &a&'功能：以下程序的功能如(图 1)。'-------------------------------------------------------Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(&请输入 a 的值&) b = InputBox(&请输入 b 的值&) c = InputBox(&请输入 c 的值&) d=b*b-4*a*c p = -b / (2 * a) If d &= 0 Then '**********SPACE********** If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p '**********SPACE********** 【?】 Print &x1=&; x1, &x2=&; x2 '**********SPACE********** 【?】 q = Sqr(-d) / (2 * a) Print &x1=&; &+&; &i&, &x2=&; &-&; &i& End If End Sub答案： 1). 2). 3). d&0 或 0&d End If Else '------------------------------------------------------'功能：下面的程序段用于建立文件并输出文件，文件内容如下： ' '***** ' ***** ' ***** ' ' ***** *****'------------------------------------------------------Private Sub Form_Click() '**********SPACE********** Open &c:\1.txt& For 【?】 As #1 For i = 1 To 5 Print #1, Spc(i); &*****& Next i '**********SPACE********** 【?】 '**********SPACE********** Open &c:\1.txt& For 【?】 As #1 For i = 1 To 5 Line Input #1, x Print x Next i Close #1 End Sub答案： 1). 2). 3). Output Close #1 或 Close Input'------------------------------------------------------'功能：以下程序段用于求∑n! '------------------------------------------------------Private Sub Form_Click() Dim sum As Integer, n As Integer n = InputBox(&请输入一个正整数&) sum = 0 For i = 1 To n '**********SPACE********** sum =【?】 Next i Print sum End SubPrivate Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s=1 '**********SPACE********** For i = 1 To 【?】 s=s*i Next i '**********SPACE********** 【?】 End Function 答案： 1). 2). 3). sum★+★ mul(i) x mul = s'功能：根据输入的学习成绩,分别显示优秀(90 分以上), 良好 ' (75 分以上),及格(60 分以上),不及格几个等级。'------------------------------------------------------Private Sub Command1_Click() x = Val(Text1.Text) If x &= 90 Then Label1.Caption = &优秀& '**********SPACE********** ElseIf 【?】Then Label1.Caption = &良好& ElseIf x &= 60 Then '**********SPACE********** 【?】 '**********SPACE********** 【?】 Label1.Caption = &不及格& End If End Sub答案： 1). 2). 3). x &= 75 或 75 &= X Label1.Caption = &及格& 或 Label1 = &及格& Else-----------------------------------------------------'功能：从键盘输入学生分数，统计学生总人数和各分数段人数， ' ' 即优秀（90-100） 、良好（80-89） 、中等（70-79） 、 及格（60-69） 、不及格（60 以下）的人数。'------------------------------------------------------- Private Sub Form_Click() Dim score%, n1%, n2%, n3%, n4%, n5% msg = &请输入分数（-1 结束）& msgtitile = &输入数据& score = Val(InputBox(msg, msgtitle)) '**********SPACE********** While 【?】 total = total + 1 '**********SPACE********** Select Case 【?】 Case Is &= 90 n1 = n1 + 1 Case Is &= 80 n2 = n2 + 1 Case Is &= 70 n3 = n3 + 1 Case Is &= 60 n4 = n4 + 1 Case Else n5 = n5 + 1 '**********SPACE********** 【?】 score = Val(InputBox(msg, msgtitle)) Wend Print n1, n2, n3, n4, n5,total End Sub答案： 1). score &=0 ★And★ score &= 100 或 0&=score ★And★ 100&=score 或 score &=0 ★score &= 100 或 0&=score ★And★ And★ 100&=score 2). 3). score End Select'------------------------------------------------------'功能：输入数字 1-7,显示其对应是星期几(例:输入 1,显示星期日, ' 如果输入其它内容，一律显示&输入错误&)'------------------------------------------------------Private Sub Command1_Click() dim x as integer dim y as string x=val(text1.text) '**********SPACE********** 【?】 case 1 y=&今天是星期日& case 2 y=&星期一& case 3 y=&星期二& case 4 y= &星期三& case 5 y=&星期四& case 6 '**********SPACE********** 【? 】 case 7 y= &星期六& '**********SPACE********** 【?】 y = &输入错误& end select Text2.Text = y End Sub答案： 1). 2). 3). select case x y=&星期五& Case Else'------------------------------------------------------'下面过程 max()用于求 3 个数中最大值， 利用这个过程求 5 个数中最 大值。 '------------------------------------------------------Private Sub Form_Click() Print &5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If 【?】 Then m=a Else m=b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 答案： 1). 2). 3). max(max1, 73, 352) a&b 或 b&a m&c 或 c&m'------------------------------------------------------'功能：下面的程序段用于实现以下功能：利用冒泡法将一组整数 ' 从小到大排序。'------------------------------------------------------Private Sub Form_Click() Const n = 15 Dim a(1 To n) As Integer, work As Boolean Dim i As Integer, j As Integer, x As Integer Randomize For i = 1 To n a(i) = Int(90 * Rnd) + 10 Next i For i = 1 To n Print a(i); Next i Print '**********SPACE********** For i = n To 2 【?】 work = True For j = 1 To i - 1 If a(j) & a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x '**********SPACE********** 【?】 End If Next j '**********SPACE********** If work Then 【?】 Next i For i = 1 To n Print a(i); Next i End Sub 答案： 1). 2). 3). Step -1 work = False 或 work=0 或 not work = true Exit For'功能：以下程序用于判断一个正整数（≥3）是否为素数。'-------------------------------------------------------Private Sub Form_Click() n = InputBox(&请输入一个正整数（≥3）&) k = Int(Sqr(n)) i=2 swit = 0 '**********SPACE********** Do While i &= k And 【?】 '**********SPACE********** If 【?】 Then swit = 1 Else '**********SPACE********** 【?】 End If Loop If swit = 0 Then P &是一个素数& Else P &不是素数& End If End Sub答案： 1). 2). swit = 0 n Mod i = 0 或 n/i ★= ★ n\i 或 n/i ★=★ int(n/i) n\i 或 n/i =int(n/i)）n Mod i = 0 （或 n/i = 3).i = ★i ★+★ 1 i=i+1'功能：过程 suixian 可以判断某一个数字是否是水仙花数，利用 ' ' ' 该过程找出三位数中所有水仙花数。 所谓&水仙花数&是指一个 3 位数，其各位数字立方和等于 该数本身。'------------------------------------------------------Private Sub Form_Click() Dim i As IntegerFor i = 100 To 999 '**********SPACE********** 【?】 Next i End Sub Public Sub suixian(x As Integer) Dim i%, j%, k% '**********SPACE********** i =【?】 j = (x - i * 100) \ 10 k = x - i * 100 - j * 10 '**********SPACE********** If 【?】 Then Print x End Sub答案： 1). 2). 3). suixian (i) 或 call suixian (i) 或 suixian i x \ 100 或 int(x/100)x =★ i ^ 3★ +★ j ^ 3★ +★ k ^ 3 或 x =★ i*i*i★ +★ j*j*j★ +★ k *k*k x = i ^ 3 +j ^ 3 + k ^ 3 或 x = i*i*i + j*j*j + k *k*k'功能：从键盘上输入一串字符，以&?&结束，统计输入字符中的 ' 大、小写字母和数字的个数。'------------------------------------------------------Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0 ch = InputBox(&请输入一个字符&) '**********SPACE********** Do While 【?】 Select Case ch Case &a& To &z& n1 = n1 + 1 '**********SPACE********** Case 【?】 n2 = n2 + 1 Case &0& To &9& n3 = n3 + 1 End Select ch = InputBox(&请输入一个字符&) '**********SPACE********** 【?】 Print n1, n2, n3 End Sub答案： 1).ch ★&&★ &?& 或 not ch = &?& 或 not &?&=chch && &?& 或 not ch = &?& 或 not &?&=ch 2). 3). &A& To &Z& Loop'功能：本程序用于实现：从键盘接收一数字，判断其是否在数组 ' ' 中，如果在数组中则将其删除，否则显示该数字不在数组 中。'------------------------------------------------------Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print x = InputBox(&请输入要删除的整数&) For i = 1 To 10 '**********SPACE********** If a(i) = x Then 【?】 Next i '**********SPACE********** If 【?】 Then For k = i To 9 '**********SPACE********** 【?】 Next k Print &删除后的数组:& For i = 1 To 9 Print a(i); Next i Else Print &该数字不在数组中& End If End Sub答案： 1). 2). Exit For i&10 或 10&i 3).a(k) = a(★ k ★+ ★1★)a(k) = a( k + 1)'功能：利用下面的过程求 m!和 m*n '------------------------------------------------------Private Sub Form_Click() Dim m As Integer, n As Integer m=2 n=3 '**********SPACE********** 【?】 End Sub Private Sub find(x As Integer, y As Integer) Dim s, i As Integer '**********SPACE********** 【?】 For i = 1 To x s=s*i '**********SPACE********** p=【?】 Next i Print s, p End Sub答案： 1). 2). 3). p+y 或 find m, n 或 call find(m,n)s = 1 或 s = 1:p=0 p★+★y x*y 或 x*y'功能：求 A,B,C 三个数的最大值。 '------------------------------------------------------Private Sub Command1_Click() A = Val(Text1.Text) '**********SPACE********** 【?】 C = Val(Text3.Text) If A & B And A & C Then MAXDATE = A '**********SPACE********** ElseIf 【?】 Then MAXDATE = B Else '**********SPACE********** 【?】 End If Label1.Caption = MAXDATE & &是最大值& End Sub答案： 1). 2). a&b B& C 或 C&B 或 B& C and b&a 或 c&b and a&b 3). MAXDATE = C B = Val(Text2.Text) 或 b=val(text2)B& C 或 C&B 或 B& C ★ and ★ b&a 或 c&b ★ and ★'功能：以下程序段利用随机函数生成 15 个 10-100 之间的整数， 然后用选择法将其从小到大排序。 '------------------------------------------------------Private Sub Form_Click() Const n = 15 Dim a(1 To n) As Integer Dim i As Integer, j As Integer, t As Integer, min As Integer Randomize For i = 1 To n '**********SPACE********** a(i) =【?】 Next i For i = 1 To n Print a(i); Next i Print For i = 1 To n - 1 '**********SPACE********** 【?】 For j = i + 1 To n If a(j) & a(t) Then t = j Next j '**********SPACE********** If 【?】 Then min = a(i): a(i) = a(t): a(t) = min End If Next i For i = 1 To n Print a(i); Next i End Sub答案： 1). Int(★100★ *★ Rnd★)★ +★ 10Int(100 * Rnd)+ 10 2). 3). t && I 或 t=i t★ && ★I 或 t&i 或 t&i 或 i&t 或 not t=i 或 not i=t 或 not i=ti&t 或 not t=i'功能：以下程序的功能如(图 1)。 '------------------------------------------------------- Private Sub Form_Click() Dim s As Single, m As Integer, p# s=1 For m = 1 To 10 '**********SPACE********** p=【?】 s=s+1/p Next m Print s End SubFunction n(k%) p=1 For m = 1 To k '**********SPACE********** p =【?】 Next m '**********SPACE********** 【?】 End Function 答案： 1). 2). p*m 3). n=p n(m) p ★ *★ m'下面的程序段用于打印出以下图形 ' ' ' ' ' ' ' ' ' '------------------------------------------------------* *** ***** ******* ***** *** * Private Sub Form_Click() Dim i%, j%, k% For i = 3 To 0 Step -1 For j = 0 To 2 * i Print & &; Next j '**********SPACE********** For k = 5 To 【?】 Print &*&; Next k Print Next i For i = 0 To 3 For j = 0 To 2 * i + 2 '**********SPACE********** 【?】 Next j For k = 0 To 4 - 2 * i Print &*&; Next k '**********SPACE********** 【?】 Next i End Sub答案： 1). 2★*★i★-★1★Step★-12*i-1 Step-1 2). 3). Print & &; 或 ? & &; Print 或 ?------------------'功能：窗体上建立了一个文本框 Text1(&输入口令&)和一个命令按钮 Command1(&检查&)。 ' ' 判断密码是否正确，并显示相应提示 在加载窗体时设置密码框最大长度为 8， 密码显示字符为 “* ”'------------------------------------------------------- dim x as string Private Sub Command1_Click() x = Text1.Text '**********SPACE********** If x 【?】 && Then MsgBox (&欢迎你用机!&) Else MsgBox (&对不起，口令错&) End If Text1.Text = && Text1.SetFocus End SubPrivate Sub Form_Load() Text1.Text = && '**********SPACE********** Text1.【?】 = 8 '**********SPACE********** Text1.【?】 = &*& End Sub 答案： 1). 2). 3). = MaxLength PasswordChar'功能：下面的程序段，用于实现在一个 nXm 的矩阵中，找出值最 ' 大的元素所在的行和列，并输出其值及行号和列号。'------------------------------------------------------Private Sub Form_Click() Dim mat() As Integer Dim n as integer, m As Integer n = Val(InputBox(&请输入矩阵的行数&)) m = Val(InputBox(&请输入矩阵的列数&)) '**********SPACE********** 【?】 For i = 1 To n For j = 1 To m mat(i, j) = InputBox(&请输入数组元素值&) mat(i, j) = Val(mat(i, j)) Next j Next i Print &所建立的矩阵为& For i = 1 To n For j = 1 To m Print mat(i, j); Next j Print Next i Max = mat(1, 1) For i = 1 To n For j = 1 To m '**********SPACE********** If 【?】 Then Max = mat(i, j) col = j '**********SPACE********** 【?】 End If Next j Next i Print Print &矩阵最大的元素的值为：&; mat(row, col) Print &它所在的行号为：&; &列号为：&; col End Sub答案： 1). 2). 3). ReDim mat(n, m) As Integer 或 ReDim mat(n, m) Max & mat(i, j) 或 mat(i, j) & Max row = I'功能：下面的程序段用于求矩阵相乘 C=A×B，设 A、B、C 分别为 ' m×p、p×n、m×n 的矩阵。'------------------------------------------------------- Private Sub Form_Click() Const m = 4, p = 3, n = 2 Dim a(1 To m, 1 To p) As Integer Dim b(1 To p, 1 To n) As Integer Dim c(1 To m, 1 To n) As Integer Dim i As Integer, j As Integer, k As Integer, sum As Integer For i = 1 To m For k = 1 To p a(i, k) = i Next k Next i For i = 1 To p For k = 1 To n b(i, k) = i Next k Next i For i = 1 To m For j = 1 To n '**********SPACE********** 【?】 For k = 1 To p '**********SPACE********** sum = sum +【?】 Next k '**********SPACE********** c(i, j) =【?】 Next j, i Print &输出矩阵& For i = 1 To m For k = 1 To n Print c(i, k), Next k Print Next i End Sub答案： 1). 2). sum = 0 a(i, k) ★*★ b(k, j)a(i, k) * b(k, j) 3).sum'功能：下面的程序段用于打印出以下图形 ' ' ' ' ' ' ' ' * *** ***** ******* ***** *** *'------------------------------------------------------Private Sub Form_Click() Dim i%, j%, k% For i = 0 To 3 For j = 0 To 2 - i Print & &; Next j '**********SPACE********** For k = 1 To 【?】 Print &*&; Next k Print Next i For i = 0 To 2 For j = 0 To i '**********SPACE********** 【?】 Next j For k = 0 To 4 - 2 * i Print &*&; Next k '**********SPACE********** 【?】 Next i End Sub答案： 1). 2 * i+1 2). 3).2★ *★ i★+★1Print & &; 或 form1.print & &; 或 ? & &; Print 或 form1.Print 或 ?'功能：以下程序段用于实现：输入两个正整数 m 和 n，求其最大 ' 公因数和最小公倍数。'------------------------------------------------------Private Sub Form_Click() Dim a%, b%, num1%, num2%, temp num1 = InputBox(&请输入一个正整数&) num2 = InputBox(&请输入一个正整数&) '**********SPACE********** If 【?】 Then temp = num1: num1 = num2: num2 = temp End If a = num1 b = num2 '**********SPACE********** Do While 【?】 temp = a Mod b a=b '**********SPACE********** 【?】 Loop Print &最大公因数为：&; a Print &最小公倍数为：&; num1 * num2 / a End Sub答案： 1). 2). temp&0 num1 & num2 或 num2 & num1 b ★ && ★ 0 或 b & 0 或 0 & b 或 temp&&0 或 0 &temp 或 not b=0 或 not 0=b 或 temp&0 或 0 或b && 0 或 b & 0 或 0 & b 或 temp&&0 &temp 或 not b=0 3). b = temp 或 not 0=b'功能：以下程序段用于输出杨辉三角：结果样式如图 1 '------------------------------------------------------Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【?】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =【?】 Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** ? 【?】& & &; Next j Print Next I End Sub答案： 1). 2). arr(i, 1) = 1 ★arr(i - 1, j - 1)★ +★ arr(i - 1, j)arr(i - 1, j - 1) + arr(i - 1, j) 3). arr(i, j) 或 str(arr(i, j))'功能： 以下程序段用于实现矩阵转置， 即将一个 n×m 的矩阵的行和 列 ' 互换'------------------------------------------------------Private Sub Form_Click() Const n = 3 Const m = 4 Dim a(n, m), b(m, m) As Integer For I = 1 To n For j = 1 To m a(I, j) = Int(Rnd * 90) + 10 Next j '**********SPACE********** 【?】 For I = 1 To n For j = 1 To m '**********SPACE********** 【?】 Next j Next I Print &矩阵转置前& For I = 1 To n For j = 1 To m Print a(I, j); Next j '**********SPACE********** 【?】 Next I Print &矩阵转置后& For I = 1 To m For j = 1 To n Print b(I, j); Next j Print Next I End Sub答案： 1). 2). 3). Next i 或 Next b(j, i) = a(i, j) print 或 form1.print 或 ?'功能：下面的程序实现：从键盘输入一个数字，将其插入一个 ' 有序数组中，插入后的数组仍保持有序。'------------------------------------------------------Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox(&请输入要插入的整数&) '**********SPACE********** 【?】 i=8 Do While a(i) & x '**********SPACE********** 【?】 i=i-1 Loop '**********SPACE********** If i & 0 Then 【?】 For i = 1 To 9 Print a(i); Next i End Sub 答案： 1). 2). 3). a(0) = x a(i + 1) = a(i) 或 a(1+i) = a(i) a(i + 1) = x 或 a(1 + i) = x'功能：求 1!+2!+??+10!的值。 '------------------------------------------------------Private Sub Form_Click() '**********SPACE********** 【?】 s=1 For I = 2 To 10 t=t*I '**********SPACE********** 【?】 '**********SPACE********** 【?】 Print s End Sub 答案： 1). 2). 3). t=1 s =s+t Next I 或 Next'功能：本程序求3~100之间的所有素数（质数）并统计个数； ' ' 同时将这些素数从小到大依次写入顺序文件 dataout.txt ； 素数的个数显示在窗体Form1上。'------------------------------------------------------' Private Sub Command1_Click() Dim count As Integer, flag As Boolean Dim t1 As Integer, t2 As Integer '**********SPACE********** Open App.Path & &\dataout.txt& For Output As 【?】 count = 0 For t1 = 3 To 100 '**********SPACE********** flag = 【?】 For t2 = 2 To Int(Sqr(t1)) If t1 Mod t2 = 0 Then flag = False Next t2 If flag Then '**********SPACE********** count = 【?】 Write #1, t1 End If Next t1 Form1.Print &素数个数&; count Close #1End Sub 答案： 1). 2). 3). #1 True count + 1 或 1 + count ------'【程序填空】 '------------------------------------------------------'功能：在窗体上画一个标签（名称为 Label1 ）和一个 ' ' 计时器（名称为 Timer1 ），然后编写如下几个事件过程： 要求：每一秒钟Label1更新显示一次系统时间'------------------------------------------------------Private Sub Form_Load() Timer1.Enabled = False '**********SPACE********** Timer1.Interval = 【?】 End Sub Private Sub Form_Click() '**********SPACE********** Timer1.Enabled = 【?】 End Sub Private Sub Timer1_Timer() '**********SPACE********** Label1.Caption = 【?】 End Sub 答案： 1). 2). 3). 1000 True Now 或 Time 或 Now() 或 Time()'【程序填空】 '------------------------------------------------------'功能：在窗体上有两个列表框List1(处理前数据)和List2(处理 ' ' ' ' 后数据)，以及标签Label1。程序功能为：随机生成100个 0-20（不包括0和20）的随机数填入List1，并将这些随机 数中的零元素删除，填入List2中。最后在Label1中显示零 元素个数'------------------------------------------------------Private Sub Form_Load() Dim n As Integer Dim i, x, k As Integer Dim a(100) As Integer, b(100) As Integer Randomize n = 100 '**********SPACE********** For i = 1 To 【?】 '**********SPACE********** x = Int(20 * 【?】) List1.AddItem x a(i) = x Next i k = 0 For i = 1 To n If a(i) && 0 Then '**********SPACE********** 【?】: b(k) = a(i) List2.AddItem b(k) End If Next i Label1.Caption = &数组中零元素个数：& + Str(n - k) End Sub 答案： 1). 2). 3). n 或 100 '删除零元素Rnd 或 Rnd(1) k = k + 1 或 k =1+k'------------------------------------------------------- '功能：由输入对话框输入n（n必须为大于零且小于30的自然数）， ' ' 计算下列表达式的值，并在标签框Label1上显示。 sum=1/2+1/6+ ... +1/(k*(k+1)) (k&=n)'------------------------------------------------------Private Sub Form_Click() Dim n As Integer, sum As Double, k As Integer n = Val(InputBox(&n=&, &请输入自然数n(n&0 且n&30)&)) '**********SPACE********** Do While n &= 0 【?】 n &= 30 n = Val(InputBox(&n=&, &请重输入&)) Loop sum = 0 k = 0 Do '**********SPACE********** k =【?】 sum = sum + 1 / (k * (k + 1)) '**********SPACE********** Loop Until 【?】 Label1.Caption = &Sum=& + Str(sum) End Sub 答案： 1). 2). 3). Or k + 1 或 1 + k k &= n 或 n &= k 或 k = n'【程序填空】 '------------------------------------------------------'功能：本程序执行后，最终在窗体上打印数字7。 '------------------------------------------------------Private Sub Command1_Click() Dim a As String '**********SPACE********** Open App.Path & &\abc.bat& For 【?】 As #1 n = 8 For I = 1 To n Print #1, I + 1 Next I Close #1 '**********SPACE********** Open App.Path & &\abc.bat& For 【?】 As #1 For I = 1 To n Input #1, a If I Mod 5 = 0 Then '**********SPACE********** Print CInt(a) + 【?】 End If Next I Close #1 End Sub 答案： 1). 2). 3). Output Input 1'------------------------------------------------------'功能：用户界面如图所示，实现左右两个组合框中数据的左移和右 移功能。 ' 程序开始运行时，在左边组合框中生成10个由小到大排列的随机三位 ' True), 正整数 (在设计阶段该组合框的Sorted属性值已设置为 ' '现要求完成: （1）单击&＞＞&钮，左边组合框中的10个数全部移动到右边组合框， ' ' ，同时使&＜＜&钮能响应，&＞＞&钮不能响应。 （2）单击&＜＜&钮，右边组合框中的10个数全部移到左边的组合框， ，同时使&＞＞&钮能响应，&＜＜&钮不能响应； ' （3）单击&结束&按钮，结束程序运行。'------------------------------------------------------Private Sub cmdLeft_Click() Dim i As Integer For i = 0 To comboRight.ListCount - 1 comboLeft.AddItem comboRight.List(i) Next i comboRight.Clear '**********SPACE********** 【?】= False '**********SPACE********** 【?】 = True End Sub Private Sub cmdRight_Click() Dim i As Integer '**********SPACE********** For i = 0 To 【?】 - 1 comboRight.AddItem comboLeft.List(i) Next i '**********SPACE********** 【?】.Clear cmdRight.Enabled = False cmdLeft.Enabled = True End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim i As Integer Label1.Caption = &组合框1& Label2.Caption = &组合框2& cmdRight.Caption = &&&& cmdRight.Enabled = True cmdLeft.Caption = &&&& cmdLeft.Enabled = False cmdExit.Caption = &结束& comboLeft.Text = && For i = 1 To 10 comboLeft.AddItem Int(Rnd * 900) + 100 Next i comboRight.Text = && End Sub 答案： 1). 2). 3). 4). cmdLeft.Enabled cmdRight.Enabled comboLeft.ListCount comboLeft'------------------------------------------------------'功能：本程序执行功能为，命令按钮单击一次后，窗体上输出结果 为： ' ' 36 25 ' '16 9'------------------------------------------------------Private Sub Command1_Click() Dim xx(6) As Integer Dim k% Open App.Path & &\al.dat& For Output As #1 For I = 1 To 6 '**********SPACE********** j = 【?】 Print #1, j Next I Close #1 Open App.Path & &\al.dat& For Input As #2 k = 0 Do While Not EOF(2) '**********SPACE********** k = 【?】 Input #2, xx(k) Loop Close #2 '**********SPACE********** For I = k To k / 2 Step【?】 Form1.Print xx(I) Next I End Sub 答案： 1). 2). 3). I * I 或 i^2k + 1 或 1 + k -1'------------------------------------------------------'功能：用Circle 方法在图片框正中画出许多不同颜色的同心圆， ' 且不能画出图片框。'------------------------------------------------------Private Sub Picture1_Click() Dim CX, CY, Radius, Limit ScaleMode = 3 '**********SPACE********** CX = 【?】 CY = Picture1.ScaleHeight / 2 '**********SPACE********** If CX & CY Then Limit = CY Else 【?】 '**********SPACE********** For Radius = 0 To 【?】 Picture1.Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next Radius End Sub 答案： 1). 2). 3). Picture1.ScaleWidth / 2 Limit = CX Limit'功能：在窗体上画一个标签（名称为 Label1 ）和一个计时器（名 称为 Timer1 ），然后编写如下几个事件过程： 要求：每一秒钟 Label1更新显示一次系统时间 '------------------------------------------Private Sub Form_Load() Timer1.Enabled = False '**********SPACE********** Timer1.Interval = 【?】 Private Sub Form_Click() '**********SPACE********** Timer1.Enabled = 【?】 End Sub Private Sub Timer1_Timer() '**********SPACE********** Label1.Caption = 【?】 End Sub now true 1000 一、程序设计'【程序设计】 1.'题目：编写函数 fun，函数的功能是：计算两个正整数的最大公 约数，并显示。如： '两个数为 15、20，结果显示&5& '要求使用 Do ... Loop 语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n2.'题目：判断一个数是否是素数。 答案：---------------------Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------3,'题目：(事件)单击窗体。 ' (响应)求 10!的值，并将结果输出到窗体上。将结果存入变量 SUM 中。 答案：---------------------Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求 1+2+3+??+100 的值，并把结果输出在窗体上。结果存 入变量 SUM 中。 答案：---------------------Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------5,'题目： 编写函数 fun， 函数的功能是： 求 1 到 m 之间的偶数之积。 答案：---------------------Dim y As Double y = 1 Dim i As Integer For i = 1 To m If i Mod 2 = 0 Then y = y * i End If Next fun = y ---------------------6,'题目：编写函数 fun，函数的功能是：根据一个百分制成绩 mark （整数） ，显示对应五级制的评定。条件如下： mark 大于等于 90 显示&优秀& mark 小于 90 且大于等于 80 显示&良好& mark 小于 80 且大于等于 70 显示&中等& mark 小于 70 且大于等于 60 显示&及格& mark 小于 60 显示&不及格&要求使用 Select 语句来实现。答案：Select Case mark Case Is &= 90 fun = &优秀& Case Is &= 80 fun = &良好& Case Is &= 70 fun = &中等& Case Is &= 60 fun = &及格& Case Else fun = &不及格& End Select 7,'题目：(事件)双击窗体(响应)求 100 以内奇数的和，并将结果输 出在窗体上。将结果存入变量 SUM 中 答案：---------------------Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum ---------------------8,'题目： (事件)单击窗体。 ' (响应)输 100-200 之间所有素数，并将这些数求和，求和结果存入所给变量 SUM 中。 答案：-----------------------------------For i = 100 To 200 For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next If j & Int(Sqr(i)) Then Sum = Sum + i End If Next Print Sum ------------------------------------ 9,'题目：将一个十进制整数 m 转换成 →r(2－16)进制字符串。 方法：将 m 不断除 r 取余数，直到商为零，以反序得到结果。下面 写出一转换函数，参数 idec 为十进制数，ibase 为要转换成数的基 （如二进制的基是 2，八进制的基是 8 等） ，函数输出结果是字符串 chr 函数：将 ascii 码转换为对应字母。 答案：---------------------Dim strDecR$, iDecR% strDecR = && Do While idec && 0 iDecR = idec Mod ibase If iDecR &= 10 Then strDecR = Chr$(65 + iDecR - 10) & strDecR Else strDecR = iDecR & strDecR End If idec = idec \ ibase Loop TrDec = strDecR ---------------------10,'题目： (事件)单击按钮。 (响应)随机产生 N 个两位正整数（N 由输入对话框输入，且 N&0） ， 求出其中的最大数和最小数，并在标签框 Label1 上显示最大数与最 小数的差。 答案：-------------------------------x = InputBox(&请输入 x&) n = 1 t = x s = x Do Until Abs(t) & 0. n = n + 1 t = t * (-1) / n s = s + t Loop Label1.Caption = &s=& & s -------------------------------'题目： (事件)单击窗体。 ' (响应)已知 s=1+1/3!+1/5!+1/7!+1/9!,请将 s 结果值输出到窗体上。使用 do while...loop 语句完成程序 答案：---------------------Dim i As Integer i = 1 p = 1 Do While i &= 9 p = p * i If i Mod 2 = 1 Then s = s + 1 / p End If i = i + 1 Loop Print s sum=s ---------------------'题目： (事件)单击窗体。 ' (响应)求从 100 到 1000 之间所有是 3 的倍数的数之和，当和大于 3000 时，停止计算并输出和。请将结果输出到窗体上,并存 入所给变量 SUM 中。使用 for...next 语句完成程序 答案：---------------------Dim i As Integer sum=0 for i=100 to 1000 if i mod 3=0 then sum=sum+i if sum&3000 then exit for endif endif i=i+1 next Print sum ---------------------'题目： (事件)单击窗体。 ' (响应)求 1-100 中为 5 或 7 的倍数的和。请将结果输出到窗体上,并存入所给变量 SUM 中。使用 while...wend 语句完成程序 答案：---------------------Dim i As Integer i = 1 While i &= 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If i = i + 1 Wend Print Sum ----------------------'题目： (事件)单击窗体。 ' (响应)求出 100 以内所有素数的和，并将结果输出到窗体上,并存入所给变量 SUM 中。 答案：---------------------Dim i As Integer Dim j As Integer Dim k As Integer Dim b As Boolean b = False For i =2 To 100 b = False j = CInt(Sqr(i)) For k = 2 To j If i Mod k = 0 Then b = True End If Next If b = False Then sum = sum + i End If Next Print sum ---------------------'题目：(事件)单击窗体。 ' (响应)求 1!+2!+3!+??+10!的值，并在窗体上输出。结果存入变量 L 中。 答案：---------------------Dim i As Integer Dim s As Long Dim j As Integer s = 1 For i = 1 To 10 s = s * i l = l + s Next Print Str(l) ---------------------'题目：编写函数 fun，函数的功能是：求一个四位数的各位数字的 立方和答案：---------------------Dim d As Integer, k As Integer, s As Integer While n & 0 d = n Mod 10 s = s + d * d * d n = n / 10 Wend fun = s '【程序设计】 '------------------------------------------------'题目： (事件)单击窗体。 ' ' ' (响应)已知 sum=1-1/4+1/9-1/16+1/25...-1/100, 请将 sum 结果值输出到窗体上。 使用 for...next 语句完成程序 答案：---------------------Dim i As Integer for i = 1 to 10 sum = sum + (-1) ^ (i - 1) /(i*i) next Print sum'题目：编写函数 fun，其功能是:能计算从 1 开始到 n 的 ' 自然数中偶数的平方的和。答案：---------------------Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i Next fun = sum '题目：请用 Select 语句编程计算打折后的金额？'折扣方法如下: ' ' ' ' ' ' 购物 300 以下，无优惠（使用 MsgBox 显示“无优惠”） ； 购物 300 以上，95 折； 购物 500 以上，9 折； 购物 1000 以上，85 折； 购物 5000 以上，8 折?答案：Select Case n Case Is & 5000 n = n * 0.8 Case Is & 1000 n = n * 0.85 Case Is & 500 n = n * 0.9 Case Is & 300 n = n * 0.95 Case Else MsgBox &无优惠& End Select '题目：将一张面值为 100 元的人民币等值换成 100 张 5 元、1 元和 0.5 元的零钞，要求每种零钞不少于 1 张， ' 问有哪几种组合？将组合数存入变量 OUT 中。答案：---------------------Dim n As Integer Dim i%, j%, k% Print &5? For i = 1 To 20 For j = 1 To 100 - i k = 100 - i - j If 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k n = n + 1 End If Next j Next i out = n 1? 0.5?& ---------------------'题目：(事件)单击窗体。 ' (响应)我国现有人口为 13 亿，设年增长率为 1%，计算多少年后增加到 20 亿。并将结果输出在窗体上。将结果存入变 量 year 中。使用 do while ...loop 语句完成程序。 答案：---------------------dim p as double dim r as single dim n as integer p= r=0.01 do while p=p+p*r n=n+1 loop print &n=&,n year=n ---------------------'题目：应用选择法对数组 A 按升序排列 基本思想: p& 1）对有 n 个数的序列（存放在数组 a(n)中） ，从中选出最小的数， 与第 1 个数交换位置； 2）除第 1 个数外，其余 n-1 个数中选最小的数，与第 2 个数交换位 置； 3）依次类推，选择了 n-1 次后，这个数列已按升序排列。 答案：---------------------Dim i, j, imin, temp As Integer For i = 1 To n - 1 imin = i For j = i + 1 To n If a(imin) & a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i ---------------------'题目： (事件)单击窗体。 ' (响应)求一个数,它除 3 余 2，除 5 余 3，除 7 余 2，请将满足上面条件的最小数保存到 sum 变量中。使用 for...next 语句完成 程序 答案：---------------------Dim i As Integer For i = 2 To 1000 If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Print i Exit For End If Next i sum = i ---------------------'题目：(事件)单击窗体。 ' (响应)生成一个一维数组(10 个数组元素依此为：15、23、72、43、96、23、3、65、88、17)，写程序求出这个数组中的最大 值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均 值分别存入变量 Max,Min,Aver 中 答案：---------------------Dim a(9) As Integer Dim i, s As Integer a(0) = 15 a(1) = 23 a(2) = 72 a(3) = 43 a(4) = 96 a(5) = 23 a(6) = 3 a(7) = 65 a(8) = 88 a(9) = 17 max = a(0) min = a(0) s = 0 For i = 0 To 9 If a(i) & max Then max = a(i) End If If a(i) & min Then min = a(i) End If s = s + a(i) Next aver = Int(s / 10) Print (CStr(max)) Print (CStr(min)) Print (CStr(aver)) ---------------------'题目：(事件)双击窗体。 ' (响应)求 s=1+1×2+1×2×3+?+1×2×3×?×10，并将结果存到变量 S 中 答案：---------------------Dim i, j As Integer Dim k As Long k = 1 s = 0 For i = 1 To 10 For j = 1 To i k = k * j Next s = s + k k = 1 Next Print (CStr(s)) ---------------------'题目：(事件)单击窗体。 ' (响应)求 100 到 500 之间奇数的和，将结果输出在窗体上并存入变量 SUM 中。 使用 do...loop until 语句完成程序 答案：---------------------Dim i As Integer i=100 do If i Mod 2 = 1 Then sum = sum + i End If i=i+1 loop until i&500 Print sum ---------------------'题目：(事件)单击窗体。 '(响应)已知 S=1+1/4+1/9+1/16+1/25+?+1/100， 结果输出在窗体上。 答案：---------------------Dim i As Integers = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------'题目： (事件)单击命令按钮 Command1。 ' (响应)计算如下表达式 s 的值,s=1+(1*2)+(1*2*3)+??+(1*2*3*??*6) 并将结果输出到文本框 Text1 中。 答案：Dim j As Integer Dim i As Integer j = 1 s = 0 For i = 1 To 6 j = j * i s = s + j Next i Text1.Text = s 题目：求两个数 m,n 的最大公约数 p 和最小公倍数 q 答案：---------------------nm = n * m If m & n Then t = m: m = n: n = t r = m Mod n Do While (r && 0) m = n n = r r = m Mod n Loop p = n q = nm / n ---------------------'题目：编写函数 fun，函数的功能是：计算 n 门课程的平均值，计 算结果作为函数值返回。 例如，若有 5 门课程的成绩是：92，76，69，58，88，则函数的值 为 76.6。 答案：---------------------Dim i As Integer Dim y As Single For i = 1 To n y = y + a(i) Next fun = y / n ---------------------'题目：(事件)单击窗体。 ' (响应)求 200~300 之间既能被 3 整除又能被 7 整除的数。并求出所有数之和存入变量 SUM 中 答案：---------------------Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum ---------------------'题目：(事件)单击窗体 ' (响应)用输入框输入一自然数，判断是&正数&、&负数&或&零&，并根据输入的数用消息框显示&正数&、&负数&或&零&。 答案：------------------------------------n = InputBox(&输入一个自然数&) If n & 0 Then result = &正数& ElseIf n & 0 Then result = &负数& ElseIf n = 0 Then result = &零& End If MsgBox &输入的数据& & n & &为：& & result 或者 ------------------------------------'题目：(事件)双击窗体。 ' (响应)求出 50 以内所有奇数的和。 将结果存入变量 SUM 中。答案：---------------------- Dim i As Integer For i = 1 To 50 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum ----------------------'题目：编写函数 fun，函数的功能是：判断一个字符是 '字母字符、数字字符还是其他字符，并做相应的显示。 字母字符显示字符串&字母&数字字符显示字符串&数字& '其他字符显示字符串&其他&要求使用 IF 语句来实现。 答案：If UCase(n) &= &A& And UCase(n) &= &Z& Then fun = &字母& ElseIf n &= &0& And n &= &9& Then fun = &数字& Else fun = &其他& End If '题目：(事件)单击窗体。 ' (响应)求 50 以内所有偶数的和，并在窗体上输出出来。将结果存入变量 S 中。 答案：---------------------Dim i As Integer For i = 2 To 50 If (i Mod 2) = 0 Then s = s + i End If Next Print (CStr(s)) ---------------------'题目：(事件)单击窗体。 ' (响应)求 100 以内偶数的和，并将结果输出在窗体上。将结果存入变量 SUM 中 答案：---------------------Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum ---------------------题目：(事件)双击窗体。 ' (响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚） ，求出其所有的换法，把结果输出在窗体上。将所有的换法的 数目存入变量 N 中 答案：---------------------Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next Next Next ---------------------'题目：编写函数 fun 其功能是：根据整型形参 m，计算 如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m 例如：若 m=9，则应 输出：1.13 答案：---------------------Dim y As Double Dim i As Integer For i = 1 To m y = y + 1 / (2 * i) Next fun = y 题目： 编写函数 fun 其功能是： 根据整型形参 m， 计算如下公式的值: ' ' y=1＋1/3＋1/5＋1/7＋...＋1/(2m+1) 例如：若 m=9，则应输出：2.133255------------------------------------------------答案：---------------------Dim y As Double Dim i As Integer y = 1 For i = 1 To m y = y + 1 / (2 * i + 1) Next fun = y1、'题目：(事件)单击窗体。 (响应)求 10~20 之间所有素数的乘积并输出在窗体上。 将结果存入变 量 L 中。 答案：---------------------Dim i As Integer Dim j As Integer Dim b As Boolean l=1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l=l*i End If b = False Next Print Str(l) ----------------------2、'题目：(事件)单击窗体。 (响应)求 1 - 1/2 + 1/3 - 1/4 + ?? + 1/99 - 1/100 的值。将结果存入 变量 J 中。 答案：---------------------Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j=j+1/i ElseIf i Mod 2 = 0 Then j=j-1/i End If Next Print j4、'题目：(事件)双击窗体。(响应)求 1+2+3+5+8+13+??前 20 项的 和，并将结果在窗体上输出。将结果存入变量 SUM 中。 答案：---------------------Dim i As Integer Dim j(1 To 20) As Integer For i = 1 To 20 If i & 3 Then j(i) = i Else j(i) = j(i - 1) + j(i - 2) End If sum = sum + j(i) Next Print sum 5、'题目：(事件)单击窗体。 (响应)求 10!的值， 并将结果输出到窗体上。 将结果存入变量 SUM 中。 答案：---------------------Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum6、'题目： (事件)单击窗体。 (响应)已知 sum=1-1/3!+1/5!-1/7!+1/9!,请将 sum 结果值输出到窗体上。 使用 do while...loop 语句完成程序 答案：---------------------Dim i As Integer Dim n As Integer i=1 p=1 Do While i &= 10 p=p*i If i Mod 2 = 1 Then n=n+1 sum = sum + (-1) ^ (n - 1) / p End If i=i+1 Loop Print sum8、'题目：(事件)双击窗体。 (响应)s=20+21+22+?+263，求 s 的值，并将结果存储到变量 S 中。 答案：---------------------Dim i As Integer i = 20 While i &= 263 s=s+i i=i+1 Wend Print (CStr(s))9、'题目：(事件)单击窗体。 (响应)编写程序求 10×11×12+11×12×13+?+15×16×17 的结果， 并将结果输出到窗体上。将结果存入变量 M 中 答案：---------------------Dim i, j As Integer Dim s As Long For i = 10 To 15 s=1 For j = i To i + 2 s=s*j Next m=m+s Next Print (CStr(m))12、题目：(事件)双击窗体。 (响应)编写代码功能如(图 1)。将结果存入变量 S 中 答案：---------------------Dim i As Integer s=1 For i = 1 To 10 s=s*i*i Next Print (CStr(s))14、题目：(事件)双击窗体。 (响应)求 3+6+9+12+15+18+??+300 的和，并将结果输出到窗体上。将结果存入变量 SUM 中。 答案：---------------------Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum15、题目： (事件)单击窗体。 (响应)输出所有的三位数，它满足该 数中有某两位为相同的数，且该数是一个完全平方数。求出所有这 些数的和，并将结果存入变量 SUM 中。 答案：---------------------- dim a as integer,b as integer dim b3 as integer,b2 as integer,b1 as integer for a=10 to 31 b=a*a b3=b\100 b2=(b\10) mod 10 b1=b mod 10 if b1=b2 or b1=b3 or b2=b3 then ? a,b sum=sum+b end if next a ? sum18、题目：(事件)单击窗体。 (响应)输出一个如图所示的由数字组成 的倒三角形请将结果存入变量 S 中(要求利用 msgbox 函数显示结果， 使用 for...next 语句完成程序) 答案：---------------------Dim tmp As String Dim i As Integer, j As Integer tmp = && For i = 10 To 1 Step -1 For j = 0 To i - 1 tmp = tmp & CStr(j) Next tmp = tmp & vbCrLf Next MsgBox tmp s = tmp22、'题目：用迭代法求某个数的平方根。 已知求平方根的迭代公式 如图： 算法思想：对于一个问题的求解 x，可由给定的一个初值 x0，根据 某一迭代公式得到一个新的值 x1，这个新值 x1 比初值 x0 更接近要 求的值 x；再以新值作为初值，即：x1→x0,重新按原来的方法求 x1, 重复这一过和直到|x1-x0|&ε (某一给定的精度)。此时可将 x1 作为问 题的解。 答案：---------------------Dim x0 As Single, x1 As Single x0 = a / 2 '迭代初值 x1 = 0.5 * (x0 + a / x0) Do x0 = x1 '为下一次迭代作准备x1 = 0.5 * (x0 + a / x0) Loop While Abs(x1 - x0) & 0.00001 Fsqrt = x123、'题目：统计字符串中的单词个数。 '算法思路: （1）从文本（字符串）的左边开始，取出一个字符；设逻辑量 WT 表示所取字符是否是单词内的字符，初值设为 False （2）若所取字符不是&空格&，&逗号&，&分号&或&感叹号&等单词的分 隔符，再判断 WT 是否为 True，若 WT 不为 True 则表是新单词的开 始，让单词数 Nw=Nw+1，让 WT=T （3）若所取字符是&空格&，&逗号&，&分号&或&感叹号&等单词的分隔 符，则表示字符不是单词内字符，让 WT=F (4) 再依次取下一个字符，重得（2）(3)直到文本结束。 答案：---------------------Dim nw As Integer, nL As Integer Dim i As Integer Dim strT As String Dim Wt As Boolean nw = 0: Wt = False nL = Len(RTrim(strI)) For i = 1 To nL strT = Mid$(strI, i, 1) Select Case strT Case & &, &,&, &;&, &!& Wt = False Case Else If Not Wt Then nw = nw + 1 Wt = True End If End Select Next i CountWord = nw '取第 i 个字符27、'题目：对字符串进行加密处理。 加密过程:将每个字母 C 加一序数 K＝5， 即 c=chr(Asc(c)-5),这时 &Z& → &U& ， &z& → &u& ， &Y& → &T& ?当加序数后的字母小于 &A& 或 &a& 则 c=Chr(Asc(c)-k +26) 答案：---------------------Dim i As Integer Dim strp As String, strT As String, iA As String Dim nl As String i = 1: strp = &&nl = Len(RTrim(strI)) Do While (i &= nl) strT = Mid$(strI, i, 1) '取第 i 个字符If (strT &= &A& And strT &= &Z&) Then iA = Asc(strT) + 5 If iA & Asc(&Z&) Then iA = iA - 26 strp = strp + Chr$(iA) ElseIf (strT &= &a& And strT &= &z&) Then iA = Asc(strT) + 5 If iA & Asc(&z&) Then iA = iA - 26 strp = strp + Chr$(iA) Else strp = strp + strT End If i=i+1 Loop EnyStr = strp29、'题目：求二维数组中最大元素及其所在的行和列并将最大值存 入变量 Max 中，将最大值的行位置存入 row 中，列位置存入变量 column 中. 答案：---------------------Dim i As Integer, j As Integer max = a(1, 1): row = 1: column = 1 For i = 1 To 2 For j = 1 To 3 If a(i, j) & a(row, column) Then max = a(i, j) row = i column = j End If Next j Next i Print &最大元素是&; max Print &在第& & row & &行,&; &第& & column & &列&31、题目：编写函数 fun 其功能是：根据整型形参 m，计算如下公式 的值：y=1/2!＋1/4!＋...＋1/m! (m 是偶数) 答案：---------------------Dim i As Integer, j As Integer, t As Integer fun = 0 For i = 2 To m Step 2 t=1 For j = 1 To i t=t*j Next fun = fun + 1 / t Next32、'题目： ：编写函数 fun，函数的功能是：计算并输出给定整数 n 的所有因子之和 （不包括 1 与自身） 。 规定 n 的值不大于 1000?例如： n 的值为 855 时，应输出 704。 答案：---------------------Dim s, i As Integer For i = 2 To n - 1 If n Mod i = 0 Then s=s+i End If Next Fun = s34、'题目：应用冒泡法对数组 A 按升序排列 基本思想：(将相邻两个数比较，小的调到前头) 1）有 n 个数（存放在数组 a(n)中） ，第一趟将每相邻两个数比较，小 的调到前头，经 n-1 次两两相邻比较后，最大的数已&沉底&，放在最 后一个位置，小数上升&浮起&； 2）第二趟对余下的 n-1 个数（最大的数已&沉底&）按上法比较，经 n-2 次两两相邻比较后得次大的数； 3）依次类推，n 个数共进行 n-1 趟比较，在第 j 趟中要进行 n-j 次两 两比较。 答案：---------------------Dim i, j, temp As Integer For i = 1 To n - 1 For j = 1 To n - i If a(j) & a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = temp End If Next j Next i 35、'题目： ：编写函数 fun 其功能是:判断一个整数 w 的各位数字平 方之和能否被 5 整除 , 可以被 5 整除则返回 1 , 否则返回 0 答案：---------------------Dim k As Integer, s As Integer Do s = s + (w Mod 10) * (w Mod 10) w = Int(w / 10) Loop While w && 0 If s Mod 5 = 0 Then k=1 Else k=0 End If fun = k37、'题目：编写函数 fun 其功能是：根据整型形参 m，计算如下公 式的值:y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5) 例如：若 m=9，则应 输出：1.168229 '要求：函数中用到的中间变量必须声明为 Single 类型。 答案：---------------------Dim y As Double Dim i As Integer For i = 0 To m y = y + 1 / (i + 5) Next Fun = y'------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：本程序功能为，单击窗体，Form1 的输出结果为 'A1=10 B1=20 'A2=20B2=10'请在【】处填入正确的内容'-------------------------------------------------------'**********SPACE********** Public Sub Swap1 【?】 x As Integer, ByVal y As Integer) Dim t As Integer t=x x=y y=t End SubPublic Sub Swap2(x As Integer, y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 10 b = 20 '**********SPACE********** 【?】 a, b Form1.Print &A1=&; a, &B1=&; b a = 10 b = 20 '**********SPACE********** 【?】 a, b Form1.Print &A2=&; a, &B2=&; b End Sub(ByValSwap1（）Swap2（）'【程序填空】 '------------------------------------------------------- '题目：&&&期末某班在一周 6 天内考三门分别为 x,y,z 的考试课程， 规定一天只能考一门，课程依次按先考 x，后考 y， '最后考 z，最后一门课程最早周五考。用计算机排考试，列出满足条 件的方案和方案数。&&&'------------------------------------------------------Sub Command1_Click() Dim x%, y%, z%, n% n=0 For x = 1 To 4 '**********SPACE********** For y = 【?】 To 5 For z = 5 To 6 '**********SPACE********** If 【?】 And y & z Then Print x & Space(9) & y & Space(9) & z '**********SPACE********** 【? 】 End If Next z Next y Next x Print n Label1 = &满足条件的方案数为：& & n End
期末VB程序填空+设计―汇集和整理大量word文档,专业文献,应用文书,考试资料,教学教材,办公文档,教程攻略,文档搜索下载下载,拥有海量中文文档库,关注高价值的实用信息,我们一直在努力,争取提供更多下载资源。}
|注册&您有新任务，
VB xlApp.Visible = False 为什么无法隐藏EXCEL应用程序窗口
被浏览105次
Private Sub Command2_Click()
Set xlApp = CreateObject(&Excel.Application&)
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(&D:\all.xls&)
Set xlSheet = xlBook.Worksheets(&all&)
For i = 5 To 179
a(i) = Trim(Right(xlSheet.Cells(i, 1), Len(xlSheet.Cells(i, 1)) - 1))
a(i) = Left(a(i), InStr(a(i), &镇&))
b(i) = xlSheet.Cells(i, 7)
xlApp.DisplayAlerts = False
xlBook.Saved = False
xlBook.Close
PS:该excel文件是由网页文件另存为的，所以带有一定的网页格式。
————————
请问如何隐藏这个excel应用程序窗口，谢谢啦。
采纳率：51%
我测试了，是隐藏了窗口的啊，只是需要声明两个数组dim a(),b() 用微信扫描二维码分享至好友和朋友圈分享到：
下面是答答童鞋给您的小建议，您看靠谱吗？初来乍到，弄错了您不要生气哦(*^__^*)答答小贴士
等您帮助的附近的朋友换一换
大家都在搜好搜APP下载好搜摸字APP 随时随地随心搜索 用好搜， 特顺手！
第9天生活就像海洋，只有意志坚强的人才能达到生命的彼岸。知道了这个vb程序的意思是什么，求详细运算过程和结果？_百度知道
这个vb程序的意思是什么，求详细运算过程和结果？
hiphotos.jpg" esrc="/zhidao/wh%3D450%2C600/sign=27e55fdc46a3bfb1f95cad1c86baef.baidu.jpg" target="_blank" title="点击查看大图" class="ikqb_img_alink"><img class="ikqb_img" src="/zhidao/pic/item/314e251f95cad1c86baef;<a href="/zhidao/wh%3D600%2C800/sign=3ba55c471d6f/314e251f95cad1c86baef.baidu://e://e://e.baidu.hiphotos 
其他数字都代表Yes.,当Do While 后面不是比较式的式子而是数字的时候,也就是可以继续循环的意思.,除了0是代表NO的意思。 n=246 k=1 num=246 Do While 246 (可以循环) k=1×6=6 这题的主要关键点是要明白
我还是不会算…………你能不能把具体过程写下来拍张照片给我啊，初学者有点笨……
其他类似问题
为您推荐：
其他1条回答
没有什么含义，就是为了让你理解for循环语句中各变量的变化
可是我不会算啊
n=15 i运行3次，j运行5次，n初始值为0，共运算15次，所以最后n=15i=4 i=3之后运行next，自动+1（step值为1）j=0 j=1之后运行next，自动-1（step值为-1）
I=1to3，为什么最后结果等于4
next之后会运行step，所以运行完3之后，还有一个next，所以i就成了4
vb程序的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁程序设计1 题目： 由输入对话框输入 n （n 必须为大于零且小于 30 的自然数） ， 计算下列表达式的值， 并在标签框 label1 上显示。 Sum=1/2+1/6+?? +1/(k*(k+1)) (k&=n)Private sub form_click() Dim n as integer, sum as double, k as
integer N = val(inputbox(“n=”,”请输入自然数 n（n&0 且 n&30）”)) Do while n &= 0 !! 30 !! n & orN = val(inputbox(“n=”,”请重新输入”)) Loop Sum = 0 K = 0 Do K = !! k+1 Sum = sum + 1/(k * (k+1)) !! Loop until !! !! Label1.caption = “sum” + str(sum) End sub (k+1) & n2 题目：下面的程序用于打印出以下图形。程序代码： Private sub form_click() Dim i%, j%, k% For I = 3 to 0 step -1 For j = 0 to 2 * i Print “ ”; Next j For k = 5 to !! Print “*” ; Next k !! 11-2*i print Next i For I = 0 to 3 For j = 0 to 2 * I + 2 !! Next j For k = 0 to 4-2 * i Print “*” ; Next k !! !! print !! print “ ”;Next i End sub3 题目：以下程序段用于实现：输入两个正整数 m 和 n，求其最大 公因数和最小公倍数。 程序代码： Private sub form_click () Dim a%, b%, num1%, num2%, temp Num1 = inputbox(“请输入一个正整数”) Num2 = inputbox(“请输入一个正整数”) If !! a&b !! then Temp = num1 : num1 = num2 : num2 = temp End if A = num1 B = num2 Do while !! a mod b && 0 !! Temp = a mod b A=b !! b = temp !! Loop Print “最大公约数为：”; b Print ”最小公倍数为：”; num1 *num2 /b End sub4 题目：窗体上建立一个文本框 text1,用于显示结果。单击按钮弹出 输入对话框，录入 0-6 之间的数值，判断输出值为星期几。 程序代码： Private sub command1_click() Dim x as integer X = val(!! inputbox !!(“请输入星期几（0~6）”)) Select case !! x !! Case is = 0 Text1.text = “星期日” Case is = 1 Text1.text = “星期 1” Case is = 2 Text1.text = “星期 2” Case is = 3 Text1.text = “星期 3” Case is = 4 Text1.text = “星期 4” Case is = 5 Text1.text = “星期 5” Case is = 6 Text1.text = “星期 6” Case !! else !! Text1.text = “输入错误” End select 5 题目：下面的时间过程判断文本框 text1 中输入的数所在区间，并 在文本框 text2 中输出判断结果。 程序代码： private sub command1_click() Dim int1 as integer !! int1 !! = val(text1.text) Select case int1 Case 0 Text2.text = “值为 0” Case !! 1 to 10 !! Text2.text = “值在 1 和 10 之间（包括 1 和 10）” Case Is & !! 10 !! Text2.text = “值大于 10” Case else Text2.text = “值小于 0” End select End sub Option Explicit'-------------------------------------------------------'【程序填空】'------------------------------------------------------'题目：程序输出结果为：n=3 x=42 y=9'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click() Dim n, x, y As Integer '**********SPACE********** n = 0: x =【1】: y = 0 Do While x & 20 '**********SPACE********** n = n 【+1】 y=x+y x = x * (x + 1) '**********SPACE********** 【loop】 Form1.Print &n=& & Str(n) Form1.Print &x=& & Str(x) Form1.Print &y=& & Str(y) End SubOption Explicit'------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：窗体上建立了一个文本框 Text1，用于显示结果。 ' 单击按钮弹出输入对话框录入 0-6 之间的数值， '判断输入值为星期几'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click()Dim x As Integer '**********SPACE********** x = Val(【inputbox】(&请输入星期几(0～6)&)) '**********SPACE********** Select Case 【x】 Case Is = 0 Text1.Text = &星期日(Sunday)& Case Is = 1 Text1.Text = &星期一(Monday)& Case Is = 2 Text1.Text = &星期二(Tuesday)& Case Is = 3 Text1.Text = &星期三(Wednesday)& Case Is = 4 Text1.Text = &星期四(Thursday)& Case Is = 5 Text1.Text = &星期五(Friday)& Case Is = 6 Text1.Text = &星期六(Saturday)& '**********SPACE********** Case 【else】 Text1.Text = &输入错误& End SelectEnd SubOption Explicit'------------------------------------------------------- '【程序填空】 '-------------------------------------------------------'题目：窗体中有 Text1-Text7 共 7 个文本框，单击按钮 Command1 在 ' Text7 中显示前 6 个文本框中的数值的最大数'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click() Dim a, b, c, d, e, f, m As Integer a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = Val(Text4.Text): e = Val(Text5.Text): f = Val(Text6.Text) Call max(a, b, c, m) Call max(m, d, e, m) Call max(m, f, f, m) '**********SPACE********** Text7.Text = 【m】 End Sub'**********SPACE********** Sub max(x, y, z【z】)If x & y Then m=x Else m=y End If '**********SPACE********** If m & 【str(m)】 Then m=z End If End SubOption Explicit '------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：窗体上建立了两个文本框 Text1(输入字符串)及 ' ' ' Text2(转换结果)，一个命令按钮 Command1(&清除&)。 录入 Text1 内容时将，将录入内容大写字母转为小写， 小写转为大写'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click()Text1.Text = && Text2.Text = && Text1.SetFocus End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Dim s As String * 1 '**********SPACE********** s = 【chr】(KeyAscii) Select Case s '**********SPACE********** Case &A& 【to】 &Z& s = LCase(s) Case &a& To &z& '**********SPACE********** s = 【ucase(s)】 Case Else s = &*& End Select Text2.Text = Text2.Text + s End Sub'下面的程序段，用于实现在一个 nXm 的矩阵中，找出值最大的元素 '所在的行和列，并输出其值及行号和列号。 'Private Sub Form_Click() Dim mat() As Integer Dim n As Integer, m As Integer n = Val(InputBox(&请输入矩阵的行数&)) m = Val(InputBox(&请输入矩阵的列数&)) '**********SPACE********** 【redim mat(n,m)】 For i = 1 To n For j = 1 To m mat(i, j) = InputBox(&请输入数组元素值&) mat(i, j) = Val(mat(i, j)) Next j Next i Print &所建立的矩阵为& For i = 1 To n For j = 1 To m Print mat(i, j); Next j Print Next i Max = mat(1, 1) For i = 1 To n For j = 1 To m '**********SPACE********** If 【max&mat(I,j)】 Then Max = mat(i, j) col = j '**********SPACE********** 【row=I】 End If Next j Next i Print Print &矩阵最大的元素的值为：&; mat(row, col) Print &它所在的行号为：&; &列号为：&; col End SubOption Explicit'------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：在窗体上画一个标签（名称为 Label1 ）和一个 ' ' 计时器（名称为 Timer1 ） ，然后编写如下几个事件过程： 要求：每一秒钟 Label1 更新显示一次系统时间'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Form_Load() Timer1.Enabled = False '**********SPACE********** Timer1.Interval = 【1000】End SubPrivate Sub Form_Click()'**********SPACE********** Timer1.Enabled = 【true】End SubPrivate Sub Timer1_Timer() '**********SPACE********** Label1.Caption = 【now】 End Sub Option Explicit '------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：写出程序运行后，单击窗体，Form1 上显示的内容 ' ' ' ' ' ' sum 函数的功能为求阶乘和 isum = 1 isum = 3 isum = 6 isum = 10 isum = 15'请在【?】处填入正确的内容'------------------------------------------------------' Private Sub Form_Click() Dim I As Integer, isum As Integer '**********SPACE********** For I = 1 To 【5】 isum = sum(I) '**********SPACE********** Form1.Print &isum＝& 【+ isum】 Next I End SubPrivate Function sum(n As Integer) Static j As Integer '**********SPACE********** 【j =】 sum = j End Function '以下程序段用于输出杨辉三角:结果样式如图 1 ' j+nPrivate Sub Form_Click()Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(i,1)=1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =【arr(I-1,j-1)+arr(I-1,j)】 Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(i,j)】 Next j Print Next I End Sub Option Explicit'下面过程 max()用于求 3 个数中最大值， 利用这个过程求 5 个数中最 大值。 ' Private Sub Form_Click() Print &5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 = 【max(max1, 73, 352) Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If 【a & b】 Then m=a Else m=b End If '**********SPACE********** If 【m & c】 Then max = m Else max = c End If End Function '下面的程序实现： 从键盘输入一个数字， 将其插入一个有序数组中， 插入后的数组仍保持有序。 ' '请在【】处填入正确的内容?Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox(&请输入要插入的整数&) '**********SPACE********** 【a(0) = x】 i=8 Do While a(i) & x '**********SPACE********** 【a(i + 1) = a(i) i=i-1 Loop '**********SPACE********** If i & 0 Then 【a(i + 1) = x】 For i = 1 To 9 Print a(i); Next i End Sub'根据输入的学习成绩,分别显示优秀(90 分以上), 良好(75 分以上), '及格(60 分以上),不及格几个等级。 ' '请在【】处填入正确的内容? Private Sub Command1_Click() X = Val(Text1.Text) If X &= 90 Then Print &优秀& '**********SPACE********** ElseIf X &= 75 Then Print &良好& ElseIf X &= 60 Then '**********SPACE********* 【print &及格& '**********SPACE********** 【else】 Print &优秀& End If End Sub'下面的程序段用于实现以下功能 : 利用冒泡法将一组整数从小到大 排序? ' Private Sub Form_Click() Const n = 15 Dim a(1 To n) As Integer, work As Boolean Dim i As Integer, j As Integer, x As Integer Randomize For i = 1 To n a(i) = Int(90 * Rnd) + 10 Next i For i = 1 To n Print a(i); Next i Print '**********SPACE********** For i = n To 2 【step -1】 work = True For j = 1 To i - 1 If a(j) & a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x '**********SPACE********** 【work=false】或者【work＝0】 End If Next j '**********SPACE********** If work Then 【exit for】 Next i For i = 1 To n Print a(i); Next i End SubOption Explicit'------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：在窗体上建立两个文本框 Text1(输入数)及 Text2(显示结果)， '一个命令按钮 Command1(&判断&)。单击按钮时判断 Text1中输入的数值 ' 是否是 4 的倍数。'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click() Dim x As Integer '**********SPACE********** If IsNumeric(Text1.Text) = 【false】 Then Text2.Text = &输入错误& Exit Sub End If '**********SPACE********** x = CInt(【text1.text】或者【text1】) '**********SPACE********** If 【x mod 4】 = 0 Then Text2.Text = &是 4 的倍数& Else Text2.Text = &不是 4 的倍数& End IfEnd Sub'下面的程序实现： 从键盘输入一个数字， 将其插入一个有序数组中， 插入后的数组仍保持有序。 ' '请在【】处填入正确的内容?Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox(&请输入要插入的整数&) '**********SPACE********** 【a(0)=x】 i=8 Do While a(i) & x '**********SPACE********** 【a(I+1)=a(i)】 i=i-1 Loop '**********SPACE********** If i & 0 Then 【a(i+1)=x】 For i = 1 To 9 Print a(i); Next i End Sub 代码功能： 输入数字 1-7,显示其对应的星期几(例:输入 1,显示星期日, '如果输入其它内容，一律显示&输入错误&) ' '请在【】处填入正确的内容?Private Sub Command1_Click() Dim x As Integer Dim y As String x = Val(Text1.Text) '**********SPACE********** 【select case x】 Case 1 y = &今天是星期日& Case 2 y = &星期一& Case 3 y = &星期二& Case 4 y = &星期三& Case 5 y = &星期四& Case 6 '**********SPACE********** 【y=“星期五”】 Case 7 y = &星期六& '**********SPACE********** 【case else】 y = &输入错误& End Select Text2.Text = y End Sub1. '题目：下面的程序用于求三个数中最大数 Private Sub Command1_Click()Max Max=b c&max Dim a, b, c, max, min As Integera = Val(InputBox(&请输入第一个数：&))b = Val(InputBox(& 请输入第二个数： &)) c = Val(InputBox(&请输入第三个数： &))'**********SPACE********** 【?】 = a min = a '**********SPACE********** If b & max Then 【?】 If b & min Then min = b '**********SPACE********** If 【?】 Then max = c If c & min Then min = cPrint &最大数为：&; max Print &最小数为：&; min End Sub 答案： Max Max=b c&max2. '下面过程 max()用于求 3 个数中最大值， 利用这个过程求 5 个数中 最大值。 ' Private Sub Form_Click() Print &5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If 【?】 Then m=aMax(max1,73,352) a&b m&c Else m=b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 答案：Max(max1,73,352) a&b m&c3. 题目：本程序执行功能为，输入系列字符串，按递减次序排列。 '（1）在文本框输入字符串，按回车键后存放到数组 a（）中； '（2）单击&排序&按钮（Command1）时，进行递减次序排列，并在 图形框控件显示。 '请在【】处填入正确的内容'------------------------------------------------------I+1 &a(j) a(i)=a(min) preserve a(n) text1.textDim a() As String, n As Integer Private Sub Command1_Click() n=n-1 For i = 0 To n - 1 imin = i '**********SPACE********** For j = 【?】 To n '**********SPACE********** If a(imin) 【?】 Then imin = j Next j t = a(i) '**********SPACE********** 【?】 a(imin) = t Next i For i = 0 To n Me.Picture1.Print a(i) Next i End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then '**********SPACE********** ReDim 【?】 '**********SPACE********** a(n) = 【?】 Text1.Text = && n=n+1 End If End Sub答案：I+1 &a(j) a(i)=a(min) preserve a(n) text1.text 4. '【程序填空】 '-------------------------------------------------------'题目：用输入对话框输入 x , 根据如图公式计算对应的 y, ' 并在窗体上输出 y 的值?Y Inputbox Y=0 +sin(x)'请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click() '**********SPACE********** Dim x As Single, 【?】 As Single '**********SPACE********** x = Val(【?】(&Please input x :&, &输入 X 的值&)) If x = 10 Then '**********SPACE********** 【?】 ElseIf x & 10 Then '**********SPACE********** y = Sqr(x) 【?】 Else y=2*x^3+6 End If Print yEnd Sub答案：Y Inputbox Y=0 +sin(x)5. '题目：程序输出结果为：n=3x=42y=91 +1 loop '请在【?】处填入正确的内容'------------------------------------------------------'Private Sub Command1_Click() Dim n, x, y As Integer '**********SPACE********** n = 0: x =【?】: y = 0 Do While x & 20 '**********SPACE********** n = n 【?】 y=x+y x = x * (x + 1) '**********SPACE********** 【?】 Form1.Print &n=& & Str(n) Form1.Print &x=& & Str(x) Form1.Print &y=& & Str(y) End Sub 答案： 1 +1 loop6. 下面的程序实现：从键盘输入一个数字，将其插入一个有序数组 中，插入后的数组仍保持有序。 ' '请在【】处填入正确的内容?a(0)=x a(i+1)=a(i) a(i+1)=xPrivate Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox(&请输入要插入的整数&) '**********SPACE********** 【?】 i=8 Do While a(i) & x '**********SPACE********** 【?】 i=i-1 Loop '**********SPACE********** If i & 0 Then 【?】 For i = 1 To 9 Print a(i); Next i End Sub答案：a(0)=x a(i+1)=a(i) a(i+1)=x7. '根据输入的学习成绩,分别显示优秀(90 分以上), 良好(75 分以上), '及格(60 分以上),不及格几个等级。 ' '请在【】处填入正确的内容?Else if x&=75 then Print “及格” ElsePrivate Sub Command1_Click() x = Val(Text1.Text) If x &= 90 Then Print &优秀& '**********SPACE********** 【?】 Print &良好& ElseIf x &= 60 Then '**********SPACE********** 【?】 '**********SPACE********** 【?】 Print &优秀& End If End Sub答案：Else if x&=75 then Print “及格” Else'------------------------------------------------------'【程序填空】 '------------------------------------------------------' 功能：输入一个数,若大于 0,则显示&+&；若小于 0， ' 则显示 &-&；若等于&0&,则显示&零&。'------------------------------------------------------Private Sub Command1_Click( ) x = Val(Text1.Text) Select Case x '**********SPACE********** Case is & 0 Label1.Caption = &+& Case Is & 0 '**********SPACE********** Label1.Caption = &-& '**********SPACE********** Case is = Label1.Caption = &零& End Select End Sub答案： 1). 2). 3). Case Is & 0 Label1.Caption = &-& Case 0 或 Case Else 或 Case Is = 0'功能：输入任何一个英文字母 x, ' ' ' 若 x 的值为&a&,&c&,&d-f& ,则显示 x 的大写字母； 若 x 的值为&m&,&o&,&p-z&,则显示 x 的小写字母； 若 x 的值为其它的值,则显示 xa（如输入的 X 的值是 g，则显示 ga） 。 '------------------------------------------------------Private Sub Command1_Click() x = Text1.Text '**********SPACE********** 【?】 '**********SPACE********** Case 【?】 Label1.Caption = UCase(x) Case &m&, &o&, &p& To &z& Label1.Caption = LCase(x) Case Else '**********SPACE********** 【?】 End Select End Sub答案： 1). 2). Select Case x &a&, &c&, &d& To &f& 3).Label1.Caption = Trim(x) + &a& 或 Label1.Caption = x + &a&'功能：以下程序的功能如(图 1)。'-------------------------------------------------------Private Sub Form_Click() Dim a%, b%, c%, d! Dim x1, x2 Dim p, q, r a = InputBox(&请输入 a 的值&) b = InputBox(&请输入 b 的值&) c = InputBox(&请输入 c 的值&) d=b*b-4*a*c p = -b / (2 * a) If d &= 0 Then '**********SPACE********** If 【?】 Then r = Sqr(d) / (2 * a) x1 = p + r x2 = p - r Else x1 = p x2 = p '**********SPACE********** 【?】 Print &x1=&; x1, &x2=&; x2 '**********SPACE********** 【?】 q = Sqr(-d) / (2 * a) Print &x1=&; &+&; &i&, &x2=&; &-&; &i& End If End Sub答案： 1). 2). 3). d&0 或 0&d End If Else '------------------------------------------------------'功能：下面的程序段用于建立文件并输出文件，文件内容如下： ' '***** ' ***** ' ***** ' ' ***** *****'------------------------------------------------------Private Sub Form_Click() '**********SPACE********** Open &c:\1.txt& For 【?】 As #1 For i = 1 To 5 Print #1, Spc(i); &*****& Next i '**********SPACE********** 【?】 '**********SPACE********** Open &c:\1.txt& For 【?】 As #1 For i = 1 To 5 Line Input #1, x Print x Next i Close #1 End Sub答案： 1). 2). 3). Output Close #1 或 Close Input'------------------------------------------------------'功能：以下程序段用于求∑n! '------------------------------------------------------Private Sub Form_Click() Dim sum As Integer, n As Integer n = InputBox(&请输入一个正整数&) sum = 0 For i = 1 To n '**********SPACE********** sum =【?】 Next i Print sum End SubPrivate Function mul(ByVal x As Integer) Dim s As Integer, i As Integer s=1 '**********SPACE********** For i = 1 To 【?】 s=s*i Next i '**********SPACE********** 【?】 End Function 答案： 1). 2). 3). sum★+★ mul(i) x mul = s'功能：根据输入的学习成绩,分别显示优秀(90 分以上), 良好 ' (75 分以上),及格(60 分以上),不及格几个等级。'------------------------------------------------------Private Sub Command1_Click() x = Val(Text1.Text) If x &= 90 Then Label1.Caption = &优秀& '**********SPACE********** ElseIf 【?】Then Label1.Caption = &良好& ElseIf x &= 60 Then '**********SPACE********** 【?】 '**********SPACE********** 【?】 Label1.Caption = &不及格& End If End Sub答案： 1). 2). 3). x &= 75 或 75 &= X Label1.Caption = &及格& 或 Label1 = &及格& Else-----------------------------------------------------'功能：从键盘输入学生分数，统计学生总人数和各分数段人数， ' ' 即优秀（90-100） 、良好（80-89） 、中等（70-79） 、 及格（60-69） 、不及格（60 以下）的人数。'------------------------------------------------------- Private Sub Form_Click() Dim score%, n1%, n2%, n3%, n4%, n5% msg = &请输入分数（-1 结束）& msgtitile = &输入数据& score = Val(InputBox(msg, msgtitle)) '**********SPACE********** While 【?】 total = total + 1 '**********SPACE********** Select Case 【?】 Case Is &= 90 n1 = n1 + 1 Case Is &= 80 n2 = n2 + 1 Case Is &= 70 n3 = n3 + 1 Case Is &= 60 n4 = n4 + 1 Case Else n5 = n5 + 1 '**********SPACE********** 【?】 score = Val(InputBox(msg, msgtitle)) Wend Print n1, n2, n3, n4, n5,total End Sub答案： 1). score &=0 ★And★ score &= 100 或 0&=score ★And★ 100&=score 或 score &=0 ★score &= 100 或 0&=score ★And★ And★ 100&=score 2). 3). score End Select'------------------------------------------------------'功能：输入数字 1-7,显示其对应是星期几(例:输入 1,显示星期日, ' 如果输入其它内容，一律显示&输入错误&)'------------------------------------------------------Private Sub Command1_Click() dim x as integer dim y as string x=val(text1.text) '**********SPACE********** 【?】 case 1 y=&今天是星期日& case 2 y=&星期一& case 3 y=&星期二& case 4 y= &星期三& case 5 y=&星期四& case 6 '**********SPACE********** 【? 】 case 7 y= &星期六& '**********SPACE********** 【?】 y = &输入错误& end select Text2.Text = y End Sub答案： 1). 2). 3). select case x y=&星期五& Case Else'------------------------------------------------------'下面过程 max()用于求 3 个数中最大值， 利用这个过程求 5 个数中最 大值。 '------------------------------------------------------Private Sub Form_Click() Print &5 个数 34、124、68、73、352 的最大值是：& max1 = max(34, 124, 68) '**********SPACE********** max1 =【?】 Print max1 End Sub Public Function max(ByVal a%, ByVal b%, ByVal c%) '**********SPACE********** If 【?】 Then m=a Else m=b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function 答案： 1). 2). 3). max(max1, 73, 352) a&b 或 b&a m&c 或 c&m'------------------------------------------------------'功能：下面的程序段用于实现以下功能：利用冒泡法将一组整数 ' 从小到大排序。'------------------------------------------------------Private Sub Form_Click() Const n = 15 Dim a(1 To n) As Integer, work As Boolean Dim i As Integer, j As Integer, x As Integer Randomize For i = 1 To n a(i) = Int(90 * Rnd) + 10 Next i For i = 1 To n Print a(i); Next i Print '**********SPACE********** For i = n To 2 【?】 work = True For j = 1 To i - 1 If a(j) & a(j + 1) Then x = a(j): a(j) = a(j + 1): a(j + 1) = x '**********SPACE********** 【?】 End If Next j '**********SPACE********** If work Then 【?】 Next i For i = 1 To n Print a(i); Next i End Sub 答案： 1). 2). 3). Step -1 work = False 或 work=0 或 not work = true Exit For'功能：以下程序用于判断一个正整数（≥3）是否为素数。'-------------------------------------------------------Private Sub Form_Click() n = InputBox(&请输入一个正整数（≥3）&) k = Int(Sqr(n)) i=2 swit = 0 '**********SPACE********** Do While i &= k And 【?】 '**********SPACE********** If 【?】 Then swit = 1 Else '**********SPACE********** 【?】 End If Loop If swit = 0 Then P &是一个素数& Else P &不是素数& End If End Sub答案： 1). 2). swit = 0 n Mod i = 0 或 n/i ★= ★ n\i 或 n/i ★=★ int(n/i) n\i 或 n/i =int(n/i)）n Mod i = 0 （或 n/i = 3).i = ★i ★+★ 1 i=i+1'功能：过程 suixian 可以判断某一个数字是否是水仙花数，利用 ' ' ' 该过程找出三位数中所有水仙花数。 所谓&水仙花数&是指一个 3 位数，其各位数字立方和等于 该数本身。'------------------------------------------------------Private Sub Form_Click() Dim i As IntegerFor i = 100 To 999 '**********SPACE********** 【?】 Next i End Sub Public Sub suixian(x As Integer) Dim i%, j%, k% '**********SPACE********** i =【?】 j = (x - i * 100) \ 10 k = x - i * 100 - j * 10 '**********SPACE********** If 【?】 Then Print x End Sub答案： 1). 2). 3). suixian (i) 或 call suixian (i) 或 suixian i x \ 100 或 int(x/100)x =★ i ^ 3★ +★ j ^ 3★ +★ k ^ 3 或 x =★ i*i*i★ +★ j*j*j★ +★ k *k*k x = i ^ 3 +j ^ 3 + k ^ 3 或 x = i*i*i + j*j*j + k *k*k'功能：从键盘上输入一串字符，以&?&结束，统计输入字符中的 ' 大、小写字母和数字的个数。'------------------------------------------------------Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0 ch = InputBox(&请输入一个字符&) '**********SPACE********** Do While 【?】 Select Case ch Case &a& To &z& n1 = n1 + 1 '**********SPACE********** Case 【?】 n2 = n2 + 1 Case &0& To &9& n3 = n3 + 1 End Select ch = InputBox(&请输入一个字符&) '**********SPACE********** 【?】 Print n1, n2, n3 End Sub答案： 1).ch ★&&★ &?& 或 not ch = &?& 或 not &?&=chch && &?& 或 not ch = &?& 或 not &?&=ch 2). 3). &A& To &Z& Loop'功能：本程序用于实现：从键盘接收一数字，判断其是否在数组 ' ' 中，如果在数组中则将其删除，否则显示该数字不在数组 中。'------------------------------------------------------Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print x = InputBox(&请输入要删除的整数&) For i = 1 To 10 '**********SPACE********** If a(i) = x Then 【?】 Next i '**********SPACE********** If 【?】 Then For k = i To 9 '**********SPACE********** 【?】 Next k Print &删除后的数组:& For i = 1 To 9 Print a(i); Next i Else Print &该数字不在数组中& End If End Sub答案： 1). 2). Exit For i&10 或 10&i 3).a(k) = a(★ k ★+ ★1★)a(k) = a( k + 1)'功能：利用下面的过程求 m!和 m*n '------------------------------------------------------Private Sub Form_Click() Dim m As Integer, n As Integer m=2 n=3 '**********SPACE********** 【?】 End Sub Private Sub find(x As Integer, y As Integer) Dim s, i As Integer '**********SPACE********** 【?】 For i = 1 To x s=s*i '**********SPACE********** p=【?】 Next i Print s, p End Sub答案： 1). 2). 3). p+y 或 find m, n 或 call find(m,n)s = 1 或 s = 1:p=0 p★+★y x*y 或 x*y'功能：求 A,B,C 三个数的最大值。 '------------------------------------------------------Private Sub Command1_Click() A = Val(Text1.Text) '**********SPACE********** 【?】 C = Val(Text3.Text) If A & B And A & C Then MAXDATE = A '**********SPACE********** ElseIf 【?】 Then MAXDATE = B Else '**********SPACE********** 【?】 End If Label1.Caption = MAXDATE & &是最大值& End Sub答案： 1). 2). a&b B& C 或 C&B 或 B& C and b&a 或 c&b and a&b 3). MAXDATE = C B = Val(Text2.Text) 或 b=val(text2)B& C 或 C&B 或 B& C ★ and ★ b&a 或 c&b ★ and ★'功能：以下程序段利用随机函数生成 15 个 10-100 之间的整数， 然后用选择法将其从小到大排序。 '------------------------------------------------------Private Sub Form_Click() Const n = 15 Dim a(1 To n) As Integer Dim i As Integer, j As Integer, t As Integer, min As Integer Randomize For i = 1 To n '**********SPACE********** a(i) =【?】 Next i For i = 1 To n Print a(i); Next i Print For i = 1 To n - 1 '**********SPACE********** 【?】 For j = i + 1 To n If a(j) & a(t) Then t = j Next j '**********SPACE********** If 【?】 Then min = a(i): a(i) = a(t): a(t) = min End If Next i For i = 1 To n Print a(i); Next i End Sub答案： 1). Int(★100★ *★ Rnd★)★ +★ 10Int(100 * Rnd)+ 10 2). 3). t && I 或 t=i t★ && ★I 或 t&i 或 t&i 或 i&t 或 not t=i 或 not i=t 或 not i=ti&t 或 not t=i'功能：以下程序的功能如(图 1)。 '------------------------------------------------------- Private Sub Form_Click() Dim s As Single, m As Integer, p# s=1 For m = 1 To 10 '**********SPACE********** p=【?】 s=s+1/p Next m Print s End SubFunction n(k%) p=1 For m = 1 To k '**********SPACE********** p =【?】 Next m '**********SPACE********** 【?】 End Function 答案： 1). 2). p*m 3). n=p n(m) p ★ *★ m'下面的程序段用于打印出以下图形 ' ' ' ' ' ' ' ' ' '------------------------------------------------------* *** ***** ******* ***** *** * Private Sub Form_Click() Dim i%, j%, k% For i = 3 To 0 Step -1 For j = 0 To 2 * i Print & &; Next j '**********SPACE********** For k = 5 To 【?】 Print &*&; Next k Print Next i For i = 0 To 3 For j = 0 To 2 * i + 2 '**********SPACE********** 【?】 Next j For k = 0 To 4 - 2 * i Print &*&; Next k '**********SPACE********** 【?】 Next i End Sub答案： 1). 2★*★i★-★1★Step★-12*i-1 Step-1 2). 3). Print & &; 或 ? & &; Print 或 ?------------------'功能：窗体上建立了一个文本框 Text1(&输入口令&)和一个命令按钮 Command1(&检查&)。 ' ' 判断密码是否正确，并显示相应提示 在加载窗体时设置密码框最大长度为 8， 密码显示字符为 “* ”'------------------------------------------------------- dim x as string Private Sub Command1_Click() x = Text1.Text '**********SPACE********** If x 【?】 && Then MsgBox (&欢迎你用机!&) Else MsgBox (&对不起，口令错&) End If Text1.Text = && Text1.SetFocus End SubPrivate Sub Form_Load() Text1.Text = && '**********SPACE********** Text1.【?】 = 8 '**********SPACE********** Text1.【?】 = &*& End Sub 答案： 1). 2). 3). = MaxLength PasswordChar'功能：下面的程序段，用于实现在一个 nXm 的矩阵中，找出值最 ' 大的元素所在的行和列，并输出其值及行号和列号。'------------------------------------------------------Private Sub Form_Click() Dim mat() As Integer Dim n as integer, m As Integer n = Val(InputBox(&请输入矩阵的行数&)) m = Val(InputBox(&请输入矩阵的列数&)) '**********SPACE********** 【?】 For i = 1 To n For j = 1 To m mat(i, j) = InputBox(&请输入数组元素值&) mat(i, j) = Val(mat(i, j)) Next j Next i Print &所建立的矩阵为& For i = 1 To n For j = 1 To m Print mat(i, j); Next j Print Next i Max = mat(1, 1) For i = 1 To n For j = 1 To m '**********SPACE********** If 【?】 Then Max = mat(i, j) col = j '**********SPACE********** 【?】 End If Next j Next i Print Print &矩阵最大的元素的值为：&; mat(row, col) Print &它所在的行号为：&; &列号为：&; col End Sub答案： 1). 2). 3). ReDim mat(n, m) As Integer 或 ReDim mat(n, m) Max & mat(i, j) 或 mat(i, j) & Max row = I'功能：下面的程序段用于求矩阵相乘 C=A×B，设 A、B、C 分别为 ' m×p、p×n、m×n 的矩阵。'------------------------------------------------------- Private Sub Form_Click() Const m = 4, p = 3, n = 2 Dim a(1 To m, 1 To p) As Integer Dim b(1 To p, 1 To n) As Integer Dim c(1 To m, 1 To n) As Integer Dim i As Integer, j As Integer, k As Integer, sum As Integer For i = 1 To m For k = 1 To p a(i, k) = i Next k Next i For i = 1 To p For k = 1 To n b(i, k) = i Next k Next i For i = 1 To m For j = 1 To n '**********SPACE********** 【?】 For k = 1 To p '**********SPACE********** sum = sum +【?】 Next k '**********SPACE********** c(i, j) =【?】 Next j, i Print &输出矩阵& For i = 1 To m For k = 1 To n Print c(i, k), Next k Print Next i End Sub答案： 1). 2). sum = 0 a(i, k) ★*★ b(k, j)a(i, k) * b(k, j) 3).sum'功能：下面的程序段用于打印出以下图形 ' ' ' ' ' ' ' ' * *** ***** ******* ***** *** *'------------------------------------------------------Private Sub Form_Click() Dim i%, j%, k% For i = 0 To 3 For j = 0 To 2 - i Print & &; Next j '**********SPACE********** For k = 1 To 【?】 Print &*&; Next k Print Next i For i = 0 To 2 For j = 0 To i '**********SPACE********** 【?】 Next j For k = 0 To 4 - 2 * i Print &*&; Next k '**********SPACE********** 【?】 Next i End Sub答案： 1). 2 * i+1 2). 3).2★ *★ i★+★1Print & &; 或 form1.print & &; 或 ? & &; Print 或 form1.Print 或 ?'功能：以下程序段用于实现：输入两个正整数 m 和 n，求其最大 ' 公因数和最小公倍数。'------------------------------------------------------Private Sub Form_Click() Dim a%, b%, num1%, num2%, temp num1 = InputBox(&请输入一个正整数&) num2 = InputBox(&请输入一个正整数&) '**********SPACE********** If 【?】 Then temp = num1: num1 = num2: num2 = temp End If a = num1 b = num2 '**********SPACE********** Do While 【?】 temp = a Mod b a=b '**********SPACE********** 【?】 Loop Print &最大公因数为：&; a Print &最小公倍数为：&; num1 * num2 / a End Sub答案： 1). 2). temp&0 num1 & num2 或 num2 & num1 b ★ && ★ 0 或 b & 0 或 0 & b 或 temp&&0 或 0 &temp 或 not b=0 或 not 0=b 或 temp&0 或 0 或b && 0 或 b & 0 或 0 & b 或 temp&&0 &temp 或 not b=0 3). b = temp 或 not 0=b'功能：以下程序段用于输出杨辉三角：结果样式如图 1 '------------------------------------------------------Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【?】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =【?】 Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** ? 【?】& & &; Next j Print Next I End Sub答案： 1). 2). arr(i, 1) = 1 ★arr(i - 1, j - 1)★ +★ arr(i - 1, j)arr(i - 1, j - 1) + arr(i - 1, j) 3). arr(i, j) 或 str(arr(i, j))'功能： 以下程序段用于实现矩阵转置， 即将一个 n×m 的矩阵的行和 列 ' 互换'------------------------------------------------------Private Sub Form_Click() Const n = 3 Const m = 4 Dim a(n, m), b(m, m) As Integer For I = 1 To n For j = 1 To m a(I, j) = Int(Rnd * 90) + 10 Next j '**********SPACE********** 【?】 For I = 1 To n For j = 1 To m '**********SPACE********** 【?】 Next j Next I Print &矩阵转置前& For I = 1 To n For j = 1 To m Print a(I, j); Next j '**********SPACE********** 【?】 Next I Print &矩阵转置后& For I = 1 To m For j = 1 To n Print b(I, j); Next j Print Next I End Sub答案： 1). 2). 3). Next i 或 Next b(j, i) = a(i, j) print 或 form1.print 或 ?'功能：下面的程序实现：从键盘输入一个数字，将其插入一个 ' 有序数组中，插入后的数组仍保持有序。'------------------------------------------------------Private Sub Form_Click() Dim a(10) As Integer, x As Integer For i = 1 To 8 a(i) = 2 * i - 1 Print a(i); Next i Print x = InputBox(&请输入要插入的整数&) '**********SPACE********** 【?】 i=8 Do While a(i) & x '**********SPACE********** 【?】 i=i-1 Loop '**********SPACE********** If i & 0 Then 【?】 For i = 1 To 9 Print a(i); Next i End Sub 答案： 1). 2). 3). a(0) = x a(i + 1) = a(i) 或 a(1+i) = a(i) a(i + 1) = x 或 a(1 + i) = x'功能：求 1!+2!+??+10!的值。 '------------------------------------------------------Private Sub Form_Click() '**********SPACE********** 【?】 s=1 For I = 2 To 10 t=t*I '**********SPACE********** 【?】 '**********SPACE********** 【?】 Print s End Sub 答案： 1). 2). 3). t=1 s =s+t Next I 或 Next'功能：本程序求3~100之间的所有素数（质数）并统计个数； ' ' 同时将这些素数从小到大依次写入顺序文件 dataout.txt ； 素数的个数显示在窗体Form1上。'------------------------------------------------------' Private Sub Command1_Click() Dim count As Integer, flag As Boolean Dim t1 As Integer, t2 As Integer '**********SPACE********** Open App.Path & &\dataout.txt& For Output As 【?】 count = 0 For t1 = 3 To 100 '**********SPACE********** flag = 【?】 For t2 = 2 To Int(Sqr(t1)) If t1 Mod t2 = 0 Then flag = False Next t2 If flag Then '**********SPACE********** count = 【?】 Write #1, t1 End If Next t1 Form1.Print &素数个数&; count Close #1End Sub 答案： 1). 2). 3). #1 True count + 1 或 1 + count ------'【程序填空】 '------------------------------------------------------'功能：在窗体上画一个标签（名称为 Label1 ）和一个 ' ' 计时器（名称为 Timer1 ），然后编写如下几个事件过程： 要求：每一秒钟Label1更新显示一次系统时间'------------------------------------------------------Private Sub Form_Load() Timer1.Enabled = False '**********SPACE********** Timer1.Interval = 【?】 End Sub Private Sub Form_Click() '**********SPACE********** Timer1.Enabled = 【?】 End Sub Private Sub Timer1_Timer() '**********SPACE********** Label1.Caption = 【?】 End Sub 答案： 1). 2). 3). 1000 True Now 或 Time 或 Now() 或 Time()'【程序填空】 '------------------------------------------------------'功能：在窗体上有两个列表框List1(处理前数据)和List2(处理 ' ' ' ' 后数据)，以及标签Label1。程序功能为：随机生成100个 0-20（不包括0和20）的随机数填入List1，并将这些随机 数中的零元素删除，填入List2中。最后在Label1中显示零 元素个数'------------------------------------------------------Private Sub Form_Load() Dim n As Integer Dim i, x, k As Integer Dim a(100) As Integer, b(100) As Integer Randomize n = 100 '**********SPACE********** For i = 1 To 【?】 '**********SPACE********** x = Int(20 * 【?】) List1.AddItem x a(i) = x Next i k = 0 For i = 1 To n If a(i) && 0 Then '**********SPACE********** 【?】: b(k) = a(i) List2.AddItem b(k) End If Next i Label1.Caption = &数组中零元素个数：& + Str(n - k) End Sub 答案： 1). 2). 3). n 或 100 '删除零元素Rnd 或 Rnd(1) k = k + 1 或 k =1+k'------------------------------------------------------- '功能：由输入对话框输入n（n必须为大于零且小于30的自然数）， ' ' 计算下列表达式的值，并在标签框Label1上显示。 sum=1/2+1/6+ ... +1/(k*(k+1)) (k&=n)'------------------------------------------------------Private Sub Form_Click() Dim n As Integer, sum As Double, k As Integer n = Val(InputBox(&n=&, &请输入自然数n(n&0 且n&30)&)) '**********SPACE********** Do While n &= 0 【?】 n &= 30 n = Val(InputBox(&n=&, &请重输入&)) Loop sum = 0 k = 0 Do '**********SPACE********** k =【?】 sum = sum + 1 / (k * (k + 1)) '**********SPACE********** Loop Until 【?】 Label1.Caption = &Sum=& + Str(sum) End Sub 答案： 1). 2). 3). Or k + 1 或 1 + k k &= n 或 n &= k 或 k = n'【程序填空】 '------------------------------------------------------'功能：本程序执行后，最终在窗体上打印数字7。 '------------------------------------------------------Private Sub Command1_Click() Dim a As String '**********SPACE********** Open App.Path & &\abc.bat& For 【?】 As #1 n = 8 For I = 1 To n Print #1, I + 1 Next I Close #1 '**********SPACE********** Open App.Path & &\abc.bat& For 【?】 As #1 For I = 1 To n Input #1, a If I Mod 5 = 0 Then '**********SPACE********** Print CInt(a) + 【?】 End If Next I Close #1 End Sub 答案： 1). 2). 3). Output Input 1'------------------------------------------------------'功能：用户界面如图所示，实现左右两个组合框中数据的左移和右 移功能。 ' 程序开始运行时，在左边组合框中生成10个由小到大排列的随机三位 ' True), 正整数 (在设计阶段该组合框的Sorted属性值已设置为 ' '现要求完成: （1）单击&＞＞&钮，左边组合框中的10个数全部移动到右边组合框， ' ' ，同时使&＜＜&钮能响应，&＞＞&钮不能响应。 （2）单击&＜＜&钮，右边组合框中的10个数全部移到左边的组合框， ，同时使&＞＞&钮能响应，&＜＜&钮不能响应； ' （3）单击&结束&按钮，结束程序运行。'------------------------------------------------------Private Sub cmdLeft_Click() Dim i As Integer For i = 0 To comboRight.ListCount - 1 comboLeft.AddItem comboRight.List(i) Next i comboRight.Clear '**********SPACE********** 【?】= False '**********SPACE********** 【?】 = True End Sub Private Sub cmdRight_Click() Dim i As Integer '**********SPACE********** For i = 0 To 【?】 - 1 comboRight.AddItem comboLeft.List(i) Next i '**********SPACE********** 【?】.Clear cmdRight.Enabled = False cmdLeft.Enabled = True End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Dim i As Integer Label1.Caption = &组合框1& Label2.Caption = &组合框2& cmdRight.Caption = &&&& cmdRight.Enabled = True cmdLeft.Caption = &&&& cmdLeft.Enabled = False cmdExit.Caption = &结束& comboLeft.Text = && For i = 1 To 10 comboLeft.AddItem Int(Rnd * 900) + 100 Next i comboRight.Text = && End Sub 答案： 1). 2). 3). 4). cmdLeft.Enabled cmdRight.Enabled comboLeft.ListCount comboLeft'------------------------------------------------------'功能：本程序执行功能为，命令按钮单击一次后，窗体上输出结果 为： ' ' 36 25 ' '16 9'------------------------------------------------------Private Sub Command1_Click() Dim xx(6) As Integer Dim k% Open App.Path & &\al.dat& For Output As #1 For I = 1 To 6 '**********SPACE********** j = 【?】 Print #1, j Next I Close #1 Open App.Path & &\al.dat& For Input As #2 k = 0 Do While Not EOF(2) '**********SPACE********** k = 【?】 Input #2, xx(k) Loop Close #2 '**********SPACE********** For I = k To k / 2 Step【?】 Form1.Print xx(I) Next I End Sub 答案： 1). 2). 3). I * I 或 i^2k + 1 或 1 + k -1'------------------------------------------------------'功能：用Circle 方法在图片框正中画出许多不同颜色的同心圆， ' 且不能画出图片框。'------------------------------------------------------Private Sub Picture1_Click() Dim CX, CY, Radius, Limit ScaleMode = 3 '**********SPACE********** CX = 【?】 CY = Picture1.ScaleHeight / 2 '**********SPACE********** If CX & CY Then Limit = CY Else 【?】 '**********SPACE********** For Radius = 0 To 【?】 Picture1.Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255) Next Radius End Sub 答案： 1). 2). 3). Picture1.ScaleWidth / 2 Limit = CX Limit'功能：在窗体上画一个标签（名称为 Label1 ）和一个计时器（名 称为 Timer1 ），然后编写如下几个事件过程： 要求：每一秒钟 Label1更新显示一次系统时间 '------------------------------------------Private Sub Form_Load() Timer1.Enabled = False '**********SPACE********** Timer1.Interval = 【?】 Private Sub Form_Click() '**********SPACE********** Timer1.Enabled = 【?】 End Sub Private Sub Timer1_Timer() '**********SPACE********** Label1.Caption = 【?】 End Sub now true 1000 一、程序设计'【程序设计】 1.'题目：编写函数 fun，函数的功能是：计算两个正整数的最大公 约数，并显示。如： '两个数为 15、20，结果显示&5& '要求使用 Do ... Loop 语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n2.'题目：判断一个数是否是素数。 答案：---------------------Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------3,'题目：(事件)单击窗体。 ' (响应)求 10!的值，并将结果输出到窗体上。将结果存入变量 SUM 中。 答案：---------------------Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求 1+2+3+??+100 的值，并把结果输出在窗体上。结果存 入变量 SUM 中。 答案：---------------------Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------5,'题目： 编写函数 fun， 函数的功能是： 求 1 到 m 之间的偶数之积。 答案：---------------------Dim y As Double y = 1 Dim i As Integer For i = 1 To m If i Mod 2 = 0 Then y = y * i End If Next fun = y ---------------------6,'题目：编写函数 fun，函数的功能是：根据一个百分制成绩 mark （整数） ，显示对应五级制的评定。条件如下： mark 大于等于 90 显示&优秀& mark 小于 90 且大于等于 80 显示&良好& mark 小于 80 且大于等于 70 显示&中等& mark 小于 70 且大于等于 60 显示&及格& mark 小于 60 显示&不及格&要求使用 Select 语句来实现。答案：Select Case mark Case Is &= 90 fun = &优秀& Case Is &= 80 fun = &良好& Case Is &= 70 fun = &中等& Case Is &= 60 fun = &及格& Case Else fun = &不及格& End Select 7,'题目：(事件)双击窗体(响应)求 100 以内奇数的和，并将结果输 出在窗体上。将结果存入变量 SUM 中 答案：---------------------Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum ---------------------8,'题目： (事件)单击窗体。 ' (响应)输 100-200 之间所有素数，并将这些数求和，求和结果存入所给变量 SUM 中。 答案：-----------------------------------For i = 100 To 200 For j = 2 To Sqr(i) If i Mod j = 0 Then Exit For Next If j & Int(Sqr(i)) Then Sum = Sum + i End If Next Print Sum ------------------------------------ 9,'题目：将一个十进制整数 m 转换成 →r(2－16)进制字符串。 方法：将 m 不断除 r 取余数，直到商为零，以反序得到结果。下面 写出一转换函数，参数 idec 为十进制数，ibase 为要转换成数的基 （如二进制的基是 2，八进制的基是 8 等） ，函数输出结果是字符串 chr 函数：将 ascii 码转换为对应字母。 答案：---------------------Dim strDecR$, iDecR% strDecR = && Do While idec && 0 iDecR = idec Mod ibase If iDecR &= 10 Then strDecR = Chr$(65 + iDecR - 10) & strDecR Else strDecR = iDecR & strDecR End If idec = idec \ ibase Loop TrDec = strDecR ---------------------10,'题目： (事件)单击按钮。 (响应)随机产生 N 个两位正整数（N 由输入对话框输入，且 N&0） ， 求出其中的最大数和最小数，并在标签框 Label1 上显示最大数与最 小数的差。 答案：-------------------------------x = InputBox(&请输入 x&) n = 1 t = x s = x Do Until Abs(t) & 0. n = n + 1 t = t * (-1) / n s = s + t Loop Label1.Caption = &s=& & s -------------------------------'题目： (事件)单击窗体。 ' (响应)已知 s=1+1/3!+1/5!+1/7!+1/9!,请将 s 结果值输出到窗体上。使用 do while...loop 语句完成程序 答案：---------------------Dim i As Integer i = 1 p = 1 Do While i &= 9 p = p * i If i Mod 2 = 1 Then s = s + 1 / p End If i = i + 1 Loop Print s sum=s ---------------------'题目： (事件)单击窗体。 ' (响应)求从 100 到 1000 之间所有是 3 的倍数的数之和，当和大于 3000 时，停止计算并输出和。请将结果输出到窗体上,并存 入所给变量 SUM 中。使用 for...next 语句完成程序 答案：---------------------Dim i As Integer sum=0 for i=100 to 1000 if i mod 3=0 then sum=sum+i if sum&3000 then exit for endif endif i=i+1 next Print sum ---------------------'题目： (事件)单击窗体。 ' (响应)求 1-100 中为 5 或 7 的倍数的和。请将结果输出到窗体上,并存入所给变量 SUM 中。使用 while...wend 语句完成程序 答案：---------------------Dim i As Integer i = 1 While i &= 100 If i Mod 5 = 0 Or i Mod 7 = 0 Then Sum = Sum + i End If i = i + 1 Wend Print Sum ----------------------'题目： (事件)单击窗体。 ' (响应)求出 100 以内所有素数的和，并将结果输出到窗体上,并存入所给变量 SUM 中。 答案：---------------------Dim i As Integer Dim j As Integer Dim k As Integer Dim b As Boolean b = False For i =2 To 100 b = False j = CInt(Sqr(i)) For k = 2 To j If i Mod k = 0 Then b = True End If Next If b = False Then sum = sum + i End If Next Print sum ---------------------'题目：(事件)单击窗体。 ' (响应)求 1!+2!+3!+??+10!的值，并在窗体上输出。结果存入变量 L 中。 答案：---------------------Dim i As Integer Dim s As Long Dim j As Integer s = 1 For i = 1 To 10 s = s * i l = l + s Next Print Str(l) ---------------------'题目：编写函数 fun，函数的功能是：求一个四位数的各位数字的 立方和答案：---------------------Dim d As Integer, k As Integer, s As Integer While n & 0 d = n Mod 10 s = s + d * d * d n = n / 10 Wend fun = s '【程序设计】 '------------------------------------------------'题目： (事件)单击窗体。 ' ' ' (响应)已知 sum=1-1/4+1/9-1/16+1/25...-1/100, 请将 sum 结果值输出到窗体上。 使用 for...next 语句完成程序 答案：---------------------Dim i As Integer for i = 1 to 10 sum = sum + (-1) ^ (i - 1) /(i*i) next Print sum'题目：编写函数 fun，其功能是:能计算从 1 开始到 n 的 ' 自然数中偶数的平方的和。答案：---------------------Dim sum As Integer, i As Integer sum = 0 For i = 2 To n Step 2 sum = sum + i * i Next fun = sum '题目：请用 Select 语句编程计算打折后的金额？'折扣方法如下: ' ' ' ' ' ' 购物 300 以下，无优惠（使用 MsgBox 显示“无优惠”） ； 购物 300 以上，95 折； 购物 500 以上，9 折； 购物 1000 以上，85 折； 购物 5000 以上，8 折?答案：Select Case n Case Is & 5000 n = n * 0.8 Case Is & 1000 n = n * 0.85 Case Is & 500 n = n * 0.9 Case Is & 300 n = n * 0.95 Case Else MsgBox &无优惠& End Select '题目：将一张面值为 100 元的人民币等值换成 100 张 5 元、1 元和 0.5 元的零钞，要求每种零钞不少于 1 张， ' 问有哪几种组合？将组合数存入变量 OUT 中。答案：---------------------Dim n As Integer Dim i%, j%, k% Print &5? For i = 1 To 20 For j = 1 To 100 - i k = 100 - i - j If 5# * i + 1# * j + 0.5 * k = 100 Then Print i, j, k n = n + 1 End If Next j Next i out = n 1? 0.5?& ---------------------'题目：(事件)单击窗体。 ' (响应)我国现有人口为 13 亿，设年增长率为 1%，计算多少年后增加到 20 亿。并将结果输出在窗体上。将结果存入变 量 year 中。使用 do while ...loop 语句完成程序。 答案：---------------------dim p as double dim r as single dim n as integer p= r=0.01 do while p=p+p*r n=n+1 loop print &n=&,n year=n ---------------------'题目：应用选择法对数组 A 按升序排列 基本思想: p& 1）对有 n 个数的序列（存放在数组 a(n)中） ，从中选出最小的数， 与第 1 个数交换位置； 2）除第 1 个数外，其余 n-1 个数中选最小的数，与第 2 个数交换位 置； 3）依次类推，选择了 n-1 次后，这个数列已按升序排列。 答案：---------------------Dim i, j, imin, temp As Integer For i = 1 To n - 1 imin = i For j = i + 1 To n If a(imin) & a(j) Then imin = j Next j temp = a(i) a(i) = a(imin) a(imin) = temp Next i ---------------------'题目： (事件)单击窗体。 ' (响应)求一个数,它除 3 余 2，除 5 余 3，除 7 余 2，请将满足上面条件的最小数保存到 sum 变量中。使用 for...next 语句完成 程序 答案：---------------------Dim i As Integer For i = 2 To 1000 If i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2 Then Print i Exit For End If Next i sum = i ---------------------'题目：(事件)单击窗体。 ' (响应)生成一个一维数组(10 个数组元素依此为：15、23、72、43、96、23、3、65、88、17)，写程序求出这个数组中的最大 值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均 值分别存入变量 Max,Min,Aver 中 答案：---------------------Dim a(9) As Integer Dim i, s As Integer a(0) = 15 a(1) = 23 a(2) = 72 a(3) = 43 a(4) = 96 a(5) = 23 a(6) = 3 a(7) = 65 a(8) = 88 a(9) = 17 max = a(0) min = a(0) s = 0 For i = 0 To 9 If a(i) & max Then max = a(i) End If If a(i) & min Then min = a(i) End If s = s + a(i) Next aver = Int(s / 10) Print (CStr(max)) Print (CStr(min)) Print (CStr(aver)) ---------------------'题目：(事件)双击窗体。 ' (响应)求 s=1+1×2+1×2×3+?+1×2×3×?×10，并将结果存到变量 S 中 答案：---------------------Dim i, j As Integer Dim k As Long k = 1 s = 0 For i = 1 To 10 For j = 1 To i k = k * j Next s = s + k k = 1 Next Print (CStr(s)) ---------------------'题目：(事件)单击窗体。 ' (响应)求 100 到 500 之间奇数的和，将结果输出在窗体上并存入变量 SUM 中。 使用 do...loop until 语句完成程序 答案：---------------------Dim i As Integer i=100 do If i Mod 2 = 1 Then sum = sum + i End If i=i+1 loop until i&500 Print sum ---------------------'题目：(事件)单击窗体。 '(响应)已知 S=1+1/4+1/9+1/16+1/25+?+1/100， 结果输出在窗体上。 答案：---------------------Dim i As Integers = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------'题目： (事件)单击命令按钮 Command1。 ' (响应)计算如下表达式 s 的值,s=1+(1*2)+(1*2*3)+??+(1*2*3*??*6) 并将结果输出到文本框 Text1 中。 答案：Dim j As Integer Dim i As Integer j = 1 s = 0 For i = 1 To 6 j = j * i s = s + j Next i Text1.Text = s 题目：求两个数 m,n 的最大公约数 p 和最小公倍数 q 答案：---------------------nm = n * m If m & n Then t = m: m = n: n = t r = m Mod n Do While (r && 0) m = n n = r r = m Mod n Loop p = n q = nm / n ---------------------'题目：编写函数 fun，函数的功能是：计算 n 门课程的平均值，计 算结果作为函数值返回。 例如，若有 5 门课程的成绩是：92，76，69，58，88，则函数的值 为 76.6。 答案：---------------------Dim i As Integer Dim y As Single For i = 1 To n y = y + a(i) Next fun = y / n ---------------------'题目：(事件)单击窗体。 ' (响应)求 200~300 之间既能被 3 整除又能被 7 整除的数。并求出所有数之和存入变量 SUM 中 答案：---------------------Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum ---------------------'题目：(事件)单击窗体 ' (响应)用输入框输入一自然数，判断是&正数&、&负数&或&零&，并根据输入的数用消息框显示&正数&、&负数&或&零&。 答案：------------------------------------n = InputBox(&输入一个自然数&) If n & 0 Then result = &正数& ElseIf n & 0 Then result = &负数& ElseIf n = 0 Then result = &零& End If MsgBox &输入的数据& & n & &为：& & result 或者 ------------------------------------'题目：(事件)双击窗体。 ' (响应)求出 50 以内所有奇数的和。 将结果存入变量 SUM 中。答案：---------------------- Dim i As Integer For i = 1 To 50 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum ----------------------'题目：编写函数 fun，函数的功能是：判断一个字符是 '字母字符、数字字符还是其他字符，并做相应的显示。 字母字符显示字符串&字母&数字字符显示字符串&数字& '其他字符显示字符串&其他&要求使用 IF 语句来实现。 答案：If UCase(n) &= &A& And UCase(n) &= &Z& Then fun = &字母& ElseIf n &= &0& And n &= &9& Then fun = &数字& Else fun = &其他& End If '题目：(事件)单击窗体。 ' (响应)求 50 以内所有偶数的和，并在窗体上输出出来。将结果存入变量 S 中。 答案：---------------------Dim i As Integer For i = 2 To 50 If (i Mod 2) = 0 Then s = s + i End If Next Print (CStr(s)) ---------------------'题目：(事件)单击窗体。 ' (响应)求 100 以内偶数的和，并将结果输出在窗体上。将结果存入变量 SUM 中 答案：---------------------Dim i As Integer For i = 1 To 100 If i Mod 2 = 0 Then sum = sum + i End If Next Print sum ---------------------题目：(事件)双击窗体。 ' (响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚） ，求出其所有的换法，把结果输出在窗体上。将所有的换法的 数目存入变量 N 中 答案：---------------------Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k)) n = n + 1 End If Next Next Next ---------------------'题目：编写函数 fun 其功能是：根据整型形参 m，计算 如下公式的值：y=1/2＋1/4＋1/6＋...＋1/2m 例如：若 m=9，则应 输出：1.13 答案：---------------------Dim y As Double Dim i As Integer For i = 1 To m y = y + 1 / (2 * i) Next fun = y 题目： 编写函数 fun 其功能是： 根据整型形参 m， 计算如下公式的值: ' ' y=1＋1/3＋1/5＋1/7＋...＋1/(2m+1) 例如：若 m=9，则应输出：2.133255------------------------------------------------答案：---------------------Dim y As Double Dim i As Integer y = 1 For i = 1 To m y = y + 1 / (2 * i + 1) Next fun = y1、'题目：(事件)单击窗体。 (响应)求 10~20 之间所有素数的乘积并输出在窗体上。 将结果存入变 量 L 中。 答案：---------------------Dim i As Integer Dim j As Integer Dim b As Boolean l=1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l=l*i End If b = False Next Print Str(l) ----------------------2、'题目：(事件)单击窗体。 (响应)求 1 - 1/2 + 1/3 - 1/4 + ?? + 1/99 - 1/100 的值。将结果存入 变量 J 中。 答案：---------------------Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j=j+1/i ElseIf i Mod 2 = 0 Then j=j-1/i End If Next Print j4、'题目：(事件)双击窗体。(响应)求 1+2+3+5+8+13+??前 20 项的 和，并将结果在窗体上输出。将结果存入变量 SUM 中。 答案：---------------------Dim i As Integer Dim j(1 To 20) As Integer For i = 1 To 20 If i & 3 Then j(i) = i Else j(i) = j(i - 1) + j(i - 2) End If sum = sum + j(i) Next Print sum 5、'题目：(事件)单击窗体。 (响应)求 10!的值， 并将结果输出到窗体上。 将结果存入变量 SUM 中。 答案：---------------------Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum6、'题目： (事件)单击窗体。 (响应)已知 sum=1-1/3!+1/5!-1/7!+1/9!,请将 sum 结果值输出到窗体上。 使用 do while...loop 语句完成程序 答案：---------------------Dim i As Integer Dim n As Integer i=1 p=1 Do While i &= 10 p=p*i If i Mod 2 = 1 Then n=n+1 sum = sum + (-1) ^ (n - 1) / p End If i=i+1 Loop Print sum8、'题目：(事件)双击窗体。 (响应)s=20+21+22+?+263，求 s 的值，并将结果存储到变量 S 中。 答案：---------------------Dim i As Integer i = 20 While i &= 263 s=s+i i=i+1 Wend Print (CStr(s))9、'题目：(事件)单击窗体。 (响应)编写程序求 10×11×12+11×12×13+?+15×16×17 的结果， 并将结果输出到窗体上。将结果存入变量 M 中 答案：---------------------Dim i, j As Integer Dim s As Long For i = 10 To 15 s=1 For j = i To i + 2 s=s*j Next m=m+s Next Print (CStr(m))12、题目：(事件)双击窗体。 (响应)编写代码功能如(图 1)。将结果存入变量 S 中 答案：---------------------Dim i As Integer s=1 For i = 1 To 10 s=s*i*i Next Print (CStr(s))14、题目：(事件)双击窗体。 (响应)求 3+6+9+12+15+18+??+300 的和，并将结果输出到窗体上。将结果存入变量 SUM 中。 答案：---------------------Dim i As Integer For i = 3 To 300 If i Mod 3 = 0 Then sum = sum + i End If Next Print sum15、题目： (事件)单击窗体。 (响应)输出所有的三位数，它满足该 数中有某两位为相同的数，且该数是一个完全平方数。求出所有这 些数的和，并将结果存入变量 SUM 中。 答案：---------------------- dim a as integer,b as integer dim b3 as integer,b2 as integer,b1 as integer for a=10 to 31 b=a*a b3=b\100 b2=(b\10) mod 10 b1=b mod 10 if b1=b2 or b1=b3 or b2=b3 then ? a,b sum=sum+b end if next a ? sum18、题目：(事件)单击窗体。 (响应)输出一个如图所示的由数字组成 的倒三角形请将结果存入变量 S 中(要求利用 msgbox 函数显示结果， 使用 for...next 语句完成程序) 答案：---------------------Dim tmp As String Dim i As Integer, j As Integer tmp = && For i = 10 To 1 Step -1 For j = 0 To i - 1 tmp = tmp & CStr(j) Next tmp = tmp & vbCrLf Next MsgBox tmp s = tmp22、'题目：用迭代法求某个数的平方根。 已知求平方根的迭代公式 如图： 算法思想：对于一个问题的求解 x，可由给定的一个初值 x0，根据 某一迭代公式得到一个新的值 x1，这个新值 x1 比初值 x0 更接近要 求的值 x；再以新值作为初值，即：x1→x0,重新按原来的方法求 x1, 重复这一过和直到|x1-x0|&ε (某一给定的精度)。此时可将 x1 作为问 题的解。 答案：---------------------Dim x0 As Single, x1 As Single x0 = a / 2 '迭代初值 x1 = 0.5 * (x0 + a / x0) Do x0 = x1 '为下一次迭代作准备x1 = 0.5 * (x0 + a / x0) Loop While Abs(x1 - x0) & 0.00001 Fsqrt = x123、'题目：统计字符串中的单词个数。 '算法思路: （1）从文本（字符串）的左边开始，取出一个字符；设逻辑量 WT 表示所取字符是否是单词内的字符，初值设为 False （2）若所取字符不是&空格&，&逗号&，&分号&或&感叹号&等单词的分 隔符，再判断 WT 是否为 True，若 WT 不为 True 则表是新单词的开 始，让单词数 Nw=Nw+1，让 WT=T （3）若所取字符是&空格&，&逗号&，&分号&或&感叹号&等单词的分隔 符，则表示字符不是单词内字符，让 WT=F (4) 再依次取下一个字符，重得（2）(3)直到文本结束。 答案：---------------------Dim nw As Integer, nL As Integer Dim i As Integer Dim strT As String Dim Wt As Boolean nw = 0: Wt = False nL = Len(RTrim(strI)) For i = 1 To nL strT = Mid$(strI, i, 1) Select Case strT Case & &, &,&, &;&, &!& Wt = False Case Else If Not Wt Then nw = nw + 1 Wt = True End If End Select Next i CountWord = nw '取第 i 个字符27、'题目：对字符串进行加密处理。 加密过程:将每个字母 C 加一序数 K＝5， 即 c=chr(Asc(c)-5),这时 &Z& → &U& ， &z& → &u& ， &Y& → &T& ?当加序数后的字母小于 &A& 或 &a& 则 c=Chr(Asc(c)-k +26) 答案：---------------------Dim i As Integer Dim strp As String, strT As String, iA As String Dim nl As String i = 1: strp = &&nl = Len(RTrim(strI)) Do While (i &= nl) strT = Mid$(strI, i, 1) '取第 i 个字符If (strT &= &A& And strT &= &Z&) Then iA = Asc(strT) + 5 If iA & Asc(&Z&) Then iA = iA - 26 strp = strp + Chr$(iA) ElseIf (strT &= &a& And strT &= &z&) Then iA = Asc(strT) + 5 If iA & Asc(&z&) Then iA = iA - 26 strp = strp + Chr$(iA) Else strp = strp + strT End If i=i+1 Loop EnyStr = strp29、'题目：求二维数组中最大元素及其所在的行和列并将最大值存 入变量 Max 中，将最大值的行位置存入 row 中，列位置存入变量 column 中. 答案：---------------------Dim i As Integer, j As Integer max = a(1, 1): row = 1: column = 1 For i = 1 To 2 For j = 1 To 3 If a(i, j) & a(row, column) Then max = a(i, j) row = i column = j End If Next j Next i Print &最大元素是&; max Print &在第& & row & &行,&; &第& & column & &列&31、题目：编写函数 fun 其功能是：根据整型形参 m，计算如下公式 的值：y=1/2!＋1/4!＋...＋1/m! (m 是偶数) 答案：---------------------Dim i As Integer, j As Integer, t As Integer fun = 0 For i = 2 To m Step 2 t=1 For j = 1 To i t=t*j Next fun = fun + 1 / t Next32、'题目： ：编写函数 fun，函数的功能是：计算并输出给定整数 n 的所有因子之和 （不包括 1 与自身） 。 规定 n 的值不大于 1000?例如： n 的值为 855 时，应输出 704。 答案：---------------------Dim s, i As Integer For i = 2 To n - 1 If n Mod i = 0 Then s=s+i End If Next Fun = s34、'题目：应用冒泡法对数组 A 按升序排列 基本思想：(将相邻两个数比较，小的调到前头) 1）有 n 个数（存放在数组 a(n)中） ，第一趟将每相邻两个数比较，小 的调到前头，经 n-1 次两两相邻比较后，最大的数已&沉底&，放在最 后一个位置，小数上升&浮起&； 2）第二趟对余下的 n-1 个数（最大的数已&沉底&）按上法比较，经 n-2 次两两相邻比较后得次大的数； 3）依次类推，n 个数共进行 n-1 趟比较，在第 j 趟中要进行 n-j 次两 两比较。 答案：---------------------Dim i, j, temp As Integer For i = 1 To n - 1 For j = 1 To n - i If a(j) & a(j + 1) Then temp = a(j): a(j) = a(j + 1): a(j + 1) = temp End If Next j Next i 35、'题目： ：编写函数 fun 其功能是:判断一个整数 w 的各位数字平 方之和能否被 5 整除 , 可以被 5 整除则返回 1 , 否则返回 0 答案：---------------------Dim k As Integer, s As Integer Do s = s + (w Mod 10) * (w Mod 10) w = Int(w / 10) Loop While w && 0 If s Mod 5 = 0 Then k=1 Else k=0 End If fun = k37、'题目：编写函数 fun 其功能是：根据整型形参 m，计算如下公 式的值:y=1/5+1/6+1/7+1/8+1/9+1/10...+1/(m+5) 例如：若 m=9，则应 输出：1.168229 '要求：函数中用到的中间变量必须声明为 Single 类型。 答案：---------------------Dim y As Double Dim i As Integer For i = 0 To m y = y + 1 / (i + 5) Next Fun = y'------------------------------------------------------'【程序填空】 '-------------------------------------------------------'题目：本程序功能为，单击窗体，Form1 的输出结果为 'A1=10 B1=20 'A2=20B2=10'请在【】处填入正确的内容'-------------------------------------------------------'**********SPACE********** Public Sub Swap1 【?】 x As Integer, ByVal y As Integer) Dim t As Integer t=x x=y y=t End SubPublic Sub Swap2(x As Integer, y As Integer) Dim t As Integer t=x x=y y=t End Sub Private Sub Form_Click() Dim a As Integer, b As Integer a = 10 b = 20 '**********SPACE********** 【?】 a, b Form1.Print &A1=&; a, &B1=&; b a = 10 b = 20 '**********SPACE********** 【?】 a, b Form1.Print &A2=&; a, &B2=&; b End Sub(ByValSwap1（）Swap2（）'【程序填空】 '------------------------------------------------------- '题目：&&&期末某班在一周 6 天内考三门分别为 x,y,z 的考试课程， 规定一天只能考一门，课程依次按先考 x，后考 y， '最后考 z，最后一门课程最早周五考。用计算机排考试，列出满足条 件的方案和方案数。&&&'------------------------------------------------------Sub Command1_Click() Dim x%, y%, z%, n% n=0 For x = 1 To 4 '**********SPACE********** For y = 【?】 To 5 For z = 5 To 6 '**********SPACE********** If 【?】 And y & z Then Print x & Space(9) & y & Space(9) & z '**********SPACE********** 【? 】 End If Next z Next y Next x Print n Label1 = &满足条件的方案数为：& & n End
期末VB程序填空+设计―汇集和整理大量word文档,专业文献,应用文书,考试资料,教学教材,办公文档,教程攻略,文档搜索下载下载,拥有海量中文文档库,关注高价值的实用信息,我们一直在努力,争取提供更多下载资源。}
我要回帖
更多推荐
- ·麦当劳唯一开倒闭的店新地放了一个礼拜还能吃吗？
- ·gc_cam软件是干什么用的在哪里下载？
- ·请问，哪个十大第三方支付平台台比较好？
- ·打算做羊奶代理需要多少钱粉店，请问是加盟好还是自己干？
- ·想开一家美容护肤品加盟店10大排名店？该不该做加盟？
- ·qq有的人位置显示10000多迈腾10000公里保养,实际只有1000多迈腾10000公里保养
- ·maya挤压工具怎么ai比例缩放工具面
- ·谁有kill me heal me的速度与激情7高清云盘百度云盘下载地址呀，分享给我下，万分感谢！
- ·踏遍神州皆春色,一代天骄成吉思汗,历代天骄,笑看人间尽风骚的意思
- ·百世汇通可以到付吗280322329406现在到那
- ·当前网络和手机流量费用备受关注,已知a组数据如下某种包月流量的收费如下
- ·在爱奇艺代金券上面抽的奖有五十元的代金券怎么用
- ·我买了一个iphone5s卡在开机界面，不开机，有锁，拿去售后，他们说要停用查找我的iphone，但是我没有帐
- ·想两个战斗口号，有点类似部队那种演习打仗的口号，实在想不出来了，有心人国光帮帮忙节目单吧！班主任要啊，作业！
- ·三星note2返回键失灵3606返回健失灵了怎么半
- ·百度知道高手亲爱的你在哪里里？问一些稍微专业的问题，就很少有人吭声了，醉了
- ·刚刚在百度知道上看到一个女的头像 突然有种很美好 和 轻松熊头像的感觉 那些美好的画面和季节一下子
- ·求sony vegas哪个版本好要比较稳定的版本，要中文
- ·我要下载4399生死狙击下载连第25至40集
- ·免费获取手机验证码信息验证填什么
- ·VB 求详细过程 为什么结果为vb true falsee？？
- ·我在一个小县城，这边买浙江汽车票务网、火车票都不是很方便，有没有什么票务代理软件可以解决一票难求的问题？
- ·oppo1105怎么样电信版手机无缘无故出现耳机模式怎么样都去不掉
- ·2015年属鼠人的运程1996年农历10月29日下午5点8分出生的运气，将来事业有成吗？
- ·小米wifi无法上网手机使用电脑网络上网无法看直播
- ·vs2013 序列号的cuda程序使用核函数的地方有红色波浪线
- ·用flash转换王 注册码导出的视频为什么只能放一半
- ·月经期提重物有啥影响软件可以把和自己一起曾网的人提掉
- ·康佳led48m1200af升级50x1200af怎么升级,为什么升级不了
- ·欧姆龙plc编程软件9.5CX-Programm关于无法加载缺省plc的问题
- ·初中被几个人打了现在 心里不舒服还是很不舒服
- ·如何查看qq悄悄话是谁可以和谁说
- ·中央街区购物中心有阿玛尼品牌吗
- ·v819i root怎么保存照片
- ·百度首页这一栏百度影音广告怎么去掉掉
- ·CAD求指教这个图的详细cad画图步骤骤CAD求大神
