2018年信息技术选考第二轮复习VB程序设计填空题加试题3

1、命题：杜宗飞第二轮复习VB程序设计填空题加试题 3行政班:教学班： 姓名： 学号： 第4页共5页1.编写VB程序，实现如下功能：在文本框Textl中输入仅包含数字的字符串，单击 “加密” 按钮Commandj加密字符串，并在标签 Labell中输出结果。加密方法：“ 0”变成“ 1”、“1” 变成“ 2”、“ 2”变成“ 3”“ 9”变成“ 0”。例如输入“129”，则加密后变成“ 230”。界 面如第14题-1图所示。Com tn an 11Labelltl使第14题-1图写性-FormlXFot-mlAfpearaiceL - 3DAutoRedrawFalse AJSOOOOOOF.Dn

2、丄 del 3 Lyl-e - SizbblyCiptifln魏至d i pCentralErm*Prut找字匡序拽好室序第14题-2图(1 )在设计应用程序界面时，应设置第14题-2图所示“属性窗口”中的 填写属性名)改变窗体Form1的背景颜色。(2)为实现上述功能，请在划线处填入合适代码或选项。Private Sub Comma nd1_Click()Dim s1 As String , s2 As String, c As StringDim i As In teger, n As In tegers1 = Text1.Text _ (填程序代码)n = Len( s1) s2 =C

3、(填字母：从下列A B、C三个选项中选取一项)c = Mid(s1, i, 1)If c = 9 The nc = 0ElseB (填字母：从下列A B、C三个选项中选取一项)End Ifs2 = s2 + ci = i + 1LoopLabel1.Caption = s2End Sub戈U线、的选项:B. c = Chr(Asc(c) + 1)C. Do While i = nA. For i = 1 To n2.大衍数列指的是这样一个数列：0、2、4、8、12、18、24、32、40、，他来源于乾坤谱中对易传“大衍之数五十”的推论。数列中的每一项，都代表太极衍生过程中，是中 华传统文化中隐

4、藏着的世界数学史上第一道数列题。数列的通项公式：An=(n21)/2 (n为奇数)，An二n2 / 2 (n为偶数)。在文本框Text1中输入一个整数，单击命令按钮 Commandl 后，如果在标签 Label2上显示前n项和。程序运行界面如图所示。第16题图实现上述功能的 VB代码如下，但加框处代码有错，请改正。Private Sub Comma nd1_Click()Dim a(1 To 50) As Long, s As Longn = Val(Text1.Text)For i = 1 To ni Mod 2 =1IfThe na(i) = (i A 2 - 1) / 2Elsea(i)

5、 = i a 2 / 2End IfNext is = 0i = 1Do While i = ns = s+a(i)i = i + 1LoopLabel2.Caption =大衍数列前 ” + Str(n) + 项和为 ” + Str(s)End Sub3. 一个正整数，如果从左向右读和从右向左读是一样的，这样的数就叫回文数，例如121是回文数，123不是回文数。小明设计了一个程序用于判断是否为回文数。程序运行时，在 文本框Text1中输入一个正整数，单击Command1在标签Label1上显示判断结果。程序运行效果如第17题图所示。第16题图 实现上述功能的 VB程序如下，请在划线处填入合适

6、代码。Private Sub Comma nd1_Click()Dim s As Stri ng,c1 As Stri ng, c2 As Stri ngDim n As In teger, i As In teger n存储回文数的长度Dim flag As Boolean flag表示是否为回文数S = Text1.Textn = Len(s)i = 1flag = True Do While i = n 2 And flag = True c1 = Mid(s, i, 1)c2 = Mid(s, n-i+1, 1)If c1 c2 Thenflag = False End If_i =

7、i+1LoopIf flag = True The n Label1.Caption =该数是回文数！”ElseLabel1.Caption =该数不是回文数！ ”End IfEnd Sub4、质数又称素数，是指除了 1和本身之外不再有其他因数的数。例如整数7只能被1和7整除，因素只有1和乙 所以7是素数。编写VB程序，实现如下功能：单击,按钮Command,1 在列表框list1 中显示100以内的所有素数，在标签 Label1上显示素数的个数。9-1-7 123-571111?.UK u -豆_一ft_E-F-_kr- _F 1234567091111英肓厉个臺埶!实现上述功能的 VB代码

8、如下，请在划线处填入合适代码。Private Sub Comma nd1_Click()Dim i As In teger, j As In teger, p As In tegerDim flag As Boolea np = 0 p用于存储素数的个数For i = 2 To 100flag = True 先假设变量i是素数j = 2Do While j i - 1Ifi mod j = 0 The n flag = False: Exit Doj = j + 1 LoopIf flag Thenp=p+1List1.Addltem 第 ” + Str(p) + 素数为 ” + Str(i)

9、End IfNext iLabel1.Caption = 共有 ” + Str(p) + 个素数！ ”End Sub5.【加试题】质数又称素数，是指除了1和本身之外不再有其他因数的数。如果两个质数的差为2，则这两个质数称为 孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质 数对”按钮Command1在列表框list1 中显示100以内的所有孪生质数对(运行效果如图所 示)。实现上述功能的 VB代码如下，请在划线处填入合适代码。hKW 1 7 9 19 1 3 1 1 2 4 & TPrivate Sub Comma nd1_Click()Dim i As In teger, j As In teger, p As In tegerDim a(1 To 100) As Integer 依次用于存储 100以内素数Dim flag As Boolea nc = 0 c用于存储素数的个数For i = 2 To 100flag = True 先假设变量i是素数j = 2Do While j i - 1If i Mod j = 0 Then flag = False: Exi