违法和不良信息举报 联系客服
免费注册 登录

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。【应用说明5.1】本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。

题目

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

【应用说明5.1】

本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时，用户从Combo1的列表中进行选择，程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。

【程序代码5.1】

Private Sub Combo1_Click()

Txt1.Text = Combo1. (1)

Txt2.Text = Combo1. (2)

End Sub

(注：可供(2)处选择的选项：List, Index, Listlndex, ListCount, Number)

【应用说明5.2】

本应用程序的运行窗口如图2所示。

开发该应用的部分程序代码如下：

【程序代码5.2】

Private Sub CmbOp_Click()

Dim Dataln As Double,DataOut as Double

Dataln=(3)

Select Case (4)

Case "取整数部分"

DataOut =Int(Dataln)

Case "求平方根"

If Dataln＜0 Then

MagBox "负数不能开平方!"

Else

DataOut = Sqr(Dataln)

End If

Case "取绝对值"

DataOut = Abs(Dataln)

(5)

TxtOut. Text = str $ (DataOut)

End Sub

如果没有搜索结果或未解决您的问题，请直接 联系老师 获取答案。
相似问题和答案

第1题：

阅读下列说明和?C++代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
阅读下列说明和?Java代码，将应填入?(n)?处的字句写在答题纸的对应栏内。
【说明】
某快餐厅主要制作并出售儿童套餐，一般包括主餐(各类比萨)、饮料和玩具，其餐品种
类可能不同，但其制作过程相同。前台服务员?(Waiter)?调度厨师制作套餐。现采用生成器?(Builder)?模式实现制作过程，得到如图?6-1?所示的类图。






答案：
解析：

第2题：

试题三（共 15 分）

阅读以下说明和 C 程序，将应填入 （n） 处的字句写在答题纸的对应栏内。


正确答案：

第3题：

阅读以下说明和流程图，将应填入(n)处的字句写在对应栏内。

[说明]

下面的流程图用于计算一个英文句子中最长单词的长度(即单词中字母个数)MAX。假设该英文句子中只含字母、空格和句点“.”，其中句点表示结尾，空格之间连续的字母串称为单词。

[流程图]


正确答案：(1)MAX←0 (2)←L+1 (3)MAX←L (4)≠ (5)L←0
(1)MAX←0 (2)←L+1 (3)MAX←L (4)≠ (5)L←0 解析：本题用到的三个变量及其作用分别为：A，存放输入的一个字符；MAX，存放当前为止最长单词的长度；L，存放当前单同的长度。
(1)使用变量MAX应先赋予初值，由上下文知其初值为0；
(2)读取当前单词时，每读人一个字母，单词长度值L应增1；
(3)当前单词长度L比MAX时，应更新MAX的值；
(4)若当前字符不是句点，应当继续读取字符；
(5)读取下一个单词前，应当重置L的值。

第4题：

阅读以下应用说明及Visual Basic程序代码，将应真入______处的语句写在答题纸的对应栏内。

[应用说明5.1]

应用程序的窗体中有1个下拉式列表框(名称为Combol)和2个文本框(名称分别为Txt1和Txt2)。运行时，用户从Combo1的列表中进行选择，程序就会将选中条目的内容及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。

[程序代码5.1]

Private Sub Combol_Click()

Txt1，Text=Combol. (1)

Txt2．Text=Combol. (2)

End Sub

(注意：可供(2)处选择的选项有List，Index，ListIndex，LisCount，Number)

[应用说明5.2]

本应用程序的运行窗口如图2-1所示。

当用户在输入框(名为TxtIn)中输入数值数据，并从下拉式列表框(名称为CmbOp)中选择所需的运算后，输出框(名为TxtOut)中就会显示运算的结果。用户单击“清除”按钮(名为CmdClear)后，输入框和输出框都清空。

[程序代码5.2]

Private Sub CmbOp_Click()

Dim DataIn As Double，DataOut as Double

DataIn＝(3)

Select Case (4)

Case“取整数部分”

DataOut=Int(DataIn)

Case“求平方根”

If DataIn＜0 Then

MsgBox$(“负数不能开平方!”

Else

DataOut=Sqr(DataIn)

End If

Case“取绝对值”

DataOut=Abs(DataIn)

(5)

TxtOut.Text=str$(DataOut)

End Sub


正确答案：(1)Text (2)ListIndex (3)Val(TxtIn.Text)或TxtIn.Text (4)CmbOp.Text (5)End Select
(1)Text (2)ListIndex (3)Val(TxtIn.Text)或TxtIn.Text (4)CmbOp.Text (5)End Select 解析：组合框(Combo Box)是组合列表框和文本框的特性而成的控件。它的Text属性值是用户所选择的项目的文本或直接从编辑区输入的文本。它的ListIndex属性值为选中条目的编号。
文本框的Text属性用来设置本框中的显示的内容。
在VB中，情况语句的一般格式为：
Select Case测试表达式
Case表达式表列1
[语句块1]
[Case表达式表列2
[语句块2]]
...
[Case Else
[语句块n]]
End Select

第5题：

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

【说明】

本应用程序是一个乘法计算器，其运行窗口如图2所示。

在该界面中，“被乘数”、“乘数”以及“积”等文字为标签，相应的3个输入输出数据框为文本框，此外还有3个命令按钮。用户在“被乘数”和“乘数”相应的文本框内输入数据，再单击“运算”按钮，便能在“积”对应的文本框中看到相乘的结果；当用户单击“清除”按钮时，就会清除各文本框中的数据；当用户单击“关闭”按钮时就会关闭该窗口并退出应用程序。用户不能在“积”对应的文本框中输入数据。

【属性设置】

各个对象、有关的属性名以及需要修改的属性值设计如下：

【程序】

Private Sub cmdMultiply_Click( )

txt3. Text =Trim(Str＄ ((3)) '加法运算获得和数

End Sub

Private Sub (4) (

txt1. Text=" " '空字符串赋值给文本框txt1的内容

txt2. Text=" " '空字符串赋值给文本框txt2的内容

txt3. Text=" " '空字符串赋值给文本框txt3的内容

End Sub

Private Sub cmdClose_Click( )

(5) '退出应用程序

End Sub


正确答案：(1)False (2)cmdMultiply (3)Val(txt1.Text)*Val(txt2.Text)或其等价形式 (4)cmdClear-Click (5)End或Unload frmMultiply或其等价形式
(1)False (2)cmdMultiply (3)Val(txt1.Text)*Val(txt2.Text)或其等价形式 (4)cmdClear-Click (5)End或Unload frmMultiply或其等价形式 解析：(1)空处需要填写文本框3的Enabled属性，在说明中已经指出用户不能在“积”对应的文本框中输入数据，因此其Enabled属性为“False”。
(2)空处需要填写按钮1(运算按钮)的名称，从程序代码的Private Sub cmdMaltiply_Click()事件中，可以判断按钮1的名称为“cmdMultiply”。
(3)空处所在语句是进行乘积运算，由于文本框的文字是字符类型，不能直接进行乘积运算，先要将它转换成数据型再进行乘积运算。因此(3)空处应当填写“Val(txt1.Text)*Val(txt2.Text)”或其等价形式。
(4)空处需要填写一个事件的名称，从下面的代码可以看出这是“清空”按钮Click事件所完成的工作，“清空”按钮的名称为“cmdClear”，因此(4)空应填写“cmdClear_Click”。
(5)空处需要填写退出应用程序的语句。在VB中，这样的语句有很多，常用有两个，一个是“End”，另一个“Unload窗口名称＞”。

第6题：

阅读以下说明和流程图，将应填入(n)处的字句写在对应栏内。

【说明】

已知头指针分别为La和lb的有序单链表，其数据元素都是按值非递减排列。现要归并La和Lb得到单链表Lc，使得Lc中的元素按值非递减排列。程序流程图如下所示：


正确答案：(1)pa-＞data=pb-＞data (2)pc-＞next=pa (3)pc=pb (4)pb=pb-＞next (5)pc-＞next=pa?pa:pb
(1)pa-＞data=pb-＞data (2)pc-＞next=pa (3)pc=pb (4)pb=pb-＞next (5)pc-＞next=pa?pa:pb 解析：本题考查程序流程图和有序链表的归并。
题目要求我们归并头指针分别为La和Lb的有序单链表，组成一个新的有序单链表 Lc，而Lc又是指向La的。首先，我们来了解一下单链表的结构。单链表中一般有两个域，一个是数据域，用来存放链表中的数据；另一个是指针域，用来存放指向下个结点的指针。其归并的过程应该是先比较链表La和Lb中第一个元素，将较小的从其链表中取出放到k中，再取下一个结点的值去比较，重复这个过程，直到一个链表被全部取完，再将另一个链表剩下的部分连接到Lc后面即可。
下面，我们来看程序流程图的内容。首先是用两个指针变量pa和pb分别指向La和Lb的当前待比较插入的结点，而pc指向Lc表中当前最后一个结点。再下面是一个条件判断语句，其作用是判断链表La和Lb是否为空，如果有一个为空，只要将另一个链表剩下的部分连接到Lc后面，程序应该就可以结束了。
第(1)空是条件判断语句的条件，根据我们上面的分析，再结合流程图下面的内容，我们可以知道，这个条件语句的作用是比较当前待插入的两个值的大小，而指针变量pa和pb分别指向La和Lb的当前待比较插入的结点，因此，此空的答案为 pa-＞data=pb-＞data。
第(2)空是在条件为真的情况下执行的语句，如果条件判断为真，应该将pa所指结点连接到pc所指结点后面，因此，pc所指结点的指针域应该存放pa所指结点的地址。所以，此空的答案为pc-＞next=pa。
第(3)空和第(4)空都是在条件为假的情况下执行的语句，如果条件为假，说明 pb所指结点的值小于pa所指结点的值，应该将pb所指结点连接到pc所指结点后面，图中已经实现这一功能，要我们完成的是在插入后的后继工作。由于pc指向的是Lc表中当前最后一个结点，在插入一个结点后，要修改pc的值。在将pb所指结点插入后，链表中的最后一个结点就是pb所指结点，第(3)空的答案应该为pc=pb。执行完这些功能后，指针pb应该要往后移动，即指向下一个结点，第(4)用来完成这个功能，所以答案为pb=pb-＞next。
在前面，我们已经讲到如果链表La和Lb有一个为空，只要将另一个链表剩下的部分连接到Lc后面即可。第(5)空就是用来完成这个功能的，但我们不知道具体是哪个链表为空，还需要判断，因此，此空答案为pc-＞next=pa?pa:pb。

第7题：

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。

【说明】

在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键 (ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”；如果存在，则在Labe12中给出提示“输入项已在组合框中”。

【程序】

Private Sub Combo1 (1) (KeyAscii As Integer)

If KeyAscii=(2) Then

For i=0 To (3)

If Combo1. Text=(4) Then

Labe12. Caption ="输入项已在组合框中"

Exit Sub

End If

Next i

Label2. Caption ="已成功添加输入项"

Combo1. (5) Combo1.Text

End If

End Sub


正确答案：(1)KeyPress (2) 13 (3) Combol.ListCount-1 (4) Combol. List (i) (5) AddItem
(1)KeyPress (2) 13 (3) Combol.ListCount-1 (4) Combol. List (i) (5) AddItem 解析：根据题意，“在组合框中输入一个新项后按回车键(ASCII码为13)时…”，因此Combol的事件名称应是Combol_KeyPress，即(1)空填"KeyPress”；(2)空判断按键是否是回车键，填“13”；如果是，再穷举组合框的所有列表项(即、(3)空填“Combol．ListCount-1”)，查看是否有等于输入项Combol．Text(即(4)空填“Combol．LisL(i)”)，有则在 Labe12中给出提示“输入项已在组合框中”，否则在Labe12中给出提示“已成功添加输入项”，并将输入项(Combol.Text)添加到组合框中，即 (5)空填"AddItem”。

第8题：

●试题五

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1、Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"；如果存在，则在Label2中给出提示"输入项已在组合框中"。

【程序】

Private Sub Combo1_ (1) (KeyAscii As Integer)

If KeyAscii= (2) Then

For i=0 To (3)

If Combo1．Text= (4) Then

Label2．Caption="输入项已在组合框中"

Exit Sub

End If

Next i

Label2．Caption="已成功添加输入项"

Combo1． (5) Combo1．Text

End If

End Sub


正确答案：

●试题五

【答案】(1)KeyPress(2)13(3)Combo1．ListCount-1(4)Combo1．List(i)(5)AddItem

【解析】根据题意，"在组合框中输入一个新项后按回车键(ASCII码为13)时…"，因此Combol的事件名称应是Combo1_KeyPress，即(1)空填"KeyPress"；(2)空判断按键是否是回车键，填"13"；如果是，再穷举组合框的所有列表项(即、(3)空填"Combo1．ListCount-1")，查看是否有等于输入项Combo1．Text(即(4)空填"Combo1．List(i)")，有则在Label2中给出提示"输入项已在组合框中"，否则在Label2中给出提示"已成功添加输入项"，并将输入项(Combol．Text)添加到组合框中，即(5)空填"AddItem"。

第9题：

●试题六

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

单击窗体上的"测试"(cmdTest)按钮，出现一个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框(txtShow)中。

【程序代码】

Private Sub cmdTest_Click()

Dim strT1，strT2 As String

Dim strCh As (1)

Dim intL As Integer

Dim intI As Integer

strT1= (2) ("请输入一串字符"，"字符串输入")

intL= (3)

strT2=″″

For intI=l To intL

strCh=Mid(strT1，intI，1)

If(strCh>"A"And (4) ) Or (strCh>"a" And suCh<"z")Then

strT2=strT2+strCh

End If

Next intI

txtShow．Text= (5)

End sub


正确答案：

●试题六

【答案】(1)String(2)InputBox(3)Len(strT1)(4)strCh<"Z"(5)strT2

【解析】VB中字符和字符串属于同一类型，所以(1)空填"String"。(2)空应填VB的输入对话框函数"InputBox"。根据题意，(3)空是求输入的字符串长度，故用"Len(strTl)"。(4)空处的条件是判断是否是字母字符，所以填"strCh<"Z"；删除非字母字符后的结果在strT2中，而题意是要显示在窗体中的文本框(txtShow)中，故(5)空填"strT2"。

 

相关内容