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

admin2010-07-13  26

问题  (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
0

最新回复(0)