高三信息技术专题复习 高中信息技术选考Vb专题复习04.docx
- 【下载声明】
1. 本站全部试题类文档,若标题没写含答案,则无答案;标题注明含答案的文档,主观题也可能无答案。请谨慎下单,一旦售出,不予退换。
2. 本站全部PPT文档均不含视频和音频,PPT中出现的音频或视频标识(或文字)仅表示流程,实际无音频或视频文件。请谨慎下单,一旦售出,不予退换。
3. 本页资料《高三信息技术专题复习 高中信息技术选考Vb专题复习04.docx》由用户(cbx170117)主动上传,其收益全归该用户。163文库仅提供信息存储空间,仅对该用户上传内容的表现方式做保护处理,对上传内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知163文库(点击联系客服),我们立即给予删除!
4. 请根据预览情况,自愿下载本文。本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
5. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007及以上版本和PDF阅读器,压缩文件请下载最新的WinRAR软件解压。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 高三信息技术专题复习 高中信息技术选考Vb专题复习04 信息技术 专题 复习 高中 Vb 04 下载 _人教版_信息_高中
- 资源描述:
-
1、Vb 专题复习专题复习 04 01.(导 P814)计算 s=2+4+6+50 的部分算法流程图如图所示。图中判断框 1 处和处理框 2 处应分别填入的 是 A i51? ii+1 B i50? ii+1 C i a(i - 1) Then Else k = 0 End If If k = 1 Then s = s + 1 Next i text1.Text = Str(s) 方框中的正确语句是 A k=k-1 B k=1 C k=-1 D k=k+1 12. (导 P8811)判断某年是否为闰年的 VB 程序如下: Private Sub Command1_Click() Dim x As
2、Integer x = Val(text1.Text) label1.caption= End Sub Function leapyear(year As Integer) As String If year Mod 4 = 0 And year Mod 100 0 Or year Mod 400 = 0 Then leapyear = “是闰年“ Else leapyear = “不是闰年“ End If End Function 程序中画线处应填入的是 A year B year(x) C leapyear(x) D leapyear 13. (导 P8812)有如下 VB 程序段 Dim
3、 a(1 To 100) As Integer Sum = 0 Randomize For k = 1 To 100 a(k) = Int(Rnd * 50) If a(k) Mod 2 = 0 Then Sum = Sum + a(k) Next k 该程序段运行后,变量 sum 中存储的是 A 100 个随机整数中偶数的个数 B 100 个随机整数中奇数的个数 C 100 个随机整数中偶数的和 D 100 个随机整数中奇数的和 14. (导 P8813)有如下 VB 程序: Private Sub Command1_Click() Dim x As String, y As Long Di
4、m i As Integer, s As String x = text1.Text y = Len(x) s = “ For i = 1 To y s = s & Mid(x, y - i + 1, 1) Next i text2.Text = s End Sub 运行该程序,在文本框 Text1 中输入“a1b2c3” ,单击命令按钮 Command1,在文本框 Text2 中显示的内容是 A 3 B 6 C a1b2c3 D 3c2b1a 15. (导 P89-14)某 VB 程序的一个事件过程如下 Private Sub Command1_Click() Dim i As Intege
展开阅读全文