考生文件夹下的工程文件sjt4.vbp中有如图3-161所示的控件。程序功能如下:程序运行时,在Text1中输入一个商品名称,在Text2中输入一个数量,单击“计算”按钮,则会在列表框中找到该商品的单价,乘以数量后显示在Text3中(如图3-161所示);

admin2016-01-31  47

问题 考生文件夹下的工程文件sjt4.vbp中有如图3-161所示的控件。程序功能如下:程序运行时,在Text1中输入一个商品名称,在Text2中输入一个数量,单击“计算”按钮,则会在列表框中找到该商品的单价,乘以数量后显示在Text3中(如图3-161所示);若输入的商品名称是错误的,则在Text3中显示“无此商品”(为方便编程,列表框中的每个单价均为4位(含小数点))。请将事件过程中的注释符去掉,把?改为正确的内容,以实现上述程序功能。
   
    注意:考生不得修改窗体文件中已经存在的控件和程序,最后将程序按原文件名存盘。

选项

答案审题分析 本题程序运行时,在文本框中输入商品名称,当单击命令按钮的时候,首先判断该商品是否在列表框中存在。由于列表框中的每一项都是商品名称+空格+单价的组合,因此在循环判断列表框的每一项时,首先找到列表项里面空格的位置,然后取出空格之前的字符就是商品名称,和文本框中输入的数据进行对比,如果一致则说明有此商品,那么取出列表项的后4个字符即商品单价进行操作,并且在退出循环的同时令旗帜变量flag变为True。当循环结束后,如果flag变量的值为True则证明有此商品,将单价*数量的值显示在文本框中,否则在文本框中显示“无此商品”。 操作步骤 步骤1:打开考生文件夹下的工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: For k=1 To List1.ListCount-1 name=Left(List1.List(k),n-1) price=Val(Right(List1.List(k),4)) Text3="无此商品" 步骤2:按要求将文件保存至考生文件夹中。 考点链接 选择控件、常用内部函数。

解析
转载请注明原文地址:https://jikaoti.com/ti/3wJ0FFFM
0

最新回复(0)