为了解决用户可能碰到关于"VB程序设计问题：编写判断某数是否为素数的程序。要求主控程序输入要判断的整数并输出结果，子过程或函数过程进行判断"相关的问题，志乐园经过收集整理为用户提供相关的解决办法，请注意，解决办法仅供参考，不代表本网同意其意见,如有任何问题请与本网联系。"VB程序设计问题：编写判断某数是否为素数的程序。要求主控程序输入要判断的整数并输出结果，子过程或函数过程进行判断"相关的详细问题如下:
'这里是判断某数是否为素数的函数Private Function IsPrime(n As Integer) As BooleanDim i As IntegerIsPrime = TrueFor i = 2 To CInt(Sqr(n))If (n Mod i = 0) Then& IsPrime = FalseEnd IfNextIf n = 0 Or n = 1 ThenIsPrime = FalseEnd IfEnd Function'这里是主控函数Private Sub Command1_Click()Dim i As Integeri = Int(InputBox("请输入一个整数"))If IsPrime(i) Then& Print i & "是一个素数"Else& Print i & "不是一个素数"End IfEnd Sub大概这个意思咯，供参考，望采纳：）
我问你一个问题，如果我在过程中弄了一个K，那么，我在主程序里面是不是不能用这个K
没关系的，可以用，因为此k非彼k。过程中的K是其局部变量，不影响主程序的。
||||点击排行VB上机练习题_伤城文章网
VB上机练习题
〖第 1 题〗 『程序填空』(1 分)(题号:532) 【程序填空】''题目:输入 n 个数,n 由用户输入. ' 程序的功能是将输入的 n 个数反向输出? 请在【】处填入正确的 Private Sub Form_Load() Dim n As Integer Dim k As Integer Dim m As Integer Dim h As Integer Dim t As Integer Show Dim a(100) As Single n = Val(InputBox(&输入个数 n&)) Print &处理前数据 :& '**********SPACE********** For k = 1 To 【n】 a(k) = Val(InputBox(&请输入第& & k & &个数&)) Print a(k); Next k Print '**********SPACE********** m = Int(【n / 2】) For k = 1 To m h = n - k + 1 '**********SPACE********** t = a(h): 【?】: a(k) = t Next k Print &处理的结果 :& For k = 1 To n Print a(k); Next k End Sub 答案:1). 2). 3). n n / 2 a(h) = a(k) End Sub 答案: 1). 2). 3).For I = 1 To 6 '**********SPACE********** j = 【?】 Print #1, j Next I Close #1 Open App.Path & &\a1.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 II * I k + 1 或 1 + k -1〖第 3 题〗 『程序填空』(1 分)(题号:501) '【程序填空】 ''题目:本程序执行后,最终在窗体上打印数字 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 题〗 『程序填空』(1 分)(题号:498) '【程序填空】 ''题目:本程序执行功能为,命令按钮单击一次后,窗体上输出结 果为: '36 '25 '16 '9 请在【】处填入正确的内容 Private Sub Command1_Click() Dim xx(6) As Integer Dim k% Open App.Path & &\al.dat& For Output As #11). 2). 3).Output Input 1Label2.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〖第 5 题〗 『程序填空』(1 分)(题号:503) '【程序填空】 ''题目:用户界面如图所示,用实现左右两个组合框中数据的左移 和右移功能. ' ' ' ' ' ' 应; ' (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& 2 程序开始运行时, 在左边组合框中生成 10 个由小到大排列 正整数 (假设在设计阶段该组合框的 Sorted 属性值已设 (1)单击&&&&钮,左边组合框中的 10 个数全部移动到 小排列, 同时使&&&&钮能响应, &&&&钮不能响应. (2)单击&&&&钮,右边组合框中的 10 个数全部移到左 大排列,同时使&&&&钮能响应,&&&&钮不能响 的随机三位 置为 True), 现要求完成: 右边组合框,并由大到边的组合框,并由小到〖第 6 题〗 『程序填空』(1 分)(题号:511) '【程序填空】 ''题目:程序输出结果为:n=3 请在【】处填入正确的内容 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). 2). 3). 1 + 1 Loop x=42 y=9〖第 8 题〗 『程序填空』(1 分)(题号:507) '【程序填空】 '题目: ' 本程序实现功能:将顺序文本文件 &MYFILE.TXT& 的 内容一个字符一个字符地读入文本框 t 俄 xtTest 中请在【】处填入正确的内容 Private Sub Form_Click() Dim InputData As String * 1 txtTest.Text = &&'**********SPACE********** Open App.Path & &\MYFILE.TXT& For 【?】 As #1 '**********SPACE********** Do While 【?】 EOF(1) Input #1, InputData '**********SPACE********** txtTest.Text = txtTest.Text + 【?】 Loop Close #1 End Sub 答案: 1). 2). 3). Input Not InputData' 的 ' '显示 x 的大写字母;若 x 的值为&m&,&o&,&p-z&,则显示 x 小写字母;若为其它的值,则显示 xa(如输入的 X 的值是 g,则显示 ga) .Private Sub Command1_Click() x = Text1.Text '**********SPACE********** 【?】 Case &a&, &c&, &d& To &f& Label1.Caption = UCase(x) '**********SPACE********** Case 【?】 Label1.Caption = LCase(x) '**********SPACE********** 【?】 Label1.Caption = Trim(x) + &a& End Select End Sub 答案: 1). 2). 3). Select Case x &m&, &o&, &p& To &z& Case Else〖第 9 题〗 『程序填空』(1 分)(题号:50) '【程序填空】 ''题目:从键盘上输入一串字符,以&?&结束,统计输入字符中的 ' 大,小写字母和数字的个数. Private Sub Form_Click() Dim ch$, n1%, n2%, n3% n1 = 0 n2 = 0 n3 = 0 ch = InputBox(&请输入一个字符&) '**********SPACE********** 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). 2). 3). ch ★&&★ &?& &A& To &Z& Wend 【?】 【?】〖第 11 题〗 『程序填空』(1 分)(题号:65) '【程序填空】 '题目:根据输入的学习成绩,分别显示优秀(90 分以上), 良好(75 ' 分以上),及格(60 分以上),不及格几个等级. Private 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 答案: 1). 2). 3). ElseIf x &= 75 Then 或 ElseIf print &及格& Else 75 &= x Then〖第 10 题〗 『程序填空』(1 分)(题号:62) '【程序填空】 ''题目:输入任何一个英文字母 x,若 x 的值 为&a&,&c&,&d-f& , 则 3〖第 12 题〗 『程序填空』(1 分)(题号:60) '【程序填空 '题目:输入任何一个英文字母 x,' ' ' ga) .若 x 的值 为&a&,&c&,&d-f& ,则显示 x 的大写字母; 若 x 的值为&m&,&o&,&p-z&,则显示 x 的小写字母; 若为其它的值,则显示 xa(如输入的 X 的值是 g,则显示iAsc = Asc(strTemp) + 5 If iAsc & Asc(&Z&) Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) + Chr$(iAsc) ElseIf (strTemp &= &a& And strTemp &= &z&) Then iAsc = Asc(strTemp) + 5 If iAsc & Asc(&z&) Then iAsc = iAsc - 26 Code = Left$(Code, i - 1) + Chr$(iAsc) Else Code = Left$(Code, i - 1) + strTemp End If i = i + 1 Loop '**********SPACE********** 【?】 End Sub 答案: 'strInput = txtInput.Text 'Length = Len(RTrim(strInput)) 'strTemp = Mid(strInput, i, 1) '显示加密结果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********** 【?【 Ejd Select End Sub 答案: 1). 3). Select Case x 2). &a&, &c&, &d& To &f& Label1.Capion = ★Trim(x) ★+★ &a&'txtCode.Text = Code 答案: 1). 2). 3). 4).txtCode = Code〖第 13 题〗 『程序填空』(1 分)(题号:495)'【程序牢 '【程序牢 '题目: 本程序将利用文本框 txtInput 输入的一行字符串中的所有 '字母加密,加密,加密结果在文本框 txtCode 中显示.加密方法 如 '下:将每个字母的序号移动 5 个位置,即&A&-&&F&,&a -&&f&, '&B&-&&G&......&Y&-&&D&,&Z&-&&E&.程序段如下: '请在【】处填恼返哪谌 Private Sub Form_Click() Dil strInput As String * 70 '输入字符串 Dim Code AS String * 70 Dim strTemp As String * 1 Dim i As Intager Dim Length As Integer Dim iAsc As Inege2 '**********SPACE********(* プ址 【?】 i = 1 Code = && '**********SPACE********** 【?】 格,求真正的长度 Do While (i &= Length) '**********SPACE********** 【?】 '取第 i 个字符 If (strTemp &= &A& And strTemp &= &Z&) Then 4 '去掉字符串右边的空 プ址 '字符串长度 '第 i 个字 Ascii 码 【 ? 】 '加密结果 '当前处理的字符strInput=txtInput 或 strInput=txtInput.Text Length = Len(RTrim(strInput)) strTemp = Mid(strInput, i, 1) txtCode.Text = Code 或 txtCode = Code〖第 14 题〗 『程序填空』(1 分)(题号:531) '【程序填空】 ''题目:打印出 100-999 之间的所有水仙花数 ' 身 ' 则这个数为水仙花数 请在【】处填入正确的内容 Private Sub Command1_Click() Dim i As Integer, a As Integer, b As Integer, c As Integer '**********SPACE********** For i = 100 To 【?】 '**********SPACE********** a = Int(i / 【?】) b = Int((i - 100 * a) / 10) '**********SPACE********** c = i - 100 * a - 【?】 If a * a * a + b * b * b + c * c * c = i Then Print i End If Next i End Sub 答案: 如果一个数的 百位,十位,个位数的立方和等于这个数本1). 2). 3).999 100 10 * b 或 b * 10End If a = num1 b = num2 '**********SPACE********** While 【?】 temp = a Mod b a = b '**********SPACE********** 【?】 Wend Print &最大公因数为:&; a Print &最小公倍数为:&; num1 * num2 / a End Sub 答案: 1). 2). 3). num1 & num2 或 num2 & num1 b ★&&★ 0 b = temp〖第 15 题〗 『程序填空』(1 分)(题号:36) '【程序填空】 ''题目:以下程序的功能如(图 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〖第 17 题〗 『程序填空』(1 分)(题号:520) '【程序填空】 '题目:完成程序,使程序输出值为 15 '请在【】处填入正确的内容 Private Sub Command1_Click() '**********SPACE********** Dim i, j, x,【?】 As Integer For i = 1 To 4 x = 4 For j = 1 To 3 x = 3 '**********SPACE********** For 【?】 = 1 To 2 '**********SPACE********** x = x + 【?】 Next k Next j Next i Print x End Sub 答案: 1). 2). 3). k k 6〖第 16 题〗 『程序填空』(1 分)(题号:47) '【程序填空】 '题目:以下程序段用于实现:输入两个正整数 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 5〖第 18 题〗 『程序填空』(1 分)(题号:539) '【程序填空】 '题目: 随机生成 10 个数存入数组中,并将数组排序后输出 '请在【】处填入正确的内容 Private Sub Command1_Click() Dim a(10) As Integer Dim i, j, t As IntegerFor i = 1 To 10 '**********SPACE********** a(i) = CInt(10 【?】 Rnd + 1) Next For i = 1 To 9 '**********SPACE********** For j = 【?】 To 10 '**********SPACE********** If a(i) &【?】 Then t = a(i): a(i) = a(j): a(j) = t End If Next j Next i For i = 1 To 10 Print a(i) Next End Sub 答案: 1). 2). 3). * i + 1 或 1 + i a(j) 答案: 1). 2). 3). End Subm = z End Ifm z, m z〖第 20 题〗 『程序填空』(1 分)(题号:56)'【程序填空】 ''题目:代码功能:输入数字 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〖第 19 题〗 『程序填空』(1 分)(题号:537) '【程序填空】 ''题目: 窗体中有 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 = 【?】 End Sub '**********SPACE********** Sub max(x, y, z, 【?】) If x & y Then m = x Else m = y End If '**********SPACE********** If m & 【?】 Then 6〖第 21 题〗 『程序填空』(1 分)(题号:64) '【程序填空】 '题目:输入任何一个英文字母 x,若 x 的值 为&a&,&c&,&d-f& ,则 ' 的 ' ' 小写字母;若为其它的值,则显示 xa(如输入的 X 的值是 g,则显示 ga) . 显示 x 的大写字母;若 x 的值为&m&,&o&,&p-z&,则显示 x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). 3). Select Case x &a&, &c&, &d& To &f& Label1.Caption = Trim(x) + &a&【?】 m = n n = r Loop Form1.Print &最大公约数=&; m Form1.Print &最小公倍数=&; mn / m End Sub 答案: 1). 2). 3). 4). mn=n*m 或 mn=m*n n&m 或 m&n n && 0 或 0 && n r = m Mod n〖第 23 题〗 『程序填空』(1 分)(题号:53) '【程序填空】 题目:下面的程序实现:从键盘输入一个数字,将其插入一个 ' 有序数组中,插入后的数组仍保持有序. 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(★i★ +★ 1★) = x〖第 22 题〗 『程序填空』(1 分)(题号:494) '【程序填空】 '题目:本程序用辗转相除法求自然数 m,n 的最大分约数和最小公 倍数,求最大公约数的算法如下: '(1) 对于己知两数 m,n,使得 m&n; '(2) m 除以 n 得余数 '(3) 若 r=0,则 n 为求得的最大公约数,算法结束;否则执行(4) '(4) m&-n,n&-r 再重复执行(2) '原两数相乘除以最大公约数即为最小公倍数,程序如下: '请在【】处填入正确的内容 Private Sub Form_Click() Dim m%, n%, mn% n = Val(InputBox(&n=&)) m = Val(InputBox(&n=&)) If n &= 0 Or m &= 0 Then MsgBox &数据出错& Exit Sub End If '**********SPACE********** 【?】 '**********SPACE********** If 【?】 Then t = m m = n n = t End If '**********SPACE********** Do While 【?】 '**********SPACE********** 7〖第 24 题〗 『程序填空』(1 分)(题号:518) '【程序填空】 ''题目:将字符串 S1 反向输出 '请在【】处填入正确的内容 Private Sub Command1_Click() Dim s1 As String, s2 As Strings1 = &abcdef& '**********SPACE********** Call Invert(【?】, s2) Print s2 End Sub Private Sub Invert(ByVal xstr As String, ystr As String) Dim tempstr As String Dim i As Integer '**********SPACE********** i = 【?】 Do While i &= 1 tempstr = tempstr + Mid(xstr, i, 1) i = i - 1 '**********SPACE********** 【?】 ystr = tempstr End Sub 答案: 1). 2). 3). s1 Len(xstr) Loop'**********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). 及 ' ' ' Text2(转换结果),一个命令按钮 Command1(&清除&). 录入 Text1 内容时将,将录入内容大写字母转为小写, 小写转为大写 ReDim mat(n, m) As Integer Max & mat(i, j) 或 mat(i, j) & Max row = I〖第 26 题〗 『程序填空』(1 分)(题号:529)-【程序填空】题目:窗体上建立了两个文本框 Text1(输入字符串)〖第 25 题〗 『程序填空』(1 分)(题号:38) 【程序填空】 题目:下面的程序段,用于实现在一个 nXm 的矩阵中,找出值最 ' 大的元素所在的行和列,并输出其值及行号和列号. Private Sub Form_Click() Dim mat() As Integer Dim n, 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 8请在【】处填入正确的内容 Private Sub Command1_Click() Text1.Text = && Text2.Text = && Text1.SetFocus End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Dim s As String * 1 '**********SPACE********** s = 【?】(KeyAscii) Select Case s '**********SPACE********** Case &A& 【?】 &Z& s = LCase(s) Case &a& To &z& '**********SPACE********** s = 【?】 Case Else s = &*& End Select Text2.Text = Text2.Text + s End Sub 答案: 1). Chr2). 3).To UCase(s)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). 3). 2★ *★ i★+★1 Print & &; Print〖第 27 题〗 『程序填空』(1 分)(题号:508) 【程序填空】 题目: 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). Picture1.ScaleWidth / 2 Limit = CX 3). Limit〖第 29 题〗 『程序填空』(1 分)(题号:57) 【程序填空】 '题目:代码功能:求 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〖第 28 题〗 『程序填空』(1 分)(题号:52) 【程序填空】 '题目:下面的程序段用于打印出以下图形 ' ' ' ' ' ' ' ' * *** ***** ******* ***** *** *'------------------------------------------------------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 = 0 To 【?】 Print &*&; Next k Print Next i 9〖第 30 题〗 『程序填空』(1 分)(题号:515) '【程序填空】 '题目: 由输入对话框输入 n 必须为大于零且小于 30 的自然数) (n , ' ' 计算下列表达式的值,并在标签框 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 k &= 【?】 Label1.Caption = &Sum=& + Str(sum) End Sub 答案: 1). 2). 3). Or k + 1 或 1 + k &= n' ' ' ' '温度&和&华氏温度&,文本框一个用于输入摄氏温度数, 一个用于输出对应的华氏温度?摄氏温度与华氏温度的 转换公式为: 数字字符?运行界面如图所示: c = (5 / 9) * (f - 32) 要求:对输入的摄氏温度数有检查功能,以拒绝接收非'请在【】处填入正确的内容 'Private Sub Command1_Click() Text1 = && Text2 = && Text1.Enabled = True Text2.Enabled = True Text1.SetFocus End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() Text1 = && Text2 = && Text1.Enabled = False Text2.Enabled = False End Sub Private Sub Text1_Change() '**********SPACE********** 【?】 = 5 * (Val(Text1.Text) - 32) / 9 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii && 8 Then '**********SPACE********** If Chr(KeyAscii) & &0& Or Chr(KeyAscii) & 【?】 Then '**********SPACE********** KeyAscii = 【?】 End If End If End Sub 答案: 1). 2). 3). Text2.Text 或 Text2 &9& 0〖第 31 题〗 『程序填空』(1 分)(题号:51) 【程序填空】题目:下面的程序段用于建立文件并输出文件,文件 内容如下: ' '***** ' ***** ' ' ' ***** ***** *****'------------------------------------------------------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 Input〖第 34 题〗 『程序填空』(1 分)(题号:504) '【程序填空】 '题目:写出程序运行后,单击窗体,Form1 上显示的内容 ' ' ' ' ' ' 10 sum 函数的功能为求阶乘和 isum = 1 isum = 3 isum = 6 isum = 10 isum = 15〖第 33 题〗 『程序填空』(1 分)(题号:510) 【程序填空】 '题目:在窗体上设计两个文本框和两个标签,标签上显示&摄氏'请在【】处填入正确的内容 'Private Sub Form_Click() Dim I As Integer, isum As Integer '**********SPACE********** For I = 1 To 【?】 isum = sum(I) '**********SPACE********** Form1.Print &isum =& & 【?】 Next I End Sub Private Function sum(n As Integer) Static j As Integer '**********SPACE********** 【?】 = j + n sum = j End Function 答案: 1). 2). 3). 5 & isum j ='**********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). 3). sum = 0 a(i, k) ★*★ b(k, j) sum〖第 36 题〗 『程序填空』(1 分)(题号:499) 【程序填空】 '题目:由筛选法求 m 以内的所以素数 '(1)把 2--m 以内的所有数放入筛中; '(2)找筛中最小的素数,再筛中去掉该素数的所有倍数; '(3)重复(2) ,直到要找的筛中的最小素数已超出 m 的范围; '(4)在 Pictur1 中打印筛中的素数. '请在【】处填入正确的内容 Private Sub txtInput_KeyPress(KeyAscii As Integer) Dim I As Integer, j As Integer Dim prime(1000) As Integer Dim m As Integer, p As Integer Dim flag As Boolean If KeyAscii = 13 Then '**********SPACE********** m = Val(【?】) For I = 2 To m - 1 prime(I) = 1 Next I p = 2 flag = True Do Do While p & m And prime(p) = 0 '找筛子中最小 的数 '**********SPACE********** p = 【?】 Loop '**********SPACE********** If p = m Then flag = 【?】 '筛了中的数全求过结束 For I = p + p To m - 1 Step p '在筛子中清除该素数 的倍数 prime(I) = 0 Next I 11 '筛子充满数〖第 35 题〗 『程序填空』(1 分)(题号:45) '【程序填空】 '题目:下面的程序段用于求矩阵相乘 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p = p + 1 Loop While flag = True I = 0 For j = 2 To m - 1 If 【?】 Then Picture1.P I = I + 1 If I Mod 5 = 0 Then Picture1.Print '一行打印 5 个素数 '**********SPACE********** 【?】 Next j End If End Sub 答案: 1). 2). 3). 4). 5). Val(txtInput.text) 或 Val(txtInput) p+1 或 1+p False Prime(j)&&0 End If '打印素数 End Sub 答案: 1). 2). 3). n '**********SPACE**********End If Next i Label1.Caption = &数组中零元素个数:& + Str(n - k)Rnd k = k + 1 或 k =1+k〖第 38 题〗 『程序填空』(1 分)(题号:533) '【程序填空】 '题目:完成程序,使程序输出如图示. '请在【】处填入正确的内容 -Private Sub Form_Load() Show Dim a(6, 6) As Integer Dim i, j, k, t As Integer '**********SPACE********** For i = 1 To 【?】 For j = 1 To 6 '**********SPACE********** Select Case 【?】 Case Is & j a(i, j) = 1 Case Is & j a(i, j) = 2 Case Is = j '**********SPACE********** 【?】 End Select Print a(i, j); Next j Print Next i End Sub 答案: 1). 2). 3). 6 i a(i, j) = 0〖第 37 题〗 『程序填空』(1 分)(题号:534) '【程序填空】 '题目:在窗体上有两个列表框 List1(处理前数据)和 List2(处理 ' 个 ' ' 0-20 的随机数填入 List1,并将这些随机数中的零元素删 除,填入 List2 中.最后在 Label1 中显示零元素个数 后数据),以及标签 Label1.程序功能为:随机生成 100'请在【】处填入正确的内容 ' 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) 12 '删除零元素〖第 39 题〗 『程序填空』(1 分)(题号:497) '【程序填空】 '题目:程序运行结果如图 1 所示,请将程序补充完整. 请在【】处填入正确的内容 Private Sub Form_Click() Dim I As Integer, j As Integer Dim star As String star = &★& For I = 1 To 6 Form1.Print Tab(14 - I * 2);'**********SPACE********** For j = 1 To 【?】 Form1.P Next j Form1.Print Next I For I = 1 To 6 '**********SPACE********** Form1.Print Tab(【?】); '**********SPACE********** For j = 1 To (6 - I) * 2 -【?】 Form1.P Next j Form1.Print Next I End Sub 答案: 1). 2). 3). I * 2 - 1 或 2 * I - 1 2 + I * 2 或 I * 2 +2 或 2 + 2 * I 或 2 * I +2 - 1End Sub 答案: 1). 2). 3). k & 5〖第 41 题〗 『程序填空』(1 分)(题号:527) '【程序填空】 '题目:窗体上建立了一个文本框 Text1,用于显示结果. ' ' 单击按钮弹出输入对话框录入 0-6 之间的数值, 判断输入值为星期几'请在【】处填入正确的内容 'Private Sub Command1_Click() Dim x As Integer '**********SPACE********** x = Val(【?】(&请输入星期几(0～6)&)) '**********SPACE********** Select Case 【?】 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 【?】 Text1.Text = &输入错误& End Select End Sub 答案: 1). 2). 3). x(i) = x(j): InputBox x Else〖第 40 题〗 『程序填空』(1 分)(题号:513) '【程序填空】 题目:写出程序运行时单击窗体后,Form1 上的输出结果 ' ' ' ' ' x(1) = 8 x(2) = 6 x(3) = 4 x(4) = 3 x(5) = 1'请在【】处填入正确的内容 'Private Sub Form_Click() Dim x(5) As Integer '**********SPACE********** Dim i, j, t,【?】 As Integer x(1) = 8 x(2) = 3 x(3) = 1 x(4) = 6 x(5) = 4 For i = 1 To 4 For j = i + 1 To 5 '**********SPACE********** If x(i) 【?】 x(j) Then t = x(i): x(j) = t Next j, i '**********SPACE********** For k = 1 To 【?】 Form1.Print &x(&; &)=&; x(k) Next k 13〖第 42 题〗 『程序填空』(1 分)(题号:492) '【程序填空】 '题目:本程序功能为,单击窗体,Form1 的输出结果为 'A1=10 'A2=20 B1=20 B2=10'请在【】处填入正确的内容 '**********SPACE********** Public Sub Swap1(【?】 x As Integer, ByVal y As Integer)Dim t As Integer t = x x = y y = t End Sub Public 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 答案: 1). 2). 3). (ByVal Swap1 Swap2End Sub 答案: 1). 2). 3). 0 Rnd Mod〖第 44 题〗 『程序填空』(1 分)(题号:491) '【程序填空】 '题目: 以下程序的功能为, 单击窗体后如果输入的数据分别为&W&, &8&和&?&时, '窗体上显示的内容分别是:W is Alpha Character,8 is Numeral Character, '?is Other Character '请在【】处填入正确的内容 Private Sub Form_Click() Dim strC As String * 1 strC = InputBox(&请输入数据&) '**********SPACE********** Select Case 【?】 '**********SPACE********** Case &a& To &z&, &A& 【?】 &Z& Form1.Print strC + & Is Alpha Character& Case &0& To &9& Form1.Print strC + & Is Numeral Character& '**********SPACE********** 【?】 Else Form1.Print strC + & Is Other Character& End Select End Sub 答案: 1). 2). 3). strC , &A& To Case〖第 43 题〗 『程序填空』(1 分)(题号:522) '【程序填空】 '题目:以下程序的功能是:生成 20 个 200 到 300 之间 ' 的随机整数,输出其中能被 5 整除的数并求出它们的和 '请在【】处填入正确的内容 ' Private Sub Commandl_C1ick() Dim s As Integer '**********SPACE********** s = 【?】 For i = 1 To 20 Randomize '**********SPACE********** X = Int(【?】 * 100 + 200) '**********SPACE********** If X 【?】 Print X s = s + X End If Next i Print &Sum =&: s 14 5 = 0 Then〖第 45 题〗 『程序填空』(1 分)(题号:526) '【程序填空】 '题目:在窗体上建立两个文本框 Text1(输入数)及 Text2(显示结 果), ' ' 一个命令按钮 Command1(&判断&).单击按钮时判断 是否是 4 的倍数. Text1 中输入的数值 '请在【】处填入正确的内容 'Private Sub Command1_Click() Dim x As Integer '**********SPACE********** If IsNumeric(Text1.Text) = 【?】 Then Text2.Text = &输入错误& Exit Sub End If '**********SPACE**********x = CInt(【?】) '**********SPACE********** If 【?】 = 0 Then Text2.Text = &是 4 的倍数& Else Text2.Text = &不是 4 的倍数& End If End Sub 答案: 2). 3). 1). False Text1.Text 或 Text1 x Mod 43).Exit For〖第 47 题〗 『程序填空』(1 分)(题号:516) '【程序填空】 '题目:窗体中有若干控件,单击其中的一个按扭 cmdput 时, ' 执行如下的事件过程, 该过程的功能是把数据输出到指定 的文件中. '请在【】处填入正确的内容' '**********SPACE********** Private Type 【?】 Number As String Name As String End Type Private Sub cmdput_click() Dim Title As String Dim Str1 As String Dim str2 As String Dim stu As Student Dim i As Integer Open App.Path & &\student.dat& For Random As #1 Len = Len(stu) Title = &写记录到随机文件& Str1$ = &请输入学生号& str2$ = &请输入学生名& For i = 1 To 5 '**********SPACE********** 【?】.Number = InputBox(Str1$, Title$) stu.Name = InputBox$(str2$, Title$) Put #1, i, stu Next i '**********SPACE********** Close 【?】 End Sub 答案: 1). Student 2). stu 3). #1 〖第 48 题〗 『程序填空』(1 分)(题号:44) '【程序填空 '题目:以下程序的功能如(图 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〖第 46 题〗 『程序填空』(1 分)(题号:43) '【程序填空】 '题目:下面的程序段用于实现以下功能:利用冒泡法将一组整数 ' 从小到大排序. 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). Step -1 work = False 15End Sub Function n(k%)p = 1 For m = 1 To k '**********SPACE********** p =【?】 Next m '**********SPACE********** 【?】 End Function 答案: 1). n(m) 2). p★ *★ m 3). n = p 〖第 49 题〗 『程序填空』(1 分)(题号:496) '【程序填空】 题目:编程序求表达式 s=x/2!+x^3/4!+...+x^(2n-1)/(2n)!的值, '并在窗体上输出. '(1)变量 x 与 n 的值在窗体单击事件中用 InputBox()函数输入, 通过调用函数过程 s 实现题目要求. '(2).求表达式的值用函数过程 Function 完成. '请在【】处填入正确的内容 Private Sub Form_Click() Dim x As Single Dim n As Integer Dim sum As Single x = Val(InputBox(&Please input x Value:&)) n = Val(InputBox(&Please input a integer:&)) '**********SPACE********** sum = 【?】 Print &s=&; sum End Sub Function s(n As Integer, x As Single) As Single Dim i As Single, t As Long s = 0 For i = 1 To n t = 1 For j = 1 To 2 * i '**********SPACE********** 【?】 Next j '**********SPACE********** s = s + x ^ (【?】) / t Next i End Function 答案: 1). 3). s(n, x) 2). t = t * j 或 t = j * t 2 * i - 1 或 i*2 - 1 s(n%,x!) As Single'该过程找出所有水仙花数.Private Sub Form_Click() Dim i As Integer For 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). 3). suixian (i) 2). x \ 100 x =★ i ^ 3★ +★ j ^ 3★ +★ k ^ 3〖第 51 题〗 『程序填空』(1 分)(题号:514) '【程序填空】 '题目:本程序求 3~100 之间的所有素数学(质数)并统计个数; ' ' 同时将这些素数从小到大依次写入顺序文件 素数的个数显示在窗体 Form1 上? dataout. 请在【】处填入正确的内容 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 #1 End Sub 16〖第 50 题〗 『程序填空』(1 分)(题号:55) '【程序填空】 '题目:过程 suixian 可以判断某一个数字是否是水仙花数,利用答案: 1). 3). #1 2). True count + 1 或 1 + counts = s - Max 【?】 p = s / 8 Print &最高分 Print &最低分 End Sub 答案: 2). 1). Max = 0 - Min Max = n 3). :&; Max :&; Min〖第 52 题〗 『程序填空』(1 分)(题号:58) '【程序填空】 题目:代码功能:求 A,B,C 三个数的最大值. Private Sub Command1_Click() A = Val(Text1.Text) '**********SPACE********** 【?】 C = Val(Text2.Text) If A & B And A & C Then MAXDATE = A '**********SPACE********** ElseIf Else '**********SPACE********** 【?】 End If Label1.Caption = MAXDATE End Sub 答案: 1). B = Val(Text2.Text) 2). B& C 或 C&B 3). MAXDATE = C 〖第 53 题〗 『程序填空』(1 分)(题号:524) Option Explicit '【程序填空】 '题目:下面是一个体操评分程序,10 位评委,除去一个最 ' 分) . 高分和一个最低分,计算平均分 (设满分为 10 【?】 Then MAXDATE = BPrint &最后得分:&; p〖第 54 题〗 『程序填空』(1 分)(题号:502) '【程序填空】 '题目:用输入对话框输入 x , 根据如图公式计算对应的 y, ' 并在窗体上输出 y 的值? '请在【】处填入正确的内容 '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 y End Sub 答案: 1). 3). y 2). InputBox + Sin(x) y = 0 4).请在【】处填入正确的内容 'Private Sub Command1_Click() Dim s As Integer Dim Max, Min As Integer Dim i, n, p As Integer '**********SPACE********** 【?】 Min = 10 For i = 1 To 10 n = Val(InputBox(& If n & Max Then【?】 If n & Min Then Min = n s = s + n Next i '**********SPACE********** 17 请输入分数: &)) '**********SPACE**********〖第 55 题〗 『程序填空』(1 分)(题号:517) '【程序填空】 '题目: 用户单击命令按钮后,程序将文本框 Text1 中的文本反转 显示, ' 数? ' ' 能. '请在【】处填入正确的内容 'Private Sub Command1_Click() If Text1.Text = && Then Exit Sub Text2.Text = 0 Else '**********SPACE********** 设在一个窗体中已经设置了二个文本框 Text1 和 Text2, 以及一个命令按钮,且设计有下列程序,请指出程序的功 同时在文本框 Text2 中显示文本框 Text1 框中字符串的个Text1.Text = MyFun(【?】) End If End Sub Private Sub Form_Load() Text1.Text = && Text2.Text = 0 End Sub Private Function MyFun(s1 As String) As String Dim Pos As Integer Dim Str1 As String Dim intC As Integer Const Sp As String = && '**********SPACE********** Pos = Len(【?】) For intC = Pos To 1 Step -1 Str1 = Str1 & Mid(s1, intC, 1) Next intC '**********SPACE********** MyFun = 【?】 Text2.Text = Pos End Function 答案: 2). 1). s1 (Text1.Text 或 (Text1 3). Str1'Private Sub Command1_Click() '**********SPACE********** Dim 【?】 As Double, x As Double Dim n As Long Dim i As Integer '**********SPACE********** sum = 【?】 n = 0 For i = 1 To 5 x = n / i n = n + 1 '**********SPACE********** sum = 【?】 Next Form1.Print sum End Sub 答案: 1).sum 2).0 3). sum + x 或 x + sum 〖第 58 题〗 『程序填空』(1 分)(题号:536) '【程序填空】 '------------------------------------------------------'题目:程序功能:在 Text1,Text2,Text3 中分别输入三个数字, ' ' 在 Text4 中计算这三个数的和.如果三个文本框的输入不 为数字则显示错误提示〖第 56 题〗 『程序填空』(1 分)(题号:525) '【程序填空】 '题目:在窗体上画一个标签(名称为 Label1 )和一个 ' ' 计时器(名称为 Timer1 ) ,然后编写如下几个事件过程: 要求:每一秒钟 Label1 更新显示一次系统时间'请在【】处填入正确的内容 '------------------------------------------------------' Private Sub Command1_Click() Dim a As String, b As String, c As String a = Trim(Text1.Text) b = Trim(Text2.Text) c = Trim(Text3.Text) '**********SPACE********** If 【?】 And che(b) And che(c) Then Text4.Text = Val(a) + Val(b) + Val(c) Else Text4.Text = &存在非数字字符& End If End Sub Function che(x As String) As Boolean '若存在非数字字请在【】处填入正确的内容 '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). 1000 2). True 3). Now 〖第 57 题〗 『程序填空』(1 分)(题号:519) '【程序填空】 '题目:该程序通过 For 循环计算一个表达式的值,这个表达式是 ' 1/2+2/3+3/4+4/5 '请在【】处填入正确的内容 18符,函数值为假 Dim k As Integer Dim s As String '**********SPACE********** 【?】 For k = 1 To Len(x)s = Mid(x, k, 1) '**********SPACE********** If s & &0& Or s & 【?】 Then che = False Exit For End If Next k End Function 答案: 1).che(a) 2). che = True3). &9& 〖第 59 题〗 『程序填空』(1 分)(题号:42) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:以下程序段利用随机函数生成 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 答案: 2). 1). Int(★100★ *★ Rnd★)★ +★ 10 t★ && ★I t=i 3).'【程序填空】 '------------------------------------------------------'题目:单击窗体打印内容如图 '请在【】处填入正确的内容 '------------------------------------------------------' Private Sub Form_Click() Dim i As Integer, j As Integer Dim star As String '**********SPACE********** 【?】 = &*& For i = 0 To 6 '**********SPACE********** For j = 【?】 To 6 '**********SPACE********** Form1.Print star【?】 Next j Form1.Print Next i End Sub 答案: 1). star 2). 6 - i 3). ; 〖第 61 题〗 『程序填空』(1 分)(题号:512) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:写出程序运行时单击窗体后,Form1 上的输出结果 ' ' ' n=1 n=2 n=3 z=4 z=7 z=10'请在【】处填入正确的内容 '------------------------------------------------------' Private Sub Form_Click() Dim a As Integer, b As Integer, z As Integer '**********SPACE********** Dim 【?】 As Integer a = 1 '**********SPACE********** b = 【?】 '**********SPACE********** For n = 【?】 To 3 z = chg(a, b) Form1.Print &n=&; n, &z=&; z Next n End Sub Function chg(a As Integer, b As Integer) As Integer Dim n As Integer 19〖第 60 题〗 『程序填空』(1 分)(题号:505) '-------------------------------------------------------For n = 0 To 2 a = a + b Next n chg = a End Function 答案: 1). Dim n 2). 1 3). 1 〖第 62 题〗 『程序填空』(1 分)(题号:521) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:下面的事件过程判断文本框 Text1 中输入的数所在区间, ' 并在文本框 Text2 中输出判断结果 '请在【】处填入正确的内容 '------------------------------------------------------' Private Sub Command1_Click() Dim int1 As Integer '**********SPACE********** 【?】 = Val(Text1.Text) Select Case int1 Case 0 Text2.Text = &值为 0& '**********SPACE********** Case & Case Is & 【?】 Text2.Text = &值大于 10& Case Else '**********SPACE********** Text2.Text = &值小于 0& End Select End Sub 答案: 1). int1 2). 1 To 10 3). 10 〖第 63 题〗 『程序填空』(1 分)(题号:535) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:有 12 个文本框代表 12 个位置.程序为 A-J 10 个字母分配 ' 十个位置,并显示座位分配. '请在【】处填入正确的内容 '------------------------------------------------------' Private Sub Form_Load() Dim k, h, p As Integer Dim t(12) As String Randomize 20 【?】 Text2.Text = &值在 1 和 10 之间(包括 1 和 10)'**********SPACE********** For k = 1 To 【?】 t(k) = &Empty& Next k '**********SPACE********** For 【?】 = 65 To 74 Do While True p = Int(1 + 12 * Rnd) '**********SPACE********** If t(p) = 【?】 Then t(p) = Chr(h) Exit Do End If Loop Next h For k = 1 To 12 Text1(k - 1).Text = t(k) Next k End Sub 答案: 1). 12 2). h 3). &Empty& 〖第 64 题〗 『程序填空』(1 分)(题号:49) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:以下程序段用于求∑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 Sub Private 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 答案: 3). 1). sum★+★ mul(i) 2). x mul = s〖第 65 题〗 『程序填空』(1 分)(题号:41) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:下面过程 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 '**********SPACE********** Public Function max(【?】) If a & b Then m = a Else m = b End If '**********SPACE********** If 【?】 Then max = m Else max = c End If End Function' Private Sub Command1_Click() x = Text1.Text '**********SPACE********** If x 【?】 && Then MsgBox (&欢迎你用机!&) Else MsgBox (&对不起,口令错&) End If Text1.Text = && Text1.SetFocus End Sub Private Sub Form_Load() Text1.Text = && '**********SPACE********** Text1.【?】 = 8 '**********SPACE********** Text1.【?】 = &*& End Sub 答案:1).= 2). MaxLength 3). PasswordChar 〖第 67 题〗 『程序填空』(1 分)(题号:530) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:有数列 1/5 + 1/9 + 1/13 + ' 求前 100 项之和 '请在【】处填入正确的内容 '------------------------------------------------------' Private Sub Command1_Click() 1 / (1 + k * 4) (k&=100)答案: 1). 2). max(max1, 73, 352) ByVal a As Integer, ByVal b As Integer, ByVal c As b As Integer, c As Integer 或Dim s As Double Dim k As Integer '**********SPACE********** s = 【?】 '**********SPACE********** For k = 1 To 【?】 '**********SPACE********** s = 【?】 + 1 / (1 + k * 4) Next k Print s End Sub 答案: 1). 0 2). 100 3). s + 1 〖第 68 题〗 『程序填空』(1 分)(题号:59) '------------------------------------------------------'【程序填空】 '------------------------------------------------------' 题目:代码功能:输入一个数,若大于 0,则显示&+&;若小于 0, 21Integer 或 a As Integer, 3). m & c 或 c & ma %,b%,c% 或 ByVal a %,ByVal b%,ByVal c% 〖第 66 题〗 『程序填空』(1 分)(题号:528) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:窗体上建立了一个文本框 Text1(&输入口令&)和一个命令 按钮 Command1(&检查&). ' ' &*& '请在【】处填入正确的内容 '------------------------------------------------------判断密码是否正确,并显示相应提示 在加载窗体时设置密码框最大长度为 8,密码显示字符为'则显示 &-&;若等于&0&,则显示&零&.If KeyAscii = 13 Then '**********SPACE********** ReDim 【?】 '**********SPACE********** a(n) = 【?】 Text1.Text = && n = n + 1 End If End Sub 答案: 1). 2). 3). 4). 5). i+1 或 1+i &a(j) a(i)=a(imin) Preserve a(n) Text1.Text 或 Text1'------------------------------------------------------Private Sub Command1_Click( ) x = Val(Text1.Text) Select Case x '**********SPACE********** 【?】 Label1.Caption = &+& Case Is & 0 '**********SPACE********** 【?】 '**********SPACE********** 【?】 Label1.Caption = &零& End Select End Sub 答案: 3). 1). Case Is & 0 2). Case 0 Label1.Caption = &-&〖第 70 题〗 『程序填空』(1 分)(题号:538) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:求 X 的 N 次方,x 和 n 均用输入对话框输入 '请在【】处填入正确的内容 '------------------------------------------------------' Private Sub Form_Load() Dim x As Single, n As Integer, y As Double x = InputBox(&x=&, &求 X 的 n 次方&) n = InputBox(&n=&, &求 X 的 n 次方&) '**********SPACE********** y = Power(【?】) Show P &的&; &次方=&; Format(y, &###,###.##&) End Sub Function Power(x As Single, n As Integer) As Double If n & 1 Then '**********SPACE********** Power = Power(x,【?】) * x Else '**********SPACE********** Power = 【?】 End If End Function 答案: 1). x, n 2). n - 1 3). x 〖第 71 题〗 『程序填空』(1 分)(题号:39) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:以下程序段用于实现矩阵转置,即将一个 n×m 的矩阵的行 22〖第 69 题〗 『程序填空』(1 分)(题号:500) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:本程序执行功能为,输入系列字符串,按递减次序排列. '(1)在文本框输入字符串,按回车键后存放到数组 a()中; '(2)单击&排序&按钮(Command1)时,进行递减次序排列,并在 图形框控件显示. '请在【】处填入正确的内容 '------------------------------------------------------Dim 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)和列 ' 互换 '------------------------------------------------------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 n For j = 1 To m Print b(j, I); Next j Print Next I End Sub 答案: 2). 1). Next i 或 Next 3). Print b(j, i) = a(i, j)Private Sub Form_Load() hsRed.Max = 255 hsRed.Min = 0 '**********SPACE********** hsGreen.Max = 【?】 hsGreen.Min = 0 hsBlue.Max = 255 hsBlue.Min = 0 hsRed.SmallChange = 1 hsGreen.SmallChange = 1 hsBlue.SmallChange = 1 hsRed.LargeChange = 5 hsGreen.LargeChange = 5 hsBlue.LargeChange = 5 r = 0 b = 0 g = 0 hsRed.Value = 0 hsGreen.Value = 0 hsBlue.Value = 0 lblColor.BackColor = RGB(r, g, b) End Sub Private Sub hsBlue_Change() '**********SPACE********** b =【?】 lblColor.BackColor = RGB(r, g, b) End Sub Private Sub hsBlue_Scroll() b = hsBlue.Value lblColor.BackColor = RGB(r, g, b) End Sub Private Sub hsGreen_Change() g = hsGreen.Value lblColor.BackColor = RGB(r, g, b) End Sub Private Sub hsGreen_Scroll() g = hsGreen.Value lblColor.BackColor = RGB(r, g, b) End Sub Private Sub hsRed_Change() r = hsRed.Value '**********SPACE********** lblColor.【?】 = RGB(r, g, b) End Sub Private Sub hsRed_Scroll() r = hsRed.Value lblColor.BackColor = RGB(r, g, b) 23〖第 72 题〗 『程序填空』(1 分)(题号:509) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:利用一个标签和三个水平滚动条,设计一个 RGB 调色板, ' 运行界面如图所示. '请在【】处填入正确的内容 '------------------------------------------------------' Dim r As Integer, g As Integer, b As IntegerEnd Sub 答案: 1).255 2).hsBlue.Value 3). 〖第 73 题〗 『程序填空』(1 分)(题号:54) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:本程序用于实现:从键盘接收一数字,判断其是否在数组 ' ' 中,如果在数组中则将其删除,否则显示该数字不在数组 中. BackColor'**********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). 3). find m, n 2). p★+★y s = 1 或 s = 1:p=0'------------------------------------------------------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). 3). Exit For 2). i&10 或 10&i a(k) = a(★ k ★+ ★1★)〖第 75 题〗 『程序填空』(1 分)(题号:493) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:本程序功能为,第一次单击窗体,Form1 的输出结果为 '2 5 9 '请在【】处填入正确的内容 '------------------------------------------------------Private Function sum(n As Integer) '**********SPACE********** 【?】 j As Integer j = j + n + 1 sum = j End Function Private Sub Form_Click() Dim i%, s% '**********SPACE********** For 【?】 = 1 To 3 '**********SPACE********** s = 【?】 Form1.P Next i End Sub 答案: 1). Static 2). i 3). sum(i) 〖第 76 题〗 『程序填空』(1 分)(题号:40) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:以下程序段用于输出杨辉三角 '------------------------------------------------------24〖第 74 题〗 『程序填空』(1 分)(题号:48) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:利用下面的过程求 m!和 m*n '------------------------------------------------------Private Sub Form_Click() Dim m As Integer, n As Integer m = 2 n = 3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 答案: 2). 3). 1). arr(i, 1) = 1 ★arr(i - 1, j - 1)★ +★ arr(i - 1, j) Print arr(i, j);Next j, i For h = 0 To 3 '**********SPACE********** For 【?】 = 0 To 2 Form1.Print a(k, h), Next k Print Next h End Sub 答案: 1). 2 2). * 3). k 〖第 78 题〗 『程序填空』(1 分)(题号:37) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:以下程序用于判断一个正整数(≥3)是否为素数. '------------------------------------------------------Private Sub Form_Click() n = InputBox(&请输入一个正整数(≥3)&) k = Int(Sqr(n)) i = 2 swit = 0 '**********SPACE********** While i &= k And 【?】 '**********SPACE********** If 【?】 Then swit = 1 Else '**********SPACE********** 【?】 End If Wend If swit = 0 Then P &是一个素数& Else P &不是素数& End If End Sub 答案: 1). +★ 1 〖第 79 题〗 『程序填空』(1 分)(题号:540) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目:窗体中有两个 List 列表,及 4 个按钮. ' ' ' 25 程序功能,单击&产生随机数&按钮,随机产生 20 个随机 &保存&按钮作用是将数组内容写到文件中 &读出&按钮作用是将文件内容读到数组中 数填入 List1 中 swit = 0 2). n Mod i = 0 3). i = ★i ★〖第 77 题〗 『程序填空』(1 分)(题号:506) '------------------------------------------------------'【程序填空】 '------------------------------------------------------'题目: ' ' ' ' 写出程序运行时单击窗体后,Form1 上输出结果. 0 -1 -2 -3 2 1 0 -1 4 3 2 1'请在【】处填入正确的内容 '------------------------------------------------------' Private Sub Form_Click() Dim i As Integer Dim j As Integer Dim h As Integer Dim k As Integer Dim a(2, 3) As Integer '**********SPACE********** For i = 0 To 【?】 For j = 0 To 3 '**********SPACE********** a(i, j) = 2 【?】 i - j'&结束&按钮作用是结束程序'-----------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构 '-----------------------------------------------Private Sub Command1_Click() Timer1.Enabled = False '**********FOUND********** '&产生随机数& If Val(Label1.Caption) & Val(Label2.Caption) Then Label3.Caption = &猜对了& Else Label3.Caption = &猜错了& End If End Sub Private Sub Command2_Click() Timer1.Enabled = False '&保存& If Val(Label1.Caption) & Val(Label2.Caption) Then '**********FOUND********** Label3.Caption = &猜错了& Else '**********FOUND********** Label3.Caption = &猜对了& End If End Sub Private Sub Timer1_Timer() '&读出& Randomize Label1.Caption = Int(Rnd() * 100 + 1) Label2.Caption = Int(Rnd() * 100 + 1) End Sub 答案: 1). 2). 3). '&结束& If Val(Label1.Caption) & Val(Label2.Caption) Then Label3.Caption = &猜对了& Label3.Caption = &猜错了& 或 If Val(Label2.Caption) & Val(Label1.Caption) Then'请在【】处填入正确的内容 '------------------------------------------------------' Dim d(1 To 20) As Integer Private Sub Command1_Click() Dim i As Integer List1.Clear For i = 1 To 20 '**********SPACE********** d(i) = Int(1 + 99 *【?】) List1.AddItem d(i) Next i End Sub Private Sub Command2_Click() Dim i As Integer Open App.Path & &\MyFile3.txt& For Output As #1 For i = 1 To 20 '**********SPACE********** Write 【?】, d(i) Next i Close #1 End Sub Private Sub Command3_Click() Dim x As String Open App.Path & &\MyFile3.txt& For Input As #1 List2.Clear '**********SPACE********** Do While Not 【?】 Input #1, x List2.AddItem x Loop Close #1 End Sub Private Sub Command4_Click() End End Sub 答案: 1). Rnd 2). #1 3). EOF(1) 〖第 1 题〗 『程序改错』(1 分)(题号:455) '-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:猜数游戏:已知程序用户界面如下,程序启动后 ' ' ' 了&. 26 Lable1 和 Lable2 滚动显示属于[1,100]的随机整数, 当用户单击&左大&或&右大&按钮时,滚动停止,如果 用户猜对了,在 Lable3 中显示&猜对了&,否则显示&猜错〖第 2 题〗 『程序改错』(1 分)(题号:481) '-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:下面程序的功能是将一个整数转化为数值字符串, ' 列如 123,转化为&+123&,-123 转化为&-123& '-----------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构 '-----------------------------------------------Private Function NtoC(ByVal n As Single) Dim sign As Boolean, i%, a%, count%, temp%(100) Dim strc As String sign = False '**********FOUND**********If n & 0 Then sign = False n = Abs(n) Do While n & 0 '**********FOUND********** a = n / 10 n = n \ 10 '**********FOUND********** count = 1 temp(count) = a Loop If sign Then strc = &- & Else strc = &+& For i = count To 1 Step -1 strc = strc + Chr(Asc(&0&) + temp(i)) Next i NtoC = strc End Function Private Sub Command1_Click() Print NtoC(-123) End Sub 答案: 1). + count 〖第 3 题〗 『程序改错』(1 分)(题号:139) '-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:随机产生并输出 100 以内大于 50 的 20 个整数,输 ' 出时每 5 个数一行. '-----------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click() Randomize Timer dim i as integer,ma as integer '**********FOUND********** i = 1 '**********FOUND********** Do until i & 20 ma = Rnd() * 100 \ 1 If ma & 50 Then P i = i + 1 '**********FOUND********** If i\5 = 0 Then Print End If End If 27 If n & 0 Then sign = True 3). count = count + 1 或 count = 1 2). a = n Mod 10Loop End Sub 答案: i 3). If i mod 5 = 0 Then 〖第 5 题〗 『程序改错』(1 分)(题号:466) '-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:下边是一个小动画程序,在窗体上放一个标签 Label1, ' ' ' ' 每过 1 秒钟标签 Label1 的背景颜色由红到蓝,由蓝到绿, 再由绿到红循环变化,并自动修改标签 Label1 的 Left, Top 值使其从左上角沿窗体的对角线移动到窗体的右下角, 如此往复从而实现动画. 1). i = 0 2). Do while i & 20 或 Do while 20 &'-----------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构 '-----------------------------------------------Private flag As Integer Private Sub Form_click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Interval = 1000 Label1.Left = 0 Label1.Top = 0 Label1.BackColor = vbBlack Timer1.Enabled = False End Sub Private Sub Timer1_Timer() If Label1.Left & Left + Width And Label1.Top &= Top + Height Then Label1.Left = Label1.Left + 100 * Width / Height Label1.Top = Label1.Top + 100 Else Label1.Left = Left Label1.Top = Top End If If flag = 0 Then Label1.BackColor = vbBlue '**********FOUND********** flag = 0 ElseIf flag = 1 Then Label1.BackColor = vbGreen '**********FOUND********** flag = 1 Else Label1.BackColor = vbRed '**********FOUND**********flag = 2 End If End Sub 答案: 0 〖第 7 题〗 『程序改错』(1 分)(题号:454) '-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:本程序的功能是随机产生的 10 个两位正整数,并进行递减 排序. '-----------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构 '-----------------------------------------------Private Sub CreateRND() Dim Temp As Integer Dim I As Integer Dim N As Integer Dim X(10) As Integer Dim J As Integer N = 10 Print &数据:& For I = 0 To N '**********FOUND********** X(I) = Int(Rnd() * 90) Print X(I); Next I Print Print &排序:& For I = 0 To N - 1 For J = I + 1 To N '**********FOUND********** If X(I) & X(J) Then '**********FOUND********** Temp = X(I) X(J) = X(I) X(I) = Temp End If Next J Print X(I); Next I Print End Sub Private Sub Command1_Click() CreateRND End Sub 答案: 1). X(I) = Int(10 + Rnd() * 90) 或 X(I) = Int(10 28 1). flag = 1 2). flag = 2 3). flag =★+★Rnd() * 90) 2). 3). If X(I) & X(J) Then 或 If X(I) &= X(J) Then 或 If temp = X(J) X(J) & X(I) Then 或 If X(J) &= X(I) Then 〖第 8 题〗 『程序改错』(1 分)(题号:138) '-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:输出 40 以内能够被 3 整除的数,要求输出结果为 ' 5 个数一行. '-----------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click() Cls Dim x As Integer Dim i As Integer '**********FOUND********** i = 1 For x = 1 To 40 If (x / 3) = (x \ 3) Then '**********FOUND********** Print x i = i + 1 End If If End If '**********FOUND********** Next 答案: i 1). i = 0 2). P 3). Next x End Sub 〖第 9 题〗 『程序改错』(1 分)(题号:482) '-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:请根据下列描述编写购物优惠程序.某商场为了 ' ' ' ' ' ' 加速促成商品流通,采用购物打折的优惠办法,每 位顾客一次购物(1)在 100 元以上者,按九五折优惠; (2)在 200 元以上者,按九折优惠; (3)300 元以上 者,按八折优惠; (4)500 元以上者按七折优惠.在窗体 上添加两个文本框和一个命令按钮,要求在 Text1 中输入 购物商品总金额,单击命令按钮,在 Text2 中输出优惠价. i Mod 5 = 0 Then Print'-----------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构 '-----------------------------------------------Private Sub Command1_Click() Dim x As Single, y As Singlex = Val(Text1.Text) If x & 100 Then '**********FOUND********** x = y Else If x & 200 Then y = 0.95 * x Else If x & 300 Then y = 0.9 * x Else If x & 500 Then y = 0.8 * x Else y = 0.7 * x '**********FOUND********** else If End If End If End If '**********FOUND********** Text2.Text = x End Sub 答案: = y 〖第 11 题〗 『程序改错』(1 分)(题号:493) '-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:给定年号与月份,判断该年是否闰年,并根据给出的 ' ' ' 月份来判断是什么季节和该月有多少天? (闰年的条件是:年号能被 4 整除但不能被 100 整除, 或者能被 400 整除. ) 1). y = x 2). End If 3). Text2.Text = y 或 Text2 Elseflag = 0 MsgBox &闰年&flag = 0 MsgBox &非闰年& End If '**********FOUND********** Select Case flag Case 1 MsgBox &该月有 31 天,春季& Case 2 If flag = 1 Then MsgBox &该月有 29 天,春季& Else MsgBox &该月有 28 天,春季& Case 3 MsgBox &该月有 31 天,春季& Case 4 MsgBox &该月有 30 天,夏季& Case 5 MsgBox &该月有 31 天,夏季& Case 6 MsgBox &该月有 30 天,夏季&'-----------------------------------------------'注意:不可增加或删除程序行,也不可以更改程序结构 '-----------------------------------------------Private Sub Form_Click() Dim Year As Integer, Month As Integer Year = InputBox(&输入年号:&) Case 7 Month = InputBox(&输入月份:&) MsgBox &该月有 31 天,秋季& '**********FOUND********** If Year Mod 4 = 0 And Year Mod 100 && 0 And Year Mod 400 && 0 Then MsgBox &该月有 31 天,秋季& '**********FOUND********** 29 Case 8Case 9 MsgBox &该月有 30 天,秋季&'**********FOUND********** If a + b & c or b + c & a Then Skybox (&不能构成三角形,请重新输入个边&)Case 10 Got start MsgBox &该月有 31 天,冬季& End If Case 11 MsgBox &该月有 30 天,冬季& Case 12 Print &该三角形的面积:&; s MsgBox &该月有 31 天,冬季& End Select End Sub ' ' ' 答案: 1). If Year Mod 4 = 0 And Year Mod 100 && 0 Or Year Mod 2). Flag = 1 3). Select Case Month 400 = 0 Then End Sub 答案: 1). 2). 3). If a + b & c Or b + c & a Or a + c & b Then t = (a + b + c) / 2 或 t = (a + b +★ c★) / 2 s = Sqr(t * (t - a) * (t - b) * (t - c)) 或 s = Sqr(★ '**********FOUND********** t = (a + b) / 2 '**********FOUND********** s = Sqr((t - a) * (t - b) * (t - c))t * ★(t - a)★ * ★(t - b) ★* ★(t - c)★) 〖第 14 题〗 『程序改错』(1 分)(题号:136) '-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:程序功能为打印下列图形: ' ' ' ' ' *** **** ***** * **〖第 12 题〗 『程序改错』(1 分)(题号:489) '-----------------------------------------------'【程序改错】 '-----------------------------------------------'题目:给定三角形的三条边,计算三角形的面积.要求 ' 程序首先判断给定的三条边能否构成三角形. '-----------------