题库 题库

【单选题】

设工程中有2个窗体: form1、form2,form1为启动窗体。form2中有菜单。其结构如表。要求在程序运行时,在form1的文本框text1中输入口令并按回车键(回车键的ascii码为13)后,隐藏form1,显示form2。若口令为“teacher”,所有菜单项都可见;否则看不到“成绩录入”菜单项。为此,某人在form1窗体文件中编写如下程序:
private sub text1_keypress(keyascii as integer)
if keyascii=13 then
if text1.text="teacher" then
form2.input.visible=true
else
form2.input.visible=false
end if
end if
form1.hide
form2.show
end sub
程序运行时发现刚输入口令时就隐藏了form1,显示了form2,程序需要修改。下面修改方案中正确的是

    参考答案

    查看答案

    相关试题

    单选题 有下面的程序段,其功能是按图1所示的规律输出数据
    dim a(3,5) as integer
    for i=1 to 3
    for j=1 to 5
    a(i,j)=i+j
    print a(i,j);
    next
    print
    next
     
    若要按图2所示的规律继续输出数据,则接在上述程序段后面的程序段应该是
    查看答案
    单选题 下面哪个属性肯定不是框架控件的属性 查看答案
    单选题 软件生命周期可分为定义阶段,开发阶段和维护阶段。详细设计属于 查看答案
    单选题 设窗体上有一个通用对话框控件cd1,希望在执行下面程序时,打开如图所示的文件对话框
    private sub comand1_click()
    cd1.dialogtitle="打开文件"
    cd1.initdir="c:\"
    cd1.filter="所有文件|*.*|word文档|*.doc|文本文件|*.txt"
    cd1.filename=""
    cd1.action=1
    if cd1.filename=""then
    print"未打开文件"
    else
    print"要打开文件"& cd1.filename
    end if
    end sub
    但实际显示的对话框中列出了c:\下的所有文件和文件夹,“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是
    查看答案
    单选题 窗体上有一个text1文本框,一个command1命令按钮,并有以下程序
    private sub commandl_click()
    dim n
    if text1.text<>"23456" then
    n=n+1
    print "口令输入错误" & n & "次"
    end if
    end sub
     
    希望程序运行时得到左图所示的效果,即:输入口令,单击“确认口令”命令按钮,若输入的口令不是“123456”,则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果,程序需要修改。下面修改方案中正确的是
    查看答案
    单选题 设窗体文件中有下面的事件过程:
    private sub command1_click()
    dim s
    a%=100
    print a
    end sub
    其中变量a和s的数据类型分别是
    查看答案
    单选题 下面程序运行时,若输入395,则输出结果是
    private sub comand1_click()
    dim x%
    x=inputbox("请输入一个3位整数")
    print x mod 10,x\100,(x mod 100)\10
    end sub
    查看答案
    单选题 下列叙述中正确的是 查看答案
    单选题 软件(程序)调试的任务是 查看答案
    单选题 窗体上有一个名为command1的命令按钮,并有下面的程序:
    private sub comand1_click()
    dim arr(5) as integer
    for k=1 to 5
    arr(k)=k
    next k
    prog arr()
    for k=1 to 5
    print arr(k)
    next k
    end sub
    sub prog(a() as integer)
    n=ubound(a)
    for i=n to 2 step -1
    for j=1 to n-1
    if a(j)
    t=a(j):a(j)=a(j+1):a(j+1)=t
    end if
    next j
    next i
    end sub
    程序运行时,单击命令按钮后显示的是
    查看答案
    单选题 设x是整型变量,与函数ⅱf(x>0,-x,x)有相同结果的代数式是 查看答案
    单选题 下面是求最大公约数的函数的首部
    function gcd(byval x as integer, byval y as integer) as integer
    若要输出8、12、16这3个数的最大公约数,下面正确的语句是
    查看答案
    单选题 软件按功能可以分为:应用软件、系统软件和支撑软件(或工具软件)。下面属于系统软件的是 查看答案
    单选题 vb中有3个键盘事件:keypress、keydown、keyup,若光标在text1文本框中,则每输入一个字母 查看答案
    单选题 设窗体中有一个文本框text1,若在程序中执行了text1.setfocus,则触发 查看答案
    单选题 若在窗体模块的声明部分声明了如下自定义类型和数组
    private type rec
    code as integer
    caption as string
    end type
    dim arr(5) as rec
    则下面的输出语句中正确的是
    查看答案
    单选题 设窗体的名称为form1,标题为win,则窗体的mousedown事件过程的过程名是 查看答案
    单选题 在学生管理的关系数据库中,存取一个学生信息的数据单位是 查看答案
    单选题 计算二的近似值的一个公式是
    某人编写下面的程序用此公式计算并输出π的近似值:
    private sub comand1_click()
    pi=1
    sign=1
    n=20000
    for k=3 to n
    sign=-sign/k
    pi=pi+sign/k
    next k
    print pi*4
    end sub
    运行后发现结果为3.22751,显然,程序需要修改。下面修改方案中正确的是
    查看答案
    单选题 数据库管理系统中负责数据模式定义的语言是 查看答案