2. 计算机
  3. 设有如下程序： Private Sub Form_Click() Dim x As Integer, p As Integer x = InputBox("请输入一个整数") p = fee(x) Print p End S

设有如下程序： Private Sub Form_Click() Dim x As Integer, p As Integer x = InputBox("请输入一个整数") p = fee(x) Print p End S

admin2020-02-27  59
问题 设有如下程序：
Private Sub Form_Click()
    Dim x As Integer, p As Integer
    x = InputBox("请输入一个整数")
    p = fee(x)
    Print p
End Sub
Function fee(a As Integer)
    If a < 20 Then
        y = a
    Else
        y = 20 + a
    End If
    fee = y
End Function
运行程序，单击窗体，在输入对话框中输入20，单击"确定"按钮，输出结果为
选项 A、10
B、20
C、30
D、40
答案D
解析 程序主要是从输入对话框中得到一整数x，并将x作为参数，带入fee（x）函数，返回p值，并输出。其中InputBox是Visual Basic函数，功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字，将返回用户输入的数字存储在x中；fee(x)为题目的一个函数。Function fee(a As Integer)中参数为整数a，当a< 20时，返回值为a，否则返回值为20+a。故可知当输入对话框中输入20时，x=20，执行p=fee（x）=20+20=40。故选项D正确。
转载请注明原文地址:https://www.kaotiyun.com/show/LJTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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