《(完整word版)江苏省计算机二级VB模拟试卷1(新版).pdf》由会员分享，可在线阅读，更多相关《(完整word版)江苏省计算机二级VB模拟试卷1(新版).pdf（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、江苏省高等学校计算机等级考试二级 Visual Basic 考试模拟试卷 1(本试卷完成时间120 分钟)第一部分计算机基础知识1.下列不同进位制的四个数中,最小的数是 _(1)_ A.二进制数 1100010 B.十进制数65 C.八进制数77 D.十六进制数45 2.下列关于PC机主板的叙述正确的是_(2)_。A不同厂家生产的主板，尺寸各不相同B主板上安装有存储器芯片，如ROM 芯片、CMOS芯片等CCPU是直接固定在主板上的，不可更换D主板上安装有电池，在计算机断开交流电后，临时给计算机提供电流，供计算机工作3.下面关于BIOS的一些叙述正确的是_(3)_。ABIOS是存放于ROM 中的
2、一组高级语言程序BBIOS中含有系统工作时所需的全部驱动程序CBIOS系统由加电自检程序、系统主引导记录的装入程序、CMOS设置程序、基本外围设备的驱动程序组成D没有 BIOS的 PC机也可以正常启动工作4.计算机软件(简称软件)指的是能指挥计算机完成特定任务的、以电子格式存储的程序、数据和相关的文档。在下列有关软件的叙述中,错误的是 _(4)_。A.软件的版权所有者不一定是软件作者B.自由软件指的是一种无版权的软件,允许修改其源代码C.用户购买一个软件后,就获得该软件版权D.共享软件是一种买前免费试用,具有版权的软件5.以下关于操作系统中多任务处理的叙述错误的是_(5)_。A将 CPU时间划
3、分成许多小片，轮流为多个程序服务，这些小片称为“时间片”B由于 CPU是计算机系统中最宝贵的硬件资源，为了提高CPU的利用率，一般采用多务处理C正在 CPU中运行的程序称为前台任务，处于等待状态的任务称为后台任务D在单 CPU环境下，多个程序在计算机中宏观上同时运行，微观上由CPU轮流执行6.以下关于 IP地址的叙述错误的是_(6)_。A正在上网(online)的每一台计算机都有一个IP地址B现在广泛使用的IPv4协议规定IP地址使用32 个二进位表示CIPv4 规定的 IP 地址快要用完了，取而代之的将是64 位的 IPv5 DIP 地址是计算机的逻辑地址，每台计算机还有各自的物理地址7.路
4、由器用于连接异构的网络，它收到一个IP数据报后要进行许多操作，这些操作不包含_(7)_。A域名解析B路由选择C帧格式转换DIP数据报的转发8.通过有线电视接入因特网时需使用电缆调制解调(Cable MODEM)技术，以下叙述错误的是_(8)_。A采用同轴电缆和光纤作为传输介质B收看电视时不能上网C能提供语音、数据、图像传输等多种业务D同一连接段中多个用户的信号都在同一电缆上传输9.至目前为止,已发布多种汉字信息的编码标准。在下列叙述中,错误的是_(9)_。A.无论采用那种编码标准(如 GBK、UCS-4等),汉字的机内码都是采用16 位二进制表示的B.中文版 Windows98/2000 操作
5、系统都支持GB2312-80、GBK等多种汉字编码标准。C.GB2312-80 是我国颁布的第一个汉字信息编码的国家标准。D.不同的汉字输入法,其可以输入的不同汉字个数可能有所不同。10.下列四种声音文件中,不可能用于保存歌曲的是_(10)_。AWAV B MP3 CMIDI D WMA 1.C 2.B 3.C 4.C 5.C 6.C 7.A 8.B 9.A 10.C 第二部分Visual Basic 程序设计一、选择题（共10 分，每题2 分）1.下列控件中，无法用于显示程序运行结果的是_1 _。ATextBox BListBox CPictureBox DTimer 2.下列有关转换函数的
6、说法中，正确的是_2 _。AInt 和 CInt 函数的区别仅在于返回结果的数据类型不同BInt 和 Fix 函数将非整数数据转换成整数，转换后的结果类型是Long C在处理正数时，Int 函数和 Fix 函数的返回结果是相同的D在处理负数时，Int 函数和 Fix 函数的返回结果是相同的3.数学式对应的VB表达式是_3_。ALog(x)/Log(10)-Cos(30*3.14159/180)+Abs(x 2+Sqr(y)+Exp(x)BLog(x)/Log(10)-Cos(30)+Abs(x 2+Sqr(y)+e x CLog(x)-Cos(30*3.14159/180)+Abs(x 2+S
7、qr(y)+Exp(x)DLog(x)-Cos(30)+Abs(x 2+Sqr(y)+e x 4.下列有关数组的说法中，错误的是_ 4 _。A若模块中有“Option Base 1”语句，则该模块中的数组的维下界都为1 B定长字符串类型的数组也可以作为过程的形式参数C只能在标准模块中用Public 语句定义全局数组D若 A 是固定大小数组，执行语句Erase A 后，数组A 的所有元素被初始化5.下列关于过程参数的叙述中，正确的是_5 _。文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M
8、1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10
9、文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:C
10、Y6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8
11、H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 H
12、J10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T
13、7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8
14、ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10A符号常数名可以出现在定义过程的形式参数表中B过程调用时，与用ByRef 说明的形参结合的实在参数不可以是常数或表达式C在自定义过程中，用ByVal 说明的形参值发生改变，不会影响与之结合的实参的值DVB 对过程的形式参数的类型没有任何限制二、填空题（共20 分，每空2 分）1.执行下面程序，单击命令按钮Command1，
15、则窗体上显示的第一行内容是_(1)_，第二行内容是_(2)_。Option Explicit Private Sub Command1_Click()Dim i As Integer,j As Single,k As Integer j=11 For i=2 To 10 Step 2.5 j=j-2.5 If j=Int(j)Then i=i+j Mod 10 Else i=i+1 End If k=i+j Next i Print i Print k End Sub 2.执行下面程序，单击命令按钮执行下面程序，单击命令按钮Command1，则数组元素，则数组元素，则数组元素A(1,2)的值是
16、_(3)_、A(2,1)的值是_(4)_、A(3,3)的值是_(5)_。Option Explicit Option Base 1 Private Sub Command1_Click()Dim A(3,3)As Integer,K As Integer Dim i As Integer,j As Integer i=2 j=1 A(i,j)=39 For K=38 To 31 Step-1 If i-1=0 And j-1 0 Then i=3:j=j-1 ElseIf i-1 0 And j-1=0 Then i=i-1:j=3 ElseIf i-1=0 And j-1=0 Then i=
17、1:j=2 ElseIf A(i-1,j-1)0 Then 文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 H
18、J10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T
19、7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8
20、ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M
21、1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10
22、文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:C
23、Y6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10j=j+1 Else i=i-1:j=j-1 End If A(i,j)=K Next K For i=1
24、To 3 For j=1 To 3 Text1.Text=Text1.Text&A(i,j)&Next j Text1.Text=Text1.Text&vbCrLf Next i End Sub 3.执行下面程序，单击命令按钮执行下面程序，单击命令按钮Command1，则窗体上显示的第一行内容是_（6）_，最后一行内容是_（7）_。Option Explicit Private Sub Command1_Click()Dim a As Integer,b As Integer,k As Integer For a=2 To 3 b=a+1 k=Fun(Fun(a,b),b)Print k Ne
25、xt a Print b End Sub Private Function Fun(a As Integer,b As Integer)As Integer b=a+b a=a+b Fun=a+b End Function 4.执行下面程序，单击命令按钮Command1，则多行文本框Text1 中显示的第一行内容是_（8）_，第二行内容是_（9）_，第三行内容是_（10）_。Option Explicit Private Sub Command1_Click()Dim s1 As String,s2 As String,data1 As String,data2 As String Dim i
26、 As Integer data1=1011 1010 1110 data2=1010 1101 1010 For i=1 To Len(data1)Step 5 s1=Mid(data1,i,4)s2=Mid(data2,i,4)Text1.Text=Text1.Text&Subtract(s1,s2)&vbCrLf 文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H
27、5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ
28、10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7
29、T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 Z
30、N1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1
31、K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文
32、档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY
33、6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10Next i End Sub Private Function Subtract(s1 As String,s2 As String)As String Dim i As Integer,k As Integer,L As Integer Dim j As Integer,s As String L=Len(s1)For i=1 To L If Mid(s1,i,1)=0 And Mid(s2,i,1)=0 Then Subtract=Sub
34、tract&0 Else Subtract=Subtract&1 End If Next i End Function 三、操作题（共50 分）1.完善程序。(共 12 分)【要求】1)打开”考生文件夹”中”P1.vbp”文件,完善程序后,直接保存所有文件。【题目】本程序的功能是找出4 500 之间的史密夫数。所谓史密夫数是指该数的各位数字和等于其质因子分解中所有质因子的各位数字和。例如在十进制下，202 就是一个史密夫数，因为2+0+2=4，202 的质因子分解为2 101，2+1+0+1=4。Option Explicit Option Base 1 Private Sub Command
35、1_Click()Dim i As Integer,he As Integer Dim n As Integer,pf()As Integer For n=4 To 500 文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编
36、码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K
37、2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O
38、4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10
39、C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5
40、Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1
41、T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6
42、H10Call Pfactor(n,pf)If UBound(pf)1 Then _(1)_ For i=1 To UBound(pf)he=he+Sum(pf(i)Next i If Sum(n)=he Then List1.AddItem n End If End If Next n End Sub Private Sub Pfactor(ByVal n As Integer,f()As Integer)质因子分解Dim k As Integer,P As Integer k=2 Do Do While _(2)_ P=P+1 ReDim Preserve f(P)f(P)=k n=n k
43、 Loop _(3)_ Loop Until n=1 End Sub Private Function Sum(ByVal n As Integer)As Integer Dim S As String,L As Integer,k As Integer,i As Integer S=CStr(n)_(4)_ For i=1 To L k=Val(Mid(S,i,1)Sum=Sum+k Next i End Function 2.改错题（共16 分）【要求】1)打开”考生文件夹”中”P2.vbp”文件，改正程序中的错误后，直接保存所有文件；2)改错时，不得增加或删除语句但可适当调整位置。【题目
44、】本程序的功能是在给定的数字串中（在给定的数字串中（121709473）找出所有的素数子串。文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档
45、编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6
46、K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5
47、O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ1
48、0C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T
49、5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN
50、1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10文档编码:CY6K2X8H5O4 HJ10C2T7T5Q8 ZN1T3M1K6H10Option Explicit Private Sub Command1_C