浙江省余姚市第四职业技术学校2022年高一上计算机技能操作模拟2

浙江省余姚市第四职业技术学校2022年计算机 技能操作模拟测试卷2 考试说明： 1.在答题的过程中请注意保存： 2.提交前请核对所有文件是否存在 试题一(30分) 设计一个VB程序，一个简单的个人情况表单，界面如下： 白信息统计 个人情况调查 信息 姓名： 张无 。男 C女 姓名：张三性别：男 爱好：计算机运动 特长： 口计算机 反运动 厂唱歌 厂美术 提交 结束 确定 1.创建一个“标准的exe”工程，将其窗体文件和工程文件分别以“test1.frm”、“test1.vbp” 为文件名保存到“D八考号引考试结果程序设计试题一”文件夹下。(2) 2.参照图完成界面设计：按表1添加相关对象并设置相关属性(15) 对象 属性 属性值 对象 属性 属性值 信息统计 个人情况调 Form1 Caption Caption Label1 查 Name cmd1 font 四号字体 Command1 Caption 提交 Label2 Caption 姓名： Name Cmd2 Label3 Caption 特长： Command2 Caption 结束 Text1 Caption Option1(0) Caption 男 Option1(1) Caption 女 Check1(0) Caption 计算机 Check1(1) Caption 运动 Check1(2) Caption 唱歌 Check1(3) Caption 美术 3.选择对应的控件，在事件中编写代码以实现程序功能。（功能1：单击“提交”按钮，通 过”对话框”显示最后的信息结果，如图所示。功能2：单击“结束”按钮，结束运行)调试并 运行程序(12') 4.保存窗体文件和工程文件夹，生成可执行程序“test1.exe”,并保存到“D八考号趴考试结果 程序设计试题一”文件夹下。(1) Private Sub cmd1 Click() Dim xm As String Dim xb As String Dim tc As String Dim jg As String xm Text1.Text 完成“姓名”信息的获取1分 Fori=0To1 If Option1(i).Value True Then xb Option1(i).Caption Next i 完成“性别”信息的获取3分 For i=0To3 If Check1(i).Value =1 Then tc=tc Check1(i).Caption &" Next i 完成“特长、爱好”信息的获取3分 jg="姓名："&xm&"性别："&xb&vbCrLf&"爱好："&tc MsgBox jg.,"信息" 输出最后的信息结果3分 End Sub 试题二(25分) 修改VB程序，使其具有下列功能：程序运行时，输入格式为“#”后面跟6位十六进制 数（其中字母均为大写），单击“转换”按钮Command1:,在标签Label:1上输出对应的RGB 颜色值。如RGB(100,255,10)等价于十六进制颜色码64FF0A。程序运行结果如图所示。 [白十六进制颜色码转RGB额色值 ✉回x 输入十六进制颜色码： FF0062 RGB(255,0,98) 转换 打开“D考号\考试结果\程序设计试题二”文件夹中的工程文件“test2.bp”,完成下列操 作： 1.选择合适的控件，将“D考号趴考试结果\试题二”文件夹下“code.txt”的代码复制到该 过程中，并根据代码的提示修改其对应的属性。(3') 2.找出并修改“一①一”和“一②一”的错误，同时在代码中的“一③一”、“一④一”和“ ⑤一”处填写一条代码（填写完成后，删除标号），以让程序正确执行。调试并运行程序。(4 *5=20) 3.保存窗体文件和工程文件夹，生成可执行程序“test2.exe”,并保存到“D八考号引考试结果 1程序设计试题二”文件夹下。(2') Private Sub Command1 Click() Dim i As Integer,y As Integer Dim s As String,ans As String s Text1.Text s=Mid(s,2,6) -②-参考答案：mids,2,6) y=0 Fori=1To6 a=Mid(s,i,1) If a >"A"Then j=AsCa)-Asc("A")+10'③-参考答案：Asca)-Asc"A"門)+10 Else j=Val(a) End If _____________________ If iMod2=1Then Else y=y*16+j ans=ans+Str(y)④，参考答案：ans=ans+Str(y) If i<6Then ans=ans+”，”⑤参考答案i<6或i=6 y=0