高三信息技术专题复习高中信息技术选考Vb专题复习03.docx

上传人（卖家）：cbx170117

文档编号：425030

上传时间：2020-04-02

格式：DOCX

页数：7

大小：332.41KB

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

3.5 文币

交易提醒：下载本文档，相应价格的文币将全额进入上传人（卖家）的账号。立即下载优惠套餐（点此详情）

【下载声明】
1. 本站全部试题类文档，若标题没写含答案，则无答案；标题注明含答案的文档，主观题也可能无答案。请谨慎下单，一旦售出，不予退换。
2. 本站全部PPT文档均不含视频和音频，PPT中出现的音频或视频标识（或文字）仅表示流程，实际无音频或视频文件。请谨慎下单，一旦售出，不予退换。
3. 本页资料《高三信息技术专题复习高中信息技术选考Vb专题复习03.docx》由用户（cbx170117）主动上传，其收益全归该用户。163文库仅提供信息存储空间，仅对该用户上传内容的表现方式做保护处理，对上传内容本身不做任何修改或编辑。若此文所含内容侵犯了您的版权或隐私，请立即通知163文库（点击联系客服），我们立即给予删除！
4. 请根据预览情况，自愿下载本文。本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
5. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007及以上版本和PDF阅读器，压缩文件请下载最新的WinRAR软件解压。

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: 高三信息技术专题复习高中信息技术选考Vb专题复习03 信息技术专题复习高中 Vb 03 下载 _人教版_信息_高中

资源描述：: 1、Vb 专题复习专题复习 03 1 （导（导 P90-16） “找出一个正整数的所有因子”的 VB 程序如下： Private Sub Command1_Click() Dim x As Long, c As Integer, i As Integer x = Val(text1.Text)：c = 0 For i = 1 To x If x Mod i = 0 Then c = c + 1 list1.AddItem Str(i) End If Next i text2.Text = Str(c) End Sub 阅读分析上述程序，填写下表 1，2 处的内容变量名变量的作用 x 用于存储
2、输入的待查找因子的正整数 c （1） (2) 输入的正整数 x 的每一个可能的因子 2.小施想编写一个 VB 程序帮助弟弟练习最大公约数的计算，程序运行界面如图所示。单击“生成题目”按钮 Command1 生成两个两位随机正整数，分别显示在文本框 Text1 和文本框 Text2 中。在文本框 Text3 中输入结果并按回车键后，如果结果正确，将在该文本框右边的标签 Label 中显示“” “X” 。请在画线处填入合适代码。 Private Sub Command1_Click() Dim i As Integer， m As Integer， n As Integer Randomize
3、m = Int(Rnd * 90) + 10 n = Int(Rnd * 90) + 10 Text1.Text = Str(m)：text2.Text = Str(n)：text3.Text = “: label3.Caption = “ If m n Then r = n Else r = m For i = r To 1 Step -1 If m Mod i = 0 （1） n Mod i = 0 Then r = i Exit For End If Next i End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If Key
4、Ascii = 13 Then If r =（2）Then label3.Caption = “ Else label3.Caption = “ X “ End If End Sub 3.（导（导 P2-例例 2）某 Visual Basic 程序如下： Private Sub Command1_Click() Dim i As Integer, sum As Integer：sum = 0 For i = 10 To 2 Step -2 sum = sum + i Next i text1.Text = Str(sum) End Sub 运行程序，单击命令按钮 Command1 后弹出如图所
5、示的出错信息，此时程序正执行的语句是： A sum=0 B For i = 10 To 2 Step -2 C sum = sum + i D text1.Text = Str(sum) 2 （导 P6-例 14）有如下 Visual Basic 程序段： s = 0 For i = 1 To 5 s = s + i Next i 该程序段运行后，变量 i 的值为： A 1 B 5 C 6 D 15 4 （导（导 P8-例例 19）在 Visual Basic 中，某对象的属性窗口如图所示，该对象名是： A CommandButton B Command1 C Command_1 D App
6、earance 5. （导（导 P9-例例 22）下列能作为 VB 变量名的是： A IF B 2t C My Var D Book 1 6 （导（导 P19-例例 8）寻找数组元素 a(1)到 a(10)中最小值(min)的 Visual Basic 程序段如下,方框中最合适的语句是： For i = 2 To 10 If a(i) Min Then Min = a(i) Next i A a(1)=min B a(1)=0 C min=a(1) D min=0 7. （导（导 P31-例例 3）下列能计算 Sum=1+2/3+3/5+50/99 的 Visual Basic 程序段是： A Sum=1 For i=1 to 49 Sum=Sum+i/(2*i-1) Next i B Sum=0 For i=1 to 99 Sum=i/(2*i-1) Next i C Sum=0 i=1 Do while i=50 Sum=Sum+i/(2*i-1) D Sum=0 i=1 Do while i1），那么 2 处的处理框内容被执行的次数为 A 1 B i-1 C i D i+1

展开阅读全文