专题三 顺序结构程序设计（练习）-《Visual Basic 程序设计》高考备考讲练测（内蒙古）

专题三 顺序结构程序设计 一：单选题 1：VB提供了结构化程序设计的3种基本结构，这3种基本结构是（ ）。 A.递归结构，分支结构，循环结构 B.选择结构，过程结构，顺序结构 C.过程结构，输入、输出结构，转向结构 D.分支结构，循环结构，顺序结构 【答案】D 【解析】结构化程序设计的三种基本结构是顺序结构、选择结构（分支结构）和循环结构。 2：有程序代码“Text1．Text="Visual Basic"，其中的Text1、Text和"Visual Basic"分别代表（ ） A．对象、值、属性 B．对象、方法、属性 C．对象、属性、值 D．属性、对象、值 【答案】C 【解析】Text1：代表一个具体的对象。Text：是 Text1 对象的一个属性，用于表示该文本框中显示的内容。"Visual Basic"：是赋值给 Text 属性的具体值，即文本框最终要显示的内容。 3：如果文本框的Enabled属性设为False，则（ ） A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上 B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容 C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容 D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 【答案】A 【解析】VB 中文本框 Enabled 属性的作用：Enabled 属性用于控制控件是否可用。当该属性设为 False 时，控件处于 “禁用” 状态 4：InputBox函数返回值的类型为（ ）。 A.数值 B.字符串 C.变体 D.数值或字符串（视输入的数据而定） 【答案】B 【解析】InputBox 函数用于弹出一个输入对话框，接收用户输入的内容。其返回值的类型固定为字符串。 5：MsgBox( )函数的格式为：MsgBox(A[，B][，C][，D，F])。若出现下图所示的信息对话框中，应设置（ ） A．A="学习"，C="VB6.0" B．B="学习"，A="VB6.0" C．C="学习" D．D="学习" 【答案】A 【解析】 A：必选参数，代表对话框中显示的提示信息；B：可选参数，指定对话框的按钮、图标样式等；C：可选参数，代表对话框的标题栏文本。 6：设有语句x$=InputBox(“输入数值”，“0”，“示例”),程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（ ） A.变量X的值是数值10 B.在InputBox对话框标题栏中显示的是“示例” C.0是默认值 D.变量X的值是字符串“10” 【答案】D 【解析】InputBox(prompt, title, default) 各参数含义：prompt：对话框中显示的提示文本；title：对话框标题栏的文本；default：输入框中的默认值。 7：下列关于MsgBox函数的叙述，不正确的是（ ） A.可以省略任何参数 B.可以设定消息框的指定图标 C. 可以指定消息框的默认按钮 D. 函数调用后返回值为数值型 【答案】A 【解析】MsgBox 函数的基本格式为：MsgBox(prompt[, buttons][, title][, helpfile, context])；prompt 参数是必选参数，不能省略。若省略该参数，函数会报错。 8：要使文本框获得输入焦点，则应采用文本框控件的（ ）方法。 A. GotFocus B. LostFocus C. KeyPress D. SetFocus 【答案】A 【解析】GotFocus：是事件（Event），当文本框获得焦点时触发，并非主动设置焦点的方法。SetFocus：是方法。 9：在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下， Private Sub Text1_change( ) Text2.text=ucase(Text1.text) End Sub 则在Text1文本框输入“visual basic”，Text2将（ ）。 A.Text2中无内容显示。 B.Text2显示"VISUAL BASIC"。 C.Text2显示"visual basic" D. Text1显示"visual basic" 【答案】B 【解析】UCase 函数将 “visual basic” 转换为大写 “VISUAL BASIC”。 10：文本框没有（ ）属性。 A. Enabled B. Visible C. BackColor D. Caption 【答案】D 【解析】Caption：用于设置控件的标题文本，但文本框没有 Caption 属性，其显示的内容通过Text属性设置。 11：将文本框的（ ）属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。 A. MultiLine B. Enabled C. ScrollBars D. TextEnd Sub 【答案】A 【解析】本题考查文本框的MultiLine属性。MultiLine属性设为True时，文本框支持多行文本，且内容超出宽度时自动换行；Enabled属性控制文本框是否可用；ScrollBars属性用于设置滚动条；Text属性用于获取或设置文本内容。因此答案选A。 12：下面程序运行后，输出的结果为（ ） Private Sub Command1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai” C$=Instr(Left(A$,2)+Right$(B$,2),C$) Print C$ End Sub A.10 B.0 C.8 D.6 【答案】B 【解析】Left(A$, 2)：取 A$ 左边前 2 个字符，结果为 "Be"；Right$(B$, 2)：取 B$ 右边后 2 个字符，结果为 "an"；Instr(字符串1, 字符串2) 函数的作用是：在 字符串1 中查找 字符串2 第一次出现的位置，若未找到则返回 0。 13：在窗体中添加Command1和Command2两个命令按钮来测验文本框Text1的值，然后编写如下代码： Private Sub Command1_Click() Text1.Text = "AB" End Sub Private Sub Command2_Click() Text1.Text = "CD" End Sub 首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示（ ） A.AB B.CD C.ABCD D.CDAB 【答案】A 【解析】文本框中显示的是最后一次操作的结果，即 "AB"。 14：用InputBox函数可帮助生成（ ）。 A. 消息框 B.“保存”对话框 C.简单输入框 D.“颜色”对话框 【答案】C 【解析】InputBox 函数用于在程序运行时弹出一个简单的输入对话框，提示用户输入信息，并返回用户输入的内容。它的作用是获取用户的简单输入，属于 “简单输入框”。 15：有如下程序 Private Sub Text1_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii)) End Sub 运行后，在文本框中键入b按回车后，窗体上的输出结果是（ ）。 A.B B.b C.66 D.98 【答案】Ａ 【解析】KeyAscii 参数：存储按下按键对应的 ASCII 码值。键入小写字母 b 时，其 ASCII 码值为 98。Chr(KeyAscii) 函数：将 ASCII 码值转换为对应的字符。此处将 98 转换为小写字母 b。UCase(字符) 函数：将输入的字符转换为大写形式。此处将小写 b 转换为大写 B。 16：要判断在文本框是否按了Enter键，应在文本框的（ ）事件中判断。 A. Change B. KeyDown C. Click D. KeyPress 【答案】D 【解析】KeyPress事件在按键被按下并释放时触发，专注于字符输入，其参数KeyAscii返回字符的 ASCII 码，Enter 键的 ASCII 码为 13，可直接通过该值判断是否按下了 Enter 键。 17：已知如下程序： x=msgbox（"确定要退出？"，3+48+0，"确认退出"） print x 若程序运行时单击第一个按钮则窗体上的输出结果为 A．7 B．6 C．2 D．1 【答案】B 【解析】msgbox 函数会返回一个值，表示用户点击了哪个按钮，点击“是(Y)”按钮时，msgbox 函数返回 6。 18：下列（ ）语句可以将变量A、B的值互换。 A. A=B:B=A B.A=A+B:B=A-B:A=A-B C.A=C:C=B:C=A D.A=(A+B)/2:B=(A-B)/2 【答案】B 【解析】A=A+B：A 存储 A 和 B 的总和；B=A-B：用总和减去原来的 B，结果为原来的 A，赋值给 B，此时 B 的值已变为原来的 A；A=A-B：用总和减去新的 B，结果为原来的 B，赋值给 A，最终 A 和 B 的值成功互换。 19：若要以代码方式设置在文本框中显示文本的字体大小，则可用文本框的（ ）属性来实现。 A. FontName B. Font C. FontSize D. FontBold 【答案】B 【解析】FontSize：专门用于设置或返回文本的字体大小。 20：在Visual Basic中，工程文件包含一个模块文件和窗体文件。 模块文件的代码如下： Public x As Integer Private y As Integer 窗体文件代码是： Dim a As Integer Private Sub Form_Load() Dim b As Integer a = 2: b = 3: x = 10: y = 20 End Sub Private Sub Command1_Click() a = a + 5: b = b + 5: x = x + 5: y = y + 5: Print a; b; x; y End Sub 运行程序，单击命令按钮，窗体上显示的结果为（ ） A．5 5 15 5 B．7 5 15 25 C．7 8 15 5 D．7 5 15 5 【答案】D 【解析】a=2，b=3（仅在Form_Load有效），x=10，y=20（窗体无法访问y），a = a + 5：窗体级a从 2 变为 7；b = b + 5：b是新变量（初始 0），结果为 5；x = x + 5：公共变量x从 10 变为 15；y = y + 5：窗体无法访问模块级y，视为新变量（初始 0），结果为 5。 二：填空题 1：要想在代码中给名为 txt 的文本框赋予文本：GOOD WORK！时，应当编写的语句是______。 【答案】txt.Text="GOOD WORK !" 【解析】文本框的Text属性用于获取或设置其显示的文本内容，赋值时需将字符串用双引号包裹。 2：已知变量A、B、C中C的值最小，则判断A、B、C可否构成三角形的逻辑表达式是____。 【答案】A+C>B AND B+C>A AND C>0 【解析】构成三角形的条件是任意任意两边任意两边任意两边之和大于第三边，且三条边的长度均为正数。 3：要精确地将文本输出到窗体、图片或打印页上，可以用位置属性____________和_____________ ，设定输出位置的横坐标和纵坐标。 【答案】CurrentX；CurrentY 【解析】在 Visual Basic 中，CurrentX和CurrentY是用于精确设定输出位置的属性。CurrentX：表示下一次输出的横坐标（水平位置）。CurrentY：表示下一次输出的纵坐标（垂直位置）。 4：要使一个文本框具有水平和垂直流动条，则应先将其Muliline属性设值为True,然后再将Scrollbar属性设值为_____。 【答案】3 【解析】要使文本框同时具有水平和垂直滚动条，需将ScrollBars属性设置为 3。 5：运行以下语句的输出结果是______。 dim x as integer,y as integer x=126 y=x + "139" print x+y 【答案】391 【解析】”139“会转换成数值类型进行计算。 6：假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。 【答案】Text1.SetFocus 【解析】在 Visual Basic 中，SetFocus方法用于将焦点设置到指定的对象上，使该对象成为活动对象，能够接收用户的输入。 7：运行以下语句的输出结果是______ dim m as integer m = 3.14 print m - 3 【答案】0 【解析】本题考查Visual Basic的类型转换。m是整数类型，赋值3.14时会自动取整为3，因此m - 3 = 3 - 3 = 0。 8：在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox("请输入一个整数") b=InputBox("请输入一个整数") Print a+b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为____。 【答案】321456 【解析】InputBox函数返回的是字符串类型的值。在程序中，变量a和b分别接收输入的 "321" 和 "456"，两者均为字符串。当对两个字符串使用+运算时，VB 会执行字符串拼接操作，将两个字符串连接起来，因此输出结果为 "321456"。 9：执行下面的程序段后，b的值为_____。 A=300:b=20 a=a+b:b=a-b:a=a-b 【答案】300 【解析】程序段通过三步变量交换的经典算法实现 A 和 b 的值互换。 10：下列语句的输出结果为___________。 Print Format(5689.36,”000.000”) 【答案】5689.360 【解析】小数点前的"000"表示整数部分至少显示 3 位，若实际位数多于 3 位则按实际显示；小数点后的"000"表示小数部分固定显示 3 位，不足则补 0。 三：程序填空题 1.下列程序的功能是在第一个文本框中输入英文字母时，在第二、三个文本框显示大小写。请将程序补充完整。 Private Sub Text1_Change() Text2. Text = _____（1）_____ (Text1. Text) Text3. Text = ____（2）____ (Text1. Text) End Sub 【答案】 （1） UCase （2） LCase 【解析】本题考查字符串大小写转换函数。UCase函数将文本转为大写，LCase函数转为小写。 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 专题三 顺序结构程序设计 一：单选题 1：VB提供了结构化程序设计的3种基本结构，这3种基本结构是（ ）。 A.递归结构，分支结构，循环结构 B.选择结构，过程结构，顺序结构 C.过程结构，输入、输出结构，转向结构 D.分支结构，循环结构，顺序结构 2：有程序代码“Text1．Text="Visual Basic"，其中的Text1、Text和"Visual Basic"分别代表（ ） A．对象、值、属性 B．对象、方法、属性 C．对象、属性、值 D．属性、对象、值 3：如果文本框的Enabled属性设为False，则（ ） A.文本框的文本将变成灰色，并且此时用户不能将光标置于文本框上 B.文本框的文本将变成灰色，用户仍然能将光标置于文本框上，但是不能改变文本框中的内容 C.文本框的文本将变成灰色，用户仍然能改变文本框中的内容 D.文本框的文本正常显示，用户能将光标置于文本框上，但是不能改变文本框中的内容 4：InputBox函数返回值的类型为（ ）。 A.数值 B.字符串 C.变体 D.数值或字符串（视输入的数据而定） 5：MsgBox( )函数的格式为：MsgBox(A[，B][，C][，D，F])。若出现下图所示的信息对话框中，应设置（ ） A．A="学习"，C="VB6.0" B．B="学习"，A="VB6.0" C．C="学习" D．D="学习" 6：设有语句x$=InputBox(“输入数值”，“0”，“示例”),程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（ ） A.变量X的值是数值10 B.在InputBox对话框标题栏中显示的是“示例” C.0是默认值 D.变量X的值是字符串“10” 7：下列关于MsgBox函数的叙述，不正确的是（ ） A.可以省略任何参数 B.可以设定消息框的指定图标 C. 可以指定消息框的默认按钮 D. 函数调用后返回值为数值型 8：要使文本框获得输入焦点，则应采用文本框控件的（ ）方法。 A. GotFocus B. LostFocus C. KeyPress D. SetFocus 9：在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下， Private Sub Text1_change( ) Text2.text=ucase(Text1.text) End Sub 则在Text1文本框输入“visual basic”，Text2将（ ）。 A.Text2中无内容显示。 B.Text2显示"VISUAL BASIC"。 C.Text2显示"visual basic" D. Text1显示"visual basic" 10：文本框没有（ ）属性。 A. Enabled B. Visible C. BackColor D. Caption 11：将文本框的（ ）属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出文本框的宽度时自动换行。 A. MultiLine B. Enabled C. ScrollBars D. TextEnd Sub 12：下面程序运行后，输出的结果为（ ） Private Sub Command1_Click( ) A$=”Beijing” B$=”dalian” C$=”shanghai” C$=Instr(Left(A$,2)+Right$(B$,2),C$) Print C$ End Sub A.10 B.0 C.8 D.6 13：在窗体中添加Command1和Command2两个命令按钮来测验文本框Text1的值，然后编写如下代码： Private Sub Command1_Click() Text1.Text = "AB" End Sub Private Sub Command2_Click() Text1.Text = "CD" End Sub 首先单击Command2按钮，然后再单击Command1按钮，在文本框中显示（ ） A.AB B.CD C.ABCD D.CDAB 14：用InputBox函数可帮助生成（ ）。 A. 消息框 B.“保存”对话框 C.简单输入框 D.“颜色”对话框 15：有如下程序 Private Sub Text1_KeyPress(KeyAscii As Integer) Print UCase(Chr(KeyAscii)) End Sub 运行后，在文本框中键入b按回车后，窗体上的输出结果是（ ）。 A.B B.b C.66 D.98 16：要判断在文本框是否按了Enter键，应在文本框的（ ）事件中判断。 A. Change B. KeyDown C. Click D. KeyPress 17：已知如下程序： x=msgbox（"确定要退出？"，3+48+0，"确认退出"） print x 若程序运行时单击第一个按钮则窗体上的输出结果为 A．7 B．6 C．2 D．1 18：下列（ ）语句可以将变量A、B的值互换。 A. A=B:B=A B.A=A+B:B=A-B:A=A-B C.A=C:C=B:C=A D.A=(A+B)/2:B=(A-B)/2 19：若要以代码方式设置在文本框中显示文本的字体大小，则可用文本框的（ ）属性来实现。 A. FontName B. Font C. FontSize D. FontBold 20：在Visual Basic中，工程文件包含一个模块文件和窗体文件。 模块文件的代码如下： Public x As Integer Private y As Integer 窗体文件代码是： Dim a As Integer Private Sub Form_Load() Dim b As Integer a = 2: b = 3: x = 10: y = 20 End Sub Private Sub Command1_Click() a = a + 5: b = b + 5: x = x + 5: y = y + 5: Print a; b; x; y End Sub 运行程序，单击命令按钮，窗体上显示的结果为（ ） A．5 5 15 5 B．7 5 15 25 C．7 8 15 5 D．7 5 15 5 二：填空题 1：要想在代码中给名为 txt 的文本框赋予文本：GOOD WORK！时，应当编写的语句是______。 2：已知变量A、B、C中C的值最小，则判断A、B、C可否构成三角形的逻辑表达式是____。 3：要精确地将文本输出到窗体、图片或打印页上，可以用位置属性____________和_____________ ，设定输出位置的横坐标和纵坐标。 4：要使一个文本框具有水平和垂直流动条，则应先将其Muliline属性设值为True,然后再将Scrollbar属性设值为_____。 5：运行以下语句的输出结果是______。 dim x as integer,y as integer x=126 y=x + "139" print x+y 6：假定有一个文本框，其名称为Textl，为了使该文本框具有焦点，应执行的语句是______。 7：运行以下语句的输出结果是______ dim m as integer m = 3.14 print m - 3 8：在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox("请输入一个整数") b=InputBox("请输入一个整数") Print a+b End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为____。 9：执行下面的程序段后，b的值为_____。 A=300:b=20 a=a+b:b=a-b:a=a-b 10：下列语句的输出结果为___________。 Print Format(5689.36,”000.000”) 三：程序填空题 1.下列程序的功能是在第一个文本框中输入英文字母时，在第二、三个文本框显示大小写。请将程序补充完整。 Private Sub Text1_Change() Text2. Text = _____（1）_____ (Text1. Text) Text3. Text = ____（2）____ (Text1. Text) End Sub 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $