2023-2024学年人教版高一上学期选修1第一章第3节 使用文本框

2023-2024学年人教版高一上学期选修1第一章第3节 使用文本框 一、选择题 1．在VB中，将窗体标题“Form1”改为“中华美食”需设置的属性是（     ） A．Name B．Caption C．Font D．Visible 2．有如下的程序段： Private Sub Command1_Click() Dim m As String Dim n As String m = Text1.Text n = Text2.Text Label1.Caption= m + n End Sub 运行程序，在对象Text1和Text2中分别输入12和34，则单击命令按钮Command1后，对象Text3中显示（   ） A．1234 B．46 C．语法错误 D．3412 3．在VB中，“zjxj.frm”文件属于（    ）。 A．工程文件 B．代码文件 C．窗体文件 D．可执行文件 4．将文本框Text1中的数据赋值到数值型变量n中，正确的语句是（ ） A．n=Text1 B．n=Text1.Text C．n=str（Text1.Text） D．n=val(Text1.Text) 5．写出下列程序的输出结果 Private Sub Command1_Click() Dim a As String Dim c As String a = "zhejiangxiaoshi" c =" Mid(a," Len(a) \ 2 + 2, 7) Text1.Text = c End Sub 该程序段运行后，在文本框Text1上显示的是(       ) A．"xiaoshi" B．"zhejiang" C．zhejiang D．xiaoshi 6．如图所示是VB窗体中某个对象的属性窗口,下列说法中正确的是(　　) A．True是该对象的属性名 B．该对象名为Text1 C．该对象属于标签类 D．BackColor是该对象的属性值 7．x和n都是正整数且x<=n，下列选项中，与语句“x=x Mod n +1 ”功能相同的是（   ） A．x=(x+1) Mod n B．x=x+1 If x=n Then x=1 C．x=x+1 If x=n+1 Then x=1 D．x=x+1 If x=n+1 Then x=0 8．VB 表达式Int(Rnd*9)+54\3^2/3的值可能是（  ） A．9 B．16 C．19 D．27 9．在Visual Basic中，鼠标单击窗体Form触发的事件处理过程名为（   ） A．Form_Click B．Form_load C．Text1_DblClick D．Form_DblClick 10．在VB窗体中有一个对象，该对象的属性窗口如图所示。下列说法中不正确的是(　 　) A．Left为属性名 B．1560为属性值 C．该对象是可用的 D．根据“Timer1 Timer”可判断窗体名为Timer 11．张羽用VB编写了一个程序，保存在计算机中根据图标判断，下面4个文件中，其中为张羽编写的工程文件是（    ）。 A．算法的特征.htm B．斐波那契数列问题.vbp C．Visua Basic精简版.exe D． VB精编程技巧.wmv 12．下面选项中哪个是可执行文件的扩展名  (   ) A．exe B．png C．dxf D．rar 13．下列程序执行后文本框Text1显示的内容是(　　) s = "Inter(R) Core(TM) i3-4130 CPU @ 3.40GHz" flag = False:k = 0 For i = 1 To Len(s) 　ch = Mid(s, i, 1) 　If ch >= "A" And ch <= "Z" or ch >= "0" And ch <= "9" Then 　　If Not flag Then 　　　k = k + 1 　　　flag = True 　　End If 　Else 　　flag = False 　End If Next i Text1.Text = Str(k) A．6 B．9 C．10 D．18 14．exe格式的文件属于（   ）。 A．图像文件 B．音频文件 C．视频文件 D．可执行文件 15．要使程序运行时，窗体Form1标题显示“字符串生成”，可在Form_Load事件过程中添加语句（    ）。 A．Form1＝“字符串生成” B．Form1.Text＝“字符串生成” C．Form1.Caption＝“字符串生成” D．Caption.Form1＝“字符串生成” 二、填空题 16．某同学设计了编写了一个VB程序用以计算y的值。由键盘输入x。 运行VB程序，在文本框text1中输入x值， 界面如第2题（1）图所示。 第2题（1） 单击“计算Y”按钮后，标签3中显示y的值。 VB程序如下： Private Sub Command1_Click() Dim x, y As Single x =" Val(Text1.Text)" y = （1） Label3.Caption = （2） End Sub 则划线处填入的语句为（1） （2） 17．观察程序界面，回答以下问题 （1）此图共有 个对象。 （2）此窗体Form1的 属性的值为“文字加密” （3）设计此程序时，“密码：”“原文：”“密文”是用到工具箱上的哪个控件( ) A．B．C．D． （4）．窗体中密文的文本框外观与原文文本框不同，是因为设置了哪项属性( ) A．ForeColor     B．BackColor      C．Font       D．Text （5）．本程序的功能是对原文进行加密计算，加密的结果显示在密文中，要实现在密文文本框内不能输入文字，应该设置文本框的属性和属性值为( ) A．Visible属性为True B．Visible属性为False C．Enabled属性为True D．Enabled属性为False 18．在通过VB设计“BMI指数”的程序中，王明将变量BZ赋值给Text2.text输出，相应的代码是 。 19．下列VB程序运行时，在文本框Text1中输入数据-25，在文本框Text2中输入数据-100，单击命令按钮Command1后，文本框Text3中显示的内容是______。 Private Sub Command1_Click( ) Dim a As Integer, b As integer, c as integer a = Val(Text1.Text) b = Val(Text2.Text) If a>b and a>0 Then c="sqr(a)" else c=sqr(abs(b)) Text3.Text = str(c) End Sub 20．( )用于对窗体上的对象分组。 三、操作题 21．某数据解密算法描述如下： （1）在输入的数字字符串中依次提取有效的密文，有效的密文的特点： ①是一组连续的，都小于5的三位数字串；②每个位置上的数字不能被重复提取； （2）对有效密文进行解密的过程： 将密文作为一个五进制数转换为对应的十进制数值，根据ASCII字符的十进制编码表，得出对应的明文字符（提示：空格符所对应的ASCII码值为十进制数32，小写字母“z”所对应的ASCII码值为十进制数122）. 例如，密文242转换成十进制数为72，对应的明文字符为大写字母“H”。 程序运行界面如下图所示，在文本框Text1中输入密文，单击“解密”按钮，在文本框Text2中输出解密后的明文密码。 （1）若输入的密文为“841497230235”，则对应的明文是 。 （2）实现上述功能的VB代码如下，划线处的语句有错，应改为 。 （3）请在划线处填入合适的代码. '以下代码是将有效密文数字转换为十进制数的函数 Function conv(p As String) As Integer Dim k As Integer, q As String, i As Integer k = 0: g = "" For i = 1 To 3 q = Mid(p, i, 1) Next i conv = k End Function Private Sub Command1_Click() Dim st As String, p As String, res As String Dim c1 As String, c2 As String, c3 As String Dim i As Integer, d As Integer, n As Integer st = Text1.Text: n = Len(st) i = 1: res = "" Do While i <= n – 2    '提取有效密文,并进行转换 c1 = Mid(st, i, 1): c2 = Mid(st, i + 1, 1): c3 = Mid(st, i + 2, 1) If c1<"5" Or c2 <"5" Or c3 <"5" Then d=conv(p) If d >= 32 And d <= 122 Then res = res + Chr(d) Else i = i + 1 End If Loop Text2.Text = res End Sub 22．下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是______，文本框Text2中显示的内容是_______。 Private Sub Command1_click( ) Dim a(1 to 3) as integer,k as integer,t as integer,s as integer a(1)="15:" a(2)="36:" a(3)=7 s=0 For k="2" to 3 if a(k)>a(1) then t=a(1):a(1)=a(k):a(k)=t s=s+1 End if Next k text1.text=str(a(1)) text2.text=str(s) End sub 四、简答题 23．定义函数的基本格式是： 。 试卷第1页，共3页 试卷第1页，共3页 学科网（北京）股份有限公司 参考答案： 1．B 2．A 3．C 4．D 5．D 6．B 7．C 8．C 9．A 10．D 11．B 12．A 13．B 14．D 15．C 16．（1）（10－abs（x））/（2*x）；（2）str（y） 17． 8 Caption D B D 18．Text2.text=Str(BZ) 19．10 20．框架 21． mA c1<"5" And c2<"5" And c3<"5" 或其它等价答案 ① k=k*5+Val(q) 或 k=k+Val(q)*5^(3-i) 或其它等价答案 ②p=Mid(st,i,3) ③i=i+3 22．（1）36（1分）  （2）1（1分） 23．def  函数名(参数):        #函数说明       语句或语句组       return 返回值 答案第1页，共2页 答案第1页，共2页 学科网（北京）股份有限公司 $$