2023-2024学年高一上学期选修1第一章第2节 编一个简单的VB程序

2023-2024学年高一上学期选修1第一章第2节 编一个简单的VB程序 一、选择题 1．下列是VB控件工具箱的部分截图，其中“标签”控件工具是（    ） A．1 B．2 C．3 D．4 2．建立一个VB程序窗体，如图所示，下列说法正确的是 A．该窗体的名称是“第一个VB小程序” B．当前选中对象的类名是“Lab4” C．当前界面共有7个对象 D．“VB01.vbp”是窗体文件名 3．若变量a、b的值分别为3、6，则表达式b+a/b-a的值是（     ）。 A．-3 B．3 C．3.5 D．-1 4．下列不能输入数据的是(       ) A．INPUTBOX B．赋值语句 C．TEXTBOX D．MSGBOX 5．在VB语句dim s(9) as integer中，数组s的变量个数和类型是： A．9 整型 B．10 整型 C．9 单精度型 D．10 单精度型 6．有如下VB程序段： n=7 For i = 1 To n\2    For j=n-i To i+1 Step-1       If a(j)>a(j-1)Then          t=a(j):a(j)=a(j-1):a(j-1)=t       End If    Next j    If i Mod 2 = 0Then       t=a(n-i+1):a(n-i+1)=a(i):a(i)=t    End If Next i 已知a(1)到a(7)各元素初值分别是1，2，3，4，5，6，7，运行上述程序段后，a(1)到a(7)各元素的值分别是（   ） A．7，5，3，1，2，4，6 B．6，4，2，1，3，5，7 C．7，6，5，4，3，2，1 D．6，5，2，1，3，4，7 7．在Visual Basic中，语句TName.Caption = "2012伦敦"中的TName是 A．对象名 B．属性名 C．属性值 D．事件名 8．下列选项中，适合用计算机编程来解决的是(   ) A．统计学生半期考分数 B．截取视频 C．制作电子小报 D．求两个数的最小公倍数 9．依据对分查找思想设计了如下三分查找程序， 已知数字 a（1 To 10） 中的数据分别为“15，25，40，45，55，59，67，78，89，96”，在文本框 Text1 中输入“55”，则列表框 List1 中输入位置值 “5”，在文本框 Text1 中输入“47”，在列表框 List1 中输入与“47”左右相邻的位置“4   5”，实现该功能的 VB 程序段如下： Key=Val（Text1.Text） i=1：j=10   flag=False Do While i<=j And Not flag Lmid= （1） Rmid=j-（j-i）\3 If Key=a（Lmid） Or Key=a（Rmid） Then Flag=True Elseif （2） Then      i=Lmid+1      j=Rmid-1 Elseif Key<a（Lmid） Then      j=Lmid-1 Else      i=Rmid+1 End if Loop      If Flag And Key=a（Lmid） Then           List1.AddItem Str（Lmid）      ElseIf Flag Then           List1.AddItem Str（Rmid）      Else           List1.AddItem （3） EndIf 上述程序中方框处可选语句为： ①（j-i）\3+i ②（i+j）\3+1 ③Key<a（Lmid） And Key>a（Rmid） ④Key>a（Lmid） And Key<a（Rmid） ⑤str（i）+str（j） ⑥Str（j）+Str（i） 则（1）（2）（3）处的语句依次为（      ） A．①④⑥ B．②③⑤ C．①④⑤ D．②④⑥ 10．有如下 VB程序段∶ Dim a(1 to 6) As Integer,i As Integer For i=1 To 6 a(i)=Int（Rnd*4）*2+1 If i Mod 2=1 Then a(i)=a(i) * 2 Else a(i)=a(i)+a(i-1) Next i 最终a数组各元素的值可能是（  ） A．10，11，6，7，14，17 B．6，5，2，9，10，17 C．2，9，14，17，5，7 D．6，11，10，23，4，9 11．对下边的流程图，关于算法特征的描述正确的是（     ） A．此流程图不符合算法有一个或多个输出的特征 B．此流程图不符合算法的确定性特征 C．此流程图不符合算法的可行性特征 D．此流程图符合算法的特征 12．在设计程序界面时，应使用图所示“控件工具箱”中的 添加文本框 Text1。 A．① B．② C．③ D．④ 13．下列可作为VB变量名的是(    ) A．4A B．D_Y C．Y+ X D．And 14．变量c中存储着一个字符，能正确判断出该字符为数字字符“a”~“z”的VB表达式是 A．c >= "a " And c <= "z " B．c >= "a " Or c <= "z" C．chr(c) >= "a " And chr(c) <=  "z " D．chr(c) >= "a " Or chr(c) <=  "z " 15．骰子是一个正六面体，用1~6这六个数分别代表这六面，掷一次骰子出现的数可表示为（   ） A．INT（RND（6）+1） B．INT（RND*6） C．INT（RND（1）*7） D．INT（RND（1）*6+1） 二、填空题 16．有如下Visual Basic程序段： m=3 If  m>5  Then n=m*m Else n=4*m End  If 该程序段运行后，变量n的值是________。 17．对X四舍五入保留4位有效数字 18．以下是一个用VB制作的温度转换器的设计界面，由图回答以下几个问题： （1）由图可知，当前正在编辑的工程文件名是 （2）由图综合分析可得，“计算”所指的对象名称为 （3）通过上图可知，代码窗口的事件处理过程是 ，同时也能发现text是text1对象的一个 （选填：方法/属性）。 （4）在代码窗口 （选填：能/不能）修改某对象的属性。 19．数组的维数由( )的个数决定，数组的最小下标从1开始，要在声明段中用( )语句说明。 20．清除标签LABEL1中内容的语句是( ) 三、操作题 21．某加密算法对大写字母加密，其加密规则如下：密文的ASCII码值=明文的ASCII码值+密钥，加密后生成的密文仍为大写字母。其密钥是在3*3矩阵中获得，获得密钥的方式为：如字母“A”的ASCII码值为65，将65反复除3，其转换过程如图1所示，得到商为2，密钥在矩阵中所在行：得到余数2，密钥在矩阵中所在列：商或余数为0，密钥在矩阵中最后- -行或最后一列。其程序运行界面如图2 所示。 （1）下列对象中没有Caption属性的是 （单选，填字母：A．CommandI /B．Forml /C．Textl和Text2）。 （2）实现上述功能的VB程序如下，请在划线处填入合适的代码。 ① ② （3）程序中加框处代码有错，请改正。 （4）根据程序的功能并结合图2，字母C加密后的密文为 。 图1 图2 Dim a(1 To 9) As Integer Private Sub Commandl_ Click() Dim column As Integer, row As Integer, t As Integer,tmp As Integer Dim s As String,ch As String, result As String s = Textl．Text: result = "" For i= 1 To Len(s)    ch= Mid(s,i, 1):t=____① _    column=(t- 1)Mod3 + 1    Do Whilet>= 3       t=t\3    Loop row = tmp = (Asc(ch) + ②   -65) Mod 26 + 65 result = result + Chr(tmp) Next i Text2.Text = result End Sub Private Sub Form_ Load()   用来生成3*3矩阵 For i= 1 To 9    a(i)= Int(Rnd *9)+ 1    s=s + Str(a(i))    If i Mod3= 0 Then       Listl．AddItem s       s=" "    End If Next i End Sub 22．信息技术李老师把一条加密信息交给同学们去破解。 01000/00011/00101/00010/00100/00010/00100/00001/00101/00011/00101/00011/00101/00010/00100/00010/01001/00010/01001/00001/00111/00100/ 密文信息由“0，1，/”组成，解密过程如下： ●将二进制密码信息（5位一组，以“/”分隔）转换成对应的十进制数。 ●对数字按两个一组分组，发现末位数字不超过4，且数字4只会出现在7和9后面，与手机九宫格输入面板相似。如41表示按键4中第一个字母G，94表示按键9中的第四个字母Z，如图a所示：    ●字母替换。如A用Q替换，F用Y替换，如下所示：    ●将上述结果奇数位、偶数位的字符分别提取出来，最后连接在一起。如APPLE变成APEPL。 ●逆序输出结果。 根据上述解密算法编写解密程序，程序在启动时读取密文并在Text1中显示，单击“解密”按钮，在文本框Text2中显示明文。程序运行效果如图b所示。    (1) 要使程序在启动时自动读取密文并在Text1中显示（代码略），这部分代码添加在 ______（单选，填字母：A．Form1_Load/B．Form_Load/C．Form1_Click/D．Text1_Click）事件过程中。 (2) 实现上述功能的VB程序如下，请在划线处填入合适的代码。    四、简答题 23．简答题 邓凯、邓旋、杨柳、文雪同学组成学习小组制作网站，他们要做一个关于海南的网站，赞美和宣传海南。 （1） 他们将做好的网站发布在邓凯的计算机上供别人浏览时，邓凯的计算机充当的是服务器还是客户机？ （2）如下图是其中一张网页的部分代码，从图中代码可知，这张网页的标题是什么？ （3）该网页属于动态网页还是静态网页？网页中使用的CSS样式表类型是什么？ （4）下图是制作网页过程中的部分代码，其中使用的脚本语言文件的完整文件名是什么？ 试卷第1页，共3页 试卷第1页，共3页 学科网（北京）股份有限公司 参考答案： 1．A 2．C 3．C 4．D 5．B 6．B 7．A 8．D 9．A 10．A 11．A 12．B 13．B 14．A 15．D 16．12 17．INT(X*10^4+0.5)/10^4 18．（1）温度转换.vbp；（2）command1（3）command1_click( )，属性（4）能 19． 下标 OPTION   BASE  1 20．LABEL1.CAPTION=”” 21． C ①Asc(ch) ②a((row - 1) * 3 + column) 或 t (t-1)Mod 3 + 1 或(t+2)Mod 3 + 1或(t-1+3)Mod 3 + 1 F 22．（1）B （2）①n=n-1 ②b（（i-1）\2+1）=getstr（i） ③change=Mid（code,Asc（b（y））-64，1） 23．（1）服务器；（2）美丽三亚；（3）动态网页；内联式样式表；（4）Sy.js 答案第1页，共2页 答案第1页，共2页 学科网（北京）股份有限公司 $$