在名为Form1的窗体上建立一个文本框,名为Text1;建立一个命令按钮,名为Cmd1,标题为“计算”的,如下图所示。要求程序运行后,如果单击“计算”按钮,则求出1~30之间所有可以被7整除的数的乘积并在文本框中显示出来,结果存入考生文件夹中的out117.txt文件中。在考生的文件夹中有一个mode.bas标准模块,该模块中提供了保存文件的过程putdah,考生可以直接调用。注意:文件必须存放在考生文件夹中,窗体文件名为execisell7.frm,工程文件名为execise117.Vbp。

题目

在名为Form1的窗体上建立一个文本框,名为Text1;建立一个命令按钮,名为Cmd1,标题为“计算”的,如下图所示。

要求程序运行后,如果单击“计算”按钮,则求出1~30之间所有可以被7整除的数的乘积并在文本框中显示出来,结果存入考生文件夹中的out117.txt文件中。

在考生的文件夹中有一个mode.bas标准模块,该模块中提供了保存文件的过程putdah,考生可以直接调用。

注意:

文件必须存放在考生文件夹中,窗体文件名为execisell7.frm,工程文件名为

execise117.Vbp。


相似考题
参考答案和解析
正确答案:
更多“在名为Form1的窗体上建立一个文本框,名为Text1;建立一个命令按钮,名为Cmd1,标题为“计算”的,如下图所示。要求程序运行后,如果单击“计算”按钮,则求出1~30之间所有可以被7整除的数的乘积并在文本框中显示出来,结果存入考生文件夹中的out117.txt文件中。在考生的文件夹中有一个mode.bas标准模块,该模块中提供了保存文件的过程putdah,考生可以直接调用。注意:文件必须存放在考生文件夹中,窗体文件名为execisell7.frm,工程文件名为execise117.Vbp。”相关问题
  • 第1题:

    在Form1的窗体土绘制一个命令按钮,名为Cmd1,标题为Display,按钮隐藏。编写适当的事件过程,使程序运行后,若单击窗体,则命令按钮出现;此时如果单击命令按钮,则在窗体上显示VisualBasic。程序运行情况如下图所示。

    注意:

    程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise114.vbp,窗体文件名为execise114.frm。


    正确答案:

  • 第2题:

    注意:下面出现的“考生文件夹”均为c:\wexam\25160001。

    (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”和“存盘”,名称分别为 vbNew、vbOpen和vbSave。要求程序运行后,如果选中“文件”下的某个菜单项,则通过MsgBox对话框显示该菜单项的标题,如图3-3所示。

    注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sjt3.vbp。

    (2)在窗体上建立一个名称为Text1的文本框,再建立一个名称为Cmd1,标题为“计算”的命令按钮,如图3-4所示。要求程序运行后,单击命令按钮,将计算100-200之间所有素数之和,在文本框中显示结果,同时把结果存入文件out.txt中。 (在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件,而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回 False,考生可以把该模块文件添加到自己的工程中。)

    注意:保存时必须存放在考生文件夹下,窗体文件名为sjt4.frm,工程文件名为sjt4.vbp,结果存入out.txt文件。


    正确答案:(1)在Visual Basic中菜单项通过菜单编辑器来建立;选择菜单则是触发其Click事件。 MsgBox函数在对话框中显示消息等待用户单击按钮并返回1个Integer告诉用户单击哪一个按钮。 语法:MsgBox(prompt[buttons][title][helpfilecontext]) MsgBox函数的语法具有以下几个命名参数: Prompt必需的。字符串表达式作为显示在对话框中的消息。 Buttons可选的。数值表达式是值的总和指定显示按钮的数目及形式。 Title可选的。在对话框标题栏中显示的字符串表达式。如果省略title则将应用程序名放在标题栏中。 Helpfile可选的。字符串表达式识别用来向对话框提供上下文相关帮助的帮助文件。 Context可选的。数值表达式由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤: 第一步:建立菜单项。程序中用到的菜单项及其属性见表3-2。 第二步:编写程序代码。 参考代码: Private Sub vbNew_Click() MsgBox“新建”vbOKOnly End Sub Private Sub vbOpen_Click() MsgBox“打开”vbOKOnly End Sub Private Sub vbSave_Click() MsgBox“存盘”vbOKOnly End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后先设置控件的属性值再编写事件过程。 文本框中显示的内容由Text属性设置命令按钮的标题由Caption属性设置单击命令按钮触发Click事件。解题步骤:第一步:建立菜单项。程序中用到的控件及其属性见表3-3。 第二步:编写程序代码。 参考代码: Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = 0 For i = 100 To 200 If isprime(i) Then temp = temp + i End If Next Text1.Text = temp putdata "out.txt"temp End Sub 标准模块代码: Option Explicit Sub putdata(t_FileName As StringT Str As Variant) Dim sFile As String sFile = "\" & t FileName Open App.Path & sFile For Output As # 1 Print #1T_Str Close #1 End Sub Function isprime(t_I As Integer) As Boolean Dim J As Integer isprime = False For J=2 To t I / 2 If t I Mod J = 0 Then Exit For Next J If J>t I/2 Then isprime = True End Function 第三步:调试并运行程序。 第四步:按题目要求存盘。
    (1)在Visual Basic中,菜单项通过菜单编辑器来建立;选择菜单则是触发其Click事件。 MsgBox函数在对话框中显示消息,等待用户单击按钮,并返回1个Integer告诉用户单击哪一个按钮。 语法:MsgBox(prompt[,buttons][,title][,helpfile,context]) MsgBox函数的语法具有以下几个命名参数: Prompt必需的。字符串表达式,作为显示在对话框中的消息。 Buttons可选的。数值表达式是值的总和,指定显示按钮的数目及形式。 Title可选的。在对话框标题栏中显示的字符串表达式。如果省略title,则将应用程序名放在标题栏中。 Helpfile可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。 Context可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤: 第一步:建立菜单项。程序中用到的菜单项及其属性见表3-2。 第二步:编写程序代码。 参考代码: Private Sub vbNew_Click() MsgBox“新建”,vbOKOnly End Sub Private Sub vbOpen_Click() MsgBox“打开”,vbOKOnly End Sub Private Sub vbSave_Click() MsgBox“存盘”,vbOKOnly End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件的属性值,再编写事件过程。 文本框中显示的内容由Text属性设置,命令按钮的标题由Caption属性设置,单击命令按钮触发Click事件。解题步骤:第一步:建立菜单项。程序中用到的控件及其属性见表3-3。 第二步:编写程序代码。 参考代码: Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = 0 For i = 100 To 200 If isprime(i) Then temp = temp + i End If Next Text1.Text = temp putdata "out.txt",temp End Sub 标准模块代码: Option Explicit Sub putdata(t_FileName As String,T Str As Variant) Dim sFile As String sFile = "\" & t FileName Open App.Path & sFile For Output As # 1 Print #1,T_Str Close #1 End Sub Function isprime(t_I As Integer) As Boolean Dim J As Integer isprime = False For J=2 To t I / 2 If t I Mod J = 0 Then Exit For Next J If J>t I/2 Then isprime = True End Function 第三步:调试并运行程序。 第四步:按题目要求存盘。

  • 第3题:

    在名为Form1的窗体上建立一个文本框,名为Text1;一个命令按钮,名为Cmd1,标题为“计算”,如下图所示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数10,放入整型变量s中,然后计算s!(提示:运算结果应放入Long型变量中),在文本框中显示结果,并把结果存入文件output.txt中(在考生文件夹中有一个标准模块 mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用)。

    注意:

    文件必须存放在考生文件夹中,窗体文件名为execise54.frm,工程文件名为 exeeise54.vbp。


    正确答案:

  • 第4题:

    在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮,如图4-3所,示。程序运行后,单击“计算”命令按钮,通过在对话框输入整数12,放人整型变量a中,然后汁算a!.(提示:运算结果应放人Lon9型变量中),在文本框中显示结果,如图4—4所示,并把结果存入文件out.txt中。考生文件夹中有一个标准模块mode.bas,该模块中提供了保存文件的过程putdata,考生可以直接调用。 注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。


    正确答案:
    在窗体上建好控件后,先设置控件属性,再编写事件过程和调试程序,并使其符合题目要求。当运行程序后,所弹出的对话框是通过调用函数InputBox来实现(通过Visual Basic系统本身提供的)。本题主要是考查循环语句的应用。计算一个数值的阶乘时使用了for循环,最后调用了所给模块中的过程将结果进行保存。
    ①建立界面并设置控件属性。程序中用到的控件及其属性见下表:


    控件

    属性

    设置值

    文本框

    Name

    Text1

    命令按钮

    Name

    Cmd1

    命令按钮

    Caption

    计算

    ②声明存储运算结果的Long型变量。在编写程序代码时要注意变量范围的设定,题目要求将计算结果存入Long变量中,所以把最后放入文本框内的变量设置为长整型。(例如:Dim temp As Long)
    ③打开工程资源管理器,在其空白处右键添加模块mode.bas(此文件已在考生文件夹里),模块代码如下:
    Option Explicit
    Sub putdata(t_FileName As String,T_Str As Variant)
    Dim sFile As String
    sFile="\"&t FileName
    Open App.Path&sFile For Output As#1
    Print#1,T Str
    Close#1
    End Sub
    ④打开工程资源管理器,右击窗体,选择查看代码项,在弹出的代码窗口输入代码如下:
    Private Sub Cmd1_Click
    Dim a As Integer
    Dim temp As Long
    Dim i As Integer
    a=Val(InputBox("请输入"))
    temp=1
    For i=1 To Val(a).
    temp=temp*i
    Next i
    Text1.Text =temp
    putdata"out.txt",Text1.Text
    End Sub
    ⑤调试并运行程序。
    ⑥按题目要求存盘。

  • 第5题:

    在名为Form1的窗体上建立一个名为Cmd1,宽度为1000、高度为500,标题为“显示”的命令按钮。编写适当的事件过程,使程序运行后,若单击“显示”命令按钮,则在窗体上显示“计算机等级考试”。运行结果如下图所示。

    注意:

    不要使用任何变量,直接显示字符串;文件必须存放在考生文件夹中,窗体文件名为 execise101.frm,工程文件名为execise101.vbp。


    正确答案:

  • 第6题:

    请在名为Form1窗体上绘制一个命令按钮,名为Cmd1,标题为“按钮”。请编写适当的事件过程,使得在运行时单击“按钮”按钮,则在窗体上显示“单击按钮”(如下图所示)。

    注意:

    程序中不得使用任何变量:文件必须存放在考生文件夹中:工程文件名为 execise84.vbp,窗体文件名为execise84.frm。


    正确答案:

  • 第7题:

    在名为Form1的窗体上绘制一个文本框,名为Text1:绘制一个命令按钮,名为Cmd1,标题为“显示”,它的Tab Index属性设置为0。请为Cmd1设置适当的属性,使得当焦点在 Cmd1上时,按Esc键就调用Cmd1的Click事件,该事件过程的作用是在文本框中显示“等级考试”,程序运行结果如下图所示。

    注意:

    文件必须存放在考生文件夹中,工程文件名为execise101.vbp,窗体文件名为 execiSe101.frm。


    正确答案:

  • 第8题:

    在Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为“没有单击按钮”。请编写适当的事件过程,使得在运行时,若单击“没有单击按钮”按钮,则按钮的标题改为“已经单击按钮”。程序的运行情况如下图所示。

    注意:

    程序中不得使用任何变量:文件必须存放在考生文件夹中,工程文件名为82.vbp,窗体文件名为82.frm。


    正确答案:

  • 第9题:

    在Form1的窗体上绘制一个命令按钮,名为Cmd1,标题为Display。编写适当的事件过程,使程序运行后,若单击命令按钮,则在窗体上显示ViSBa1 Basic;如果单击窗体,则命令按钮消失。程序运行情况如下图所示。

    注意:

    在程序中不能使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise16.vbp,窗体文件名为execise16.frm。


    正确答案:

  • 第10题:

    在名为Form1的窗体上,绘制一个名为Text1的文本框。设置文本框属性,在文本框中显示“文本框”;再建立一个名为Cmd1,标题为Clear的命令按钮,如下图所示。编写适当的事件过程,使程序运行后,若单击Clear命令按钮,则清除文本框中所显示的信息。

    注意:

    文件必须存放在考生文件夹中,窗体文件名为execise5.frm,工程文件名为exeeise5.vbp。


    正确答案:

  • 第11题:

    在名为Form1的窗体上建立一个名为Text1的文本框,将MuRiLine属性设置为True,ScrollBars属性设置为2。再建立两个名称分别为Cmd1、Cmd2和Cmd3命令按钮,标题分别为“读数”、“排序”和“保存”,如下图所示。

    程序运行后,如果单击“读数”按钮,则读入in17.txt文件中的100个整数,放入一个数组中(数组下界为1);如果单击“排序”按钮,则对100个整数按从大到小进行排序;如果单击“保存”按钮,把排序后的全部数据在文本框Text1中显示出来,然后存入考生文件夹中的文件out17.txt中(在考生的目录下有标准模块mode1.bas过程可以把指定个数的数组元素存入out17.txt文件,考生可以把该模块文件添加到自己的工程中)。

    注意:

    文件必须存放在考生文件夹中,窗体文件名为execise17.frm,工程文件名execise17.vbp,排序结果存入out17.txt,否则没有成绩。


    正确答案:

  • 第12题:

    在名为Foma1的窗体上绘制一个标签(名称为Lab1,标题为Input)、一个文本框(名称为Text1,Text属性为空白)和一个命令按钮(名称为Cmd1,标题为Display)。请编写命令按钮的Click事件过程,使程序运行后,在文本框中输入Visual Basic,然后单击命令按钮,则标签和文本框消失,并在窗体上显示文本框中的内容。运行后的窗体如下图所示。

    注意:

    要求程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise69.vbp,窗体文件名为exeCise69.frm。


    正确答案:

  • 第13题:

    在名为Form1的窗体上绘制一个名为Lab1、标题为空白、BorderStyle属性为1、Visible属性为False的标签,一个名为Text1、Text属性为空白的文本框和一个名为Cmd1、标题为“显示”的命令按钮。然后编写命令按钮的Click事件过程,使程序运行后,在文本框中输入严计算机等级考试”,然后单击命令按钮,则文本框消失,并在标签内显示文本框中的内容。运行后的窗体如下图所示。

    注意:

    程序中不得使用任何变量;文件必须存放在考生文件夹中,工程文件名为 execise31.vbp,窗体文件名为execise31.frm。


    正确答案:

  • 第14题:

    在名为Form1的窗体上建立一个名为Text1的文本框,将MultiLine属性设置为Tree,ScrollBars属性设置为2。再建立两个名称分别为Cmd1和Cmd2的命令按钮,标题分别为 Read和Save,如下图所示。

    程序运行后,如果单击Read按钮,则读入in46.txt文件中的100个整数,放入一个数组中(数组下界为1),并在文本框Text1中显示出来;如果单击“保存数据”按钮,则把数组中的前50个数据在文本框Text1中显示出来,并存入考生文件夹中的文件out46.txt中(考生文件夹中有标准模块prog.bas,其中的putdata过程可以把指定个数的数组元素存入out46.txt文件,考生可以把该模块文件添加到自己的工程中)。

    注意:

    文件必须存放在考生文件夹中,窗体文件名为execise46.frm,工程文件名为 execise46.vbp。结果存入out46.txt文件,否则没有成绩。


    正确答案:

  • 第15题:

    在名为Form1的窗体中建立一个命令按钮,名为Cmd1,标题为Show(如下图所示)。编写适当的事件过程,使程序运行后,若单击Show按钮,则执行语句Form1.Print"Show"如果单击窗体,则执行语句Form1.Cls。

    注意:

    文件必须存放在考生文件夹中, 窗体文件名为execise351frm,工程文件名为 execise35.vbp。


    正确答案:

  • 第16题:

    在名为Form1的窗体上建立一个名为Text1的文本框,将MultiLine属性设置为True,ScrollBars属性设置为2。同时建立两个名称分别为Cmd1和Cmd2的命令按钮,标题分别为Read和Save(如下图所示)。

    要求程序运行后,如果单击Read按钮。则读入inl.txt文件中的100个整数,放入二个数组中(数组下界为1),同时在文本框中显示出来;如果单击Save按钮,则计算数组中大于或等于1并且小于400的所有数之和,把求和结果在文本框Text1中显示出来,同时把计算结果存入考生文件夹中的文件out1.txt中。(在prog.bas中的putdata过程可以把结果存入out1.txt文件,考生可以把该模块文件添加到自己的工程中,直接调用此过程)

    注意:

    文件必须存放在考生文件夹中,窗体文件名为execise1.frm,工程文件名为execise1.vbp,计算结果存入out1.txt,否则没有成绩。


    正确答案:

  • 第17题:

    在名为Form1窗体上绘制一个命令按钮,其名称为Cmd1,标题为C1ear。编写适当的事件过程,使程序运行后,若单击命令按钮,则清除窗体的标题。程序运行结果如下图所示。

    注意:

    文件必须存放在考生文件夹中,工程文件名为execise83.vbp,窗体文件名为 execlse83.frm。


    正确答案:

  • 第18题:

    在名为Form1的窗体上放置一个名为Text1的文本框。程序运行后,用户在文本框中输入的英文字母一律用大写显示(要求焦点在最右端),如下图所示。

    注意:

    文件必须存放在考生文件夹中,窗体文件名为execise12.frm,工程文件名为 execise12.vbp。


    正确答案:

  • 第19题:

    在名为Form1的窗体上建立一个文本框,名为Text1;再建立一个命令按钮,名为Cmd1,标题为“计算”,如下图所示。

    要求程序运行后,单击命令按钮,则计算出1~200之间所有素数之和,并在文本框中显示结果,同时把结果存入文件out48.txt中(在考生文件夹中有标准模块mode.bas,其中的 putdata过程可以把结果存入文件;而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False;考生可以把该模块文件添加到自己的工程中)。

    注意:

    文件必须存放在考生文件夹中,窗体文件名为execise48.frm,工程文件名为 execise48.vbpo


    正确答案:

  • 第20题:

    在名为Form1的窗体上建立一个名为Cmd1、标题为“显示”的命令按钮。编写适当的事件过程,使程序运行后,若单击“显示”命令按钮,则在窗体上显示“计算机等级考试Visual Bask课程”。程序运行情况如下图所示。

    注意:

    不要使用任何变量,直接显示字符串;文件必须存放在考生文件夹中,窗体文件名为 execise77.frm,工程文件名为execise77.vbp。


    正确答案:

  • 第21题:

    在窗体上绘制一个命令按钮,其名称为Cmd1,标题为Display。编写适当的事件过程,使程序运行后,若单击命令按钮,则把窗体的标题修改为VisualBasic,程序运行结果如下图所示。

    注意:

    文件必须存放在考生文件夹中,工程文件名为execise17.vbp,窗体文件名为 execise17.frm。程序中不得使用任何变量。


    正确答案:

  • 第22题:

    在考生文件夹下有一个工程文件execise21.vbp(相应的窗体文件为execise21.frm),在该工程中为考生提供了一个通用过程,考生可以直接调用。请在窗体上绘制一个名为 Text1的文本框;绘制一个名为Cmd1,标题为“计算”的命令按钮:再绘制两个单选按钮,名称分别为Opt1和Opt2,“求500到600之间能被3整除的数之和”标题分别为“求300到500之间能被3整除的数之和”、“求500到700之间能被7整除的数之和”,如下图所示。

    编写适当的事件过程,使得在运行时,选中一个单选按钮,再单击“计算”按钮,就可以按照单选按钮后的文字要求计算,并把计算结果放入文本框中,最后把已经修改的工程文件和窗体文件以原来的文件名存盘。

    注意:

    考生不得修改窗体文件中已经存在的程序,退出程序时必须通过单击窗体右上角的“关闭”按钮。在结束程序运行之前,必须至少进行一种计算,否则不得分。


    正确答案:

  • 第23题:

    在名为Form1的窗体上建立两个名称分别为Opt1和Opt2、标题分别为“1-300之间素数”和“300-500之间素数”的单选按钮,一个名为Text1文本框和两个名称分别为Cmd1和Cmd2,标题分别为“计算”和“保存”命令按钮,如下图所示。

    程序运行后,如果选中一个单选按钮并单击“计算”按钮,则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如果单击“保存”按钮,则把计算结果存入out19.txt文件中,该文件必须放在考生文件夹中(在考生文件夹中有标准模块 mode.bas,其中的putdata过程可以把结果存入指定的文件,而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False,考生可以将该模块文件添加到自己的工程中)。

    注意:

    必须把300~500之间的素数之和存入考生文件夹下的out19.txt文件中,否则没有成绩。保存程序时必须存放在考生文件夹中,窗体文件名为execise19.frm,工程文件名为 execise19.vbp。


    正确答案: