编程题考试范围(共10题

1、1题目：请按照题目要求设计指定的窗体。输入一个正整数数，判断其是否为素数，并用msgbox来显示结果。例如输入23显示/ 23是素数/;输入21则显示/ 21不是素数/ 。 判断按钮：实现素数判断Op ti on Exp licitIf i x - 1 The nPrivate Sub Comma nd1_Click()MsgBox x & ”是素数”Dim x As Integer x用来表示正整数ElseDim i As Integer i用来作为循环变量MsgBox x & 不是素数”x = Val(Text1.Text)End IfFor i = 2 To x - 1End SubIf

2、 x Mod i = 0 Then Exit ForNext i2题目：请按照题目要求设计指定的窗体。输入一个二进制数，将其转化为十进制数。转换按钮：用于实现进制的转换Textl 中清空按钮：用于实现文本框的清空，同时将焦点定位在FurmlLO選制1；Op ti on Exp licitPrivate Sub Comma nd1_Click()Dim s As String 用来表示 2进制数Dim x As Integer 用来表示转化后的10进制Dim i As In teger 用来表示循环变量s = Text1.TextFor i = 1 To Len(s)X = X + Mid(s,

3、 i, 1) * 2 人(Len(s) - i)3题目：请按照题目要求设计指定的窗体。Next iText2.Text = xEnd SubPrivate Sub Comma nd2_Click()TextI.Text =Text2.Text =Text1.SetFocusEnd Sub输入一个10进制正整数，将其转换为一个2进制数。转换按钮：实现进制转换Textl 中清空按钮：实现文本框的清空，同时焦点定位在0 rorm氓*1Op ti on Exp licitLoo p Un til x = 0P rivate Sub Comma nd1_Click()Text2.Text = sDim

4、x As Integer 用来表示10进制数End SubDim s As String 用来表示 2进制数Private Sub Comma nd2_Click()x = Val(Text1.Text)Text1.Text =DoText2.Text =s = (x Mod 2) & sText1.SetFocusx = x 2End Sub4题目：请按照题目要求设计指定的窗体。输入2个正整数，求这2个数的最大公约数。 计算按钮：用来实现计算最大公约数 退出按钮：用来实现程序的退出H FofmlNK-Op ti on Exp licitm = nP rivate Sub Comma nd1_

5、Click()n = rDim m As Integer, n As Integer 分别用来表示Loop Un til r = 0两个数Text3.Text = mDim r As In teger 用来表示余数End Subm = Val(Text1.Text)Private Sub Comma nd2_Click()n = Val(Text2.Text)EndDoEnd Subr = m Mod n退出5题目：请按照题目要求设计指定的窗体。产生10个10100之间的两位随机整数，将10个数显示一个文本框中同时查找其中是否有某个数， 如果有给出其在数组中的位置，如果没有给出相应的提示信息。

6、结果信息用msgbox消息框弹出提示，如“ 36出现在第2位”；或者“没有出现36”匕.匸rnl11! gVHT尸主5M5出一 1一 1JOp ti on Exp licitx = Val(Text2.Text)Dim a(1 To 10) As In teger 数组用来存放 10Fori = 1 To 10个数If x = a(i) The n Exit ForP rivate Sub Comma nd1_Click()Next iDim i As In teger用来表示循环变If i 10 Then量MsgBox 没有出现” & xFori = 1 To 10Elsea(i) = In

7、 t(R nd * 90 + 10)MsgBox x & ”出现在第” & i & ”位”Text1.Text = Text1.Text & a(i) & ” ”End IfNext iEnd SubEnd SubPrivate Sub Comma nd3_Click()Private Sub Comma nd2_Click()EndDim i As In teger用来表示循环End Sub变量Dim x As In teger用来表示需要查找的数6.题目：请按照题目要求设计指定的窗体。随机产生10个两位整数，存放在数组中，将 10个数显示在一个文本框中 并从中找出一个最大数和一个最小数，分

8、别显示在文本框中。0 fcirmlF-a-lbajFiLD-t 豐MHOp ti on Exp licitFori = 1 To 10Dim a(1 To 10) As Integer 用来存放 10 个数If max a(i) The n min = a(i)Dim i As In teger用来表示循环变Next i量Text2.Text = maxFori = 1 To 10Text3.Text = mina(i) = In t(R nd * 90 + 10)End SubText1.Text = Text1.Text & a(i) & ” ”Private Sub Comma nd3_

9、Click()Next iText1.Text =End SubText2.Text =P rivate Sub Comma nd2_Click()Text3.Text =Dim i As In teger用来表示循环变End Sub量Private Sub Comma nd4_Click()Dim max As Integer, min As Integer用来End表示最大值和最小值End Submax = 0min = 100P生a主洒出7题目：请按照题目要求设计指定的窗体。随机产生10个两位整数并将10个数采用选择排序的算法实现升序排列Op ti on Exp licitDim a(1

10、 To 10) As Integer 用于存放 10 个数Private Sub Comma nd1_Click()Dim i As In teger用来表示循环变量Fori = 1 To 10a(i) = In t(R nd * 90 + 10)Text1.Text = Text1.Text & a(i) & ” ”Next iEnd SubFori = 1 To 10Text2.Text = Text2.Text & a(i) & ” ”Next iEnd SubPrivate Sub Comma nd3_Click()Text1.Text =Private Sub Comma nd2_C

11、lick()Dim i As In teger 用来表示外围循环变量Dim j As In teger 用来表示内循环变量 Dim t As In tegerFori = 1 To 9用来表示临时变量Text2.Text =End SubPrivate Sub Comma nd4_Click()EndEnd SubFor j = i + 1 To 10If a(i) a(j) Thent = a(i) a(i) = a(j) a(j) = tEnd IfNext jNext i8题目：请按照题目要求设计指定的窗体。随机产生10个两位整数并将10个数采用冒泡排序的算法实现升序排列HE 库 hrg

12、m.排存（:升仔）口 Form!1芦主看空岀JOp ti on Exp licitDim a(1 To 10) As Integer 用于存放 10 个数Private Sub Comma nd1_Click()Dim i As In teger用来表示循环变量Fori = 1 To 10Next iFori = 1 To 10Text2.Text = Text2.Text & a(i) & ” ”Next iEnd Suba(i) = In t(R nd * 90 + 10)Text1.Text = Text1.Text & a(i) & ” ” Next iEnd SubPrivate S

13、ub Comma nd2_Click()Dim i As In teger 用来表示外围循环变量Dim j As In teger 用来表示内循环变量 Dim t As In tegerFori = 1 To 9For j = 1 To 10 - iIf a(j) a(j + 1) The nt = a(j)a(j) = a(j + 1)a(j + 1) = tEnd IfPrivate Sub Comma nd3_Click()TextI.Text =Text2.Text =End SubPrivate Sub Comma nd4_Click()EndEnd Sub用来表示临时变量Next

14、j9.题目：请按照题目要求设计指定的窗体。编程计算公式S=1!+3!+5!+,(2N-1)!的值。窗体设计界面参见如下。(1) 要求N的值在文本框Text1中输入，累加和显示在Text2中；(2) 程序中应定义一个通用函数过程facto,用以计算某个整数的阶乘& Forrr-ilMCI铝出tl ItOp ti on Exp licitPrivate Function fact(x As In teger) As In tegerP rivate Sub Comma nd1_Click()Dim i As In teger用于表示循环变量Dim i As In teger 表示循环变量fact

15、= 1Dim n As In teger 表示计算的项数For i = 1 To xDim s As In teger 表示最后的和fact = fact * in = Val(Text1.Text)Next iFor i = 1 To nEnd Fun cti ons = s + fact(2 * i - 1)Private Sub Comma nd2_Click()Next iEndText2.Text = sEnd SubEnd Sub10题目：请按照题目要求设计指定的窗体。编写程序，找出100以内的所有素数，存放在数组P中，并将所找到的素数，按每行 10个的形式显示在文本框 Textl

16、中。程序界面如下图所示：(1) 按 找素数”按钮，则查找素数，并按格式要求显示在多行文本框中；(2) 程序中应定义一个通用函数过程P rime()，以判断一个数是否为素数；口. m找1MLH内旳)B強I100 H内誉数列我11131? L9 2329475359 C1 677197Op ti on Exp licitOp tio n Base 1Private Sub Comma nd1_Click()Dim i As In teger, n As In teger, P() As In tegerFor i = 2 To 100If p rime(i) Thenn = n + 1ReDim P reserve P(n)P(n) = iEnd IfNext iFor i = 1 To UBou nd(P)Text1 = Text1 & Right(” & P(i), 3)If i Mod 10 = 0 The n Text1 = Text1 &