2. 计算机
  3. (1)考生文件夹下有一个工程文件sj3．vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Comb01的

(1)考生文件夹下有一个工程文件sj3．vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Comb01的

admin2010-07-13  31
问题  (1)考生文件夹下有一个工程文件sj3．vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为Commandl、标题为“添加”的命令按钮，则将文本框中的数字添加到名称为Comb01的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符(即“’”)，把程序中的“?”改为正确的内容。
    注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。
    (2)在考生目录下有一个工程文件sj4．vbp。该程序的功能是计算M!+(M+1)!+(M+2)!+…+N!之和。窗体上有名称分别为Textl、Text2的两个文本框，用于接收输入的M和N(要求M    在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符(即“’”)，把程序中的“?”改为正确的内容。
    注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案(1)本题主要考查组合框的List属性，文本框的Text属性，MsgBox()函数以及If判断语句。根据题意，编写如下代码： Private Sub Commandl_Click() Comb01．AddItem Textl．Text Textl．Text="" End Sub Private Sub Textl_KeyPress(KeyAscii As Integer) If KeyAscii>57 Or KeyAscii<48 Then MsgBox"请输入数字!" KeyAscii=0 End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)本题主要考查标签的Caption属性，Val()函数和For循环语句。根据题意，编写如下代码： Private Sub Commandl_Click() Dim m As Integer Dim n As Integer Dim S As Long Dim i As Integer Dim t As Integer m=Val(Textl．Text) n=Val(Text2．Text) s=0 For i=m To n t=f(i) s=s+t Next i lblResult．Caption=s End Sub Private Function f(ByRef x As Integer)As Long Dim t As Long t=1 For i=1 To x t=t*i Next i f=t End Function 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/kLmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)