vb msgbox给按钮caption_vb程序语言题库

9ce5a534740a99576f3fc0c9fd2957e9.png

vb语言题库

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:711        难度:中        第1章

------------------------------------------------------

【程序填空】

------------------------------------------------------

【题目】如图所示,求一元二次方程的根,程序功能如下。

        ①用text1、text2、text3分别输入一元二次方程的三个常数项。

        ②判断一元二次方程有不等实根、相等实根、没有实根。

        ③一元二次方程的根输出到text1和text2。

        ④当二次项系数(text1)为1、一次项系数(text2)为5、常

          数项(text3)为6时,求其根。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述

   功能。不能增加语句,也不能改动程序的其它部分。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

 Dim a As Double

 Dim b As Double

 Dim c As Double

 Dim x1 As Double

 Dim x2 As Double

 Dim dt As Double

 a = Val(Text1.Text)

 b = Val(Text2.Text)

 c = Val(Text3.Text)

**********SPACE**********

【?】

**********SPACE**********

【?】

   Label4.Caption = "有两个不等的实根!"

   Text4.Text = (-b + Sqr(dt)) / (2 * a)

   Text5.Text = (-b - Sqr(dt)) / (2 * a)

**********SPACE**********

【?】

   Label4.Caption = "有两个相等的实根!"

   Text4.Text = Str((-b + Sqr(dt)) / (2 * a))

   Text5.Text = Str((-b - Sqr(dt)) / (2 * a))

 Else

   Label4.Caption = "没有实根!"

   Text4.Text = ""

   Text5.Text = ""

 End If

End Sub

答案:

=======(答案1)=======

dt = b ^ 2 - 4 * a * c

=========或=========

dt=b*b-4*a*c

=======(答案2)=======

If dt > 0 Then

=======(答案3)=======

ElseIf dt = 0 Then

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:635        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】如图所示,设计一个简单的计算器。

【要求】

       ①从文本框text1和text2输入两个数。

       ②单击“=”按钮计算其结果,并显示在text3中。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

*************program**************

***************end****************

End Sub

答案:  Dim a As Double

 Dim b As Double

 a = Text1.Text

 b = Text2.Text

 Text3.Text = a * b

第2题 (30.0分)        题号:634        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】创建一个Visual Basic应用程序,窗体界面上有两个命令按钮和一个

        文本框。

【要求】

        ①程序运行时,单击“开始”命令按钮时在文本框中显示“VB,你好!”。

        ②单击“结束”命令按钮则在文本框中显示“再见!”。如图所示。

------------------------------------------------------

答案: ------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】创建一个Visual Basic应用程序,窗体界面上有两个命令按钮和一个

        文本框。

【要求】

        ①程序运行时,单击“开始”命令按钮时在文本框中显示“VB,你好!”。

        ②单击“结束”命令按钮则在文本框中显示“再见!”。如图所示。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

*************program**************

 Text1.Text = "VB,你好!"

End Sub

Private Sub Command2_Click()

 Text1.Text = "再见!"

**************end*****************

End Sub

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:371        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】在名称为Form1的窗体上添加一个名称为Command1的命令

'    按钮,一个名称为Label1的标签,如图1所示。

'【要求】

'       ①设置窗体标题为“标签属性代码设置”。

'       ②设置标签的标题为“等级考试”。

'       ③程序运行时,单击按钮“Command1”标签中字体显示为

'    黑体,大小为30,程序运行结果如图2所示。

'【提示】

'       程序中不使用任何变量。

'------------------------------------------------------

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:712        难度:中        第1章

------------------------------------------------------

【填空题】

------------------------------------------------------

【题目】如图1所示,程序运行单击Command1随机产生30个0-1000的

    整数,放入一个数组中,求其最小值并在窗体上输出。

【要求】

        这个程序不完整,去掉注释改为正确的内容,使其实现上述

    功能,但不能修改程序的其它部分。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

 Dim arrn(30) As Integer

 Dim i As Integer

 Dim min As Integer

 Randomize

 For i = 1 To 30

**********SPACE**********

    arrn(i) =【?】1000)

 Next i

 min = arrn(1)

 For i = 2 To 30

**********SPACE**********

    If 【?】 Then

**********SPACE**********

      【?】

   End If

 Next i

 Print "最小值="; min

End Sub

答案:

=======(答案1)=======

Int(Rnd *

=========或=========

Int(Rnd()*

=======(答案2)=======

arrn(i) < min

=========或=========

min>arrn(i)

=======(答案3)=======

min = arrn(i)

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:636        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】编写如图所示的程序。分别在Text1和Text2中输入数值,然后再分别

单击“求和”或“求差”按钮,计算两个数的和或差,结果显示在Text3中。当

单击“求和”或“求差”按钮时,标签中的运算符号与按钮对应。

分别在Text1和Text2中输入82和76,并计算和或差输出到Text3中。

------------------------------------------------------

答案:  Dim a As Integer

 Dim b As Integer

 Dim c As Integer

 a = Val(Text1.Text)

 b = Val(Text2.Text)

 c = a + b

 Label1.FontSize = 16

 Label1.Caption = "+"

 Text3.Text = c

End Sub

Private Sub Command2_Click()

 Dim a As Integer

 Dim b As Integer

 Dim c As Integer

 a = Val(Text1.Text)

 b = Val(Text2.Text)

 c = a - b

 Label1.FontSize = 16

 Label1.Caption = "-"

 Text3.Text = c

第2题 (30.0分)        题号:637        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】编写如图所示的“简单计时器”程序。单击“开始”按钮

,在“启动时间”文本框中显示计时器开始计时的时间点。单击“停止”

按钮,在“停止时间”文本框中显示计时器结束时的时间点。同时在

“计时时间”文本框中显示每一次计时经过的时间。为保持每一次计时

的完整性,程序运行时只有“开始”按钮可以单击,“停止”按钮不可用。

当单击“开始”按钮开始计时后,“开始”按钮便不可用而“停止”按钮

变为可用。反之,当单击“结束”按钮结束计时后,“停止”按钮便不可

用而“开始”变为可用。

------------------------------------------------------

答案:  starttime = Now

 Text1.Text = Format(starttime, "hh:mm:ss")

 Text2.Text = ""

 Text3.Text = ""

 Command1.Enabled = False

 Command2.Enabled = True

End Sub

Private Sub Command2_Click()

 endtime = Now

 counttime = starttime - endtime

 Text2.Text = Format(endtime, "hh:mm:ss")

 Text3.Text = Format(counttime, "hh:mm:ss")

 Command1.Enabled = True

 Command2.Enabled = False

End Sub

Private Sub Form_Load()

 Command1.Enabled = True

 Command2.Enabled = False

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:372        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】在名称为Form1的窗体上添加一个名称为Label1的标签,如图1所示。

'【要求】

'        ①设置Label1标签的BorderStyle属性为1。

'        ②编写适当的事件过程,程序运行后,单击“窗体”则可使标签移

'    到窗体的右上角,如图2所示。

'【提示】

'       程序中不使用任何变量。

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:713        难度:中        第1章

------------------------------------------------------

【填空题】

------------------------------------------------------

【题目】

       在窗体上添加一个文本框Text1和一个命令按钮Command1。

   程序运行后,单击命令按钮Command1,计算出0-1000范围内不

   能被7整除的整数的个数,并用文本框Text1输出。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述

   功能。不能增加语句,也不能改动程序的其它部分。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

**********SPACE**********

  【?】

End Sub

Private Function fun()

 Dim k As Integer

 Dim i As Integer

 For i = 0 To 1000

**********SPACE**********

    【?】

     k = k + 1

   End If

 Next i

**********SPACE**********

  【?】

End Function

答案:

=======(答案1)=======

Text1.Text = fun

=======(答案2)=======

If i Mod 7  0 Then

=======(答案3)=======

fun = k

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:638        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】界面设计如图所示,编写一个求“倒序数”的程序。

        单击“生成”按钮,分别在文本框Text1中随机生成一个2位整数,

    在文本框Text2中随机生成一个3位整数,在文本框Text3中随机生成一

    个4位整数。然后单击“求倒序数”按钮,分别在文本框Text4、Text5

    和Text6中输出倒序数。

------------------------------------------------------

答案:  Dim twoinv As Integer

 Dim threeinv As Integer

 Dim fourinv As Integer

 twoinv = Right(twoint, 1) + Left(twoint, 1)

 threeinv = Right(threeint, 1) + Mid(threeint, 2, 1) + Left(threeint, 1)

 fourinv = Right(fourint, 1) + Mid(fourint, 3, 1) + Mid(fourint, 2, 1) + Left(fourint, 1)

 Text4.Text = twoinv

 Text5.Text = threeinv

 Text6.Text = fourinv

第2题 (30.0分)        题号:639        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】编写如图所示的求三角形面积的程序。

【要求】

       ①单击“计算三角形面积”按钮,利用InputBox输入三角形

         三条边a、b、c的值,并通过文本框Text1、Text2、Text3

         显示三条边a、b、c的值。

       ②判断输入的a、b、c是否满足任意两边之和大于第三边,若满

         足则计算三角形的面积,并用文本框Text4输出三角形面积。

         否则利用MsgBox弹出消息提示框,指出a、b、c三条边不能构

         成三角形。

       ③计算当a=3、b=4、c=5的三角形面积,并让程序运行一次。

【提示】

       ①三角形三条边的和,s=(a+b+c)/2。

       ②三角形的面积,area=sqr(s*(s-a)*(s-b)*(s-c))

------------------------------------------------------

答案:  Dim a As Double, b As Double, c As Double

 Dim s As Double, area As Double, r As Double

 a = InputBox("请输入三角形边长a的值", "计算三角形面积程序")

 Text1.Text = a

 b = InputBox("请输入三角形边长b的值", "计算三角形面积程序")

 Text2.Text = b

 c = InputBox("请输入三角形边长c的值", "计算三角形面积程序")

 Text3.Text = c

 If a + b <= c Or a + c <= b Or b + c <= a Then

   MsgBox "a、b、c不能够成三角形!"

 Else

   s = (a + b + c) / 2

   area = Sqr(s * (s - a) * (s - b) * (s - c))

   MsgBox "三角形的面积是:" & Str(area), , "计算三角形面积公式程序"

   Text4.Text = area

 End If

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:373        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】在名称为Form1的窗体上添加一个名称为HS1的水平滚动条,

'    一个名称为C1的命令按钮。

'【要求】

'       ①设置HS1滚动条的刻度值范围为1-100。

'       ②设置按钮C1的标题为“移动滚动框”。

'       ③编写适当的事件过程,程序运行时,每单击命令按钮一

'   次(假定单击次数不多于10次),滚动框向右移动10个刻度。程

'   序运行时的窗体如图所示。

'【提示】

'       程序中不得使用变量,每个事件过程中只能写一条语句。

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:714        难度:中        第1章

------------------------------------------------------

【程序填空】

------------------------------------------------------

【题目】

       如图1所示,在窗体上添加一个文本框,两个命令按钮。已知出

   租车行驶不超过4公里一律收费10元,超过4公里时分段处理。15公

   里(包括15公里)以内每公里收1.2元,15公里以上每公里收1.8元。

   单击“输入”按钮,将弹出一个输入对话框如图2所示,接收出租车

   行驶的公里数;单击“计算”按钮,则可根据输入的公里数计算应付

   的出租车费,并将计算结果显示在文本框Text1中,如图3所示。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述功能。

   不能修改程序的其它部分和控件属性。

------------------------------------------------------

Option Explicit

Dim s As Integer

Private Sub Command1_Click()

**********SPACE**********

  s = 【?】("输入里程数(单位:公里)"))  s用于存储出租车行驶的公里数

End Sub

Private Sub Command2_Click()

 Dim f As Single

 If s > 0 And s <= 4 Then

   f = 10

**********SPACE**********

  【?】

   f = 10 + (s - 4) * 1.2

 ElseIf s > 15 Then

   f = 10 + (15 - 4) * 1.2 + (s - 15) * 1.8

 End If

**********SPACE**********

  【?】

End Sub

答案:

=======(答案1)=======

Val(InputBox

=========或=========

InputBox

=======(答案2)=======

ElseIf s <= 15

=========或=========

ElseIf 15>=s Then

=======(答案3)=======

Text1.Text = f

=========或=========

Text1 = f

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:641        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】用随机函数产生一个两位数的正整数n,从键盘输入猜的数x,

       数猜大、小、正确均要用Msgbox提示。

【要求】

       ①用Do While—Loop循环实现。

       ②只有三次猜的机会。

------------------------------------------------------

答案:  Dim i As Integer, x As Integer, n As Integer

 n = Int(Rnd * (99 - 10 + 1) + 10)

 i = i + 1

 x = Val(InputBox("请输入你要猜的数[10-99],限输入3次" & "现在是第" & Str(i) & "次"))

 Do While n  x And i < 3

   If n > x Then

     MsgBox "太小"

   ElseIf n < x Then

     MsgBox "太大"

   End If

   i = i + 1

   x = Val(InputBox("请输入你要猜的数[10-99],限输入3次" & "现在是第" & Str(i) & "次"))

   Loop

 If n = x Then

   MsgBox "正确"

 Else

   MsgBox "及遗憾了,已经超过3次猜数!"

 End If

第2题 (30.0分)        题号:640        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】税务部门征收所得税,规定如下(用IF语句实现)。

①当收入为200元以内(含200元)时,免征。

②当收入为200-400元(含400元)时,将超过200元的部分纳税3%。

③当收入为400-5000元(不含5000元)时,将超过400元的部分纳税4%。

④当收入为5000或5000元以上时,将超过5000元的部分纳税5%。

程序运行后,单击窗体,在输入对话框中输入收入数,程序将在窗体输

出个人收入和纳税金额,如图所示。

------------------------------------------------------

答案:Option Explicit

Private Sub Form_Click()

 Dim x As Integer

 Dim y As Integer

 x = Val(InputBox("请输入收入"))

 If x <= 200 Then

   y = 0

 ElseIf x <= 400 Then

   y = (x - 200) * 0.03

 ElseIf x < 5000 Then

   y = 200 * 0.03 + (x - 400) * 0.04

 Else

   y = 200 * 0.03 + 4600 * 0.04 + (x - 5000) * 0.05

 End If

 Print "收入为:"; x; "应纳税为:"; y

End Sub

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:374        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】在名称为Form1的窗体上添加一个名称为p1的图片框。

'【要求】

'       ①设置图片框p1的高度和宽度分别2600和1600。

'       ②请编写适当的事件过程,程序运行时,每单击一次图片框,

'   就在图片框中输出“单击图片框”,每单击图片框外的窗体一次,

'   就在窗体中输出“单击窗体”。程序运行时的窗体如图所示。

'【提示】程序中不得使用变量,每个事件过程只能写一条语句。

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:715        难度:中        第1章

------------------------------------------------------

【程序填空】

------------------------------------------------------

【题目】

       在窗体上添加一个名称为Command1的按钮,标题为“输入正整数”。

   程序运行时,单击“输入正整数”按钮,通过InpubBox函数输入一个整

   数,并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后

   的结果,图2是输入100后的结果。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述

   功能。不能增加语句,也不能改动程序的其它部分。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

 Dim n As Integer

 n = Val(InputBox("请输入一个整数"))

**********SPACE**********

  Print "因子数="; 【?】

End Sub

Public Function fun(m As Integer)

 Dim s As Integer  因子数

 Dim k As Integer

 s = 0

 For k = 1 To m / 2

**********SPACE**********

    【?】  当整除余数为0时则一定是它的因子

     s = s + 1

     Print k

   End If

 Next k

**********SPACE**********

    【?】  返回因子总数

End Function

答案:

=======(答案1)=======

fun(n)

=========或=========

fun(n);

=========或=========

fun(n),

=======(答案2)=======

If m Mod k = 0 Then

=======(答案3)=======

fun = s

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:642        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】程序界面设计如图1所示。单击“计算”按钮,用InputBox函数输入

    自然数n(如图2所示),求n!,并将计算结果显示在文本框Text1中。

    程序运行结果如图3所示。

【要求】

        ①用InputBox函数输入自然数6,并将计算结果(6!)显示在文本

    框Text1中。

        ②程序必须执行一次。

------------------------------------------------------

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】程序界面设计如图1所示。单击“计算”按钮,用InputBox函数输入

    自然数n(如图2所示),求n!,并将计算结果显示在文本框Text1中。

    程序运行结果如图3所示。

【要求】

        ①用InputBox函数输入自然数6,并将计算结果(6!)显示在文本

    框Text1中。

        ②程序必须执行一次。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

  ************program***************

  ************end*******************

 YZJ Text1.Text

End Sub

Private Sub YZJ(stra As Integer)

 Dim OUT As Integer

 OUT = FreeFile

 Open App.Path & "\out1.txt" For Output As #OUT

 Print #OUT, stra

 Close #OUT

End Sub

答案:  Dim n As Integer, i As Integer

 Dim r As Integer  保存n!

 r = 1

 n = InputBox("请输入自然数n:")

 For i = 1 To n

   r = r * i

 Next i

 Text1.Text = r

第2题 (30.0分)        题号:643        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】程序界面已经创建。程序运行,单击“求素数之和”按钮,

    计算100-200之间素数之和并显示文本框Text1中,如图所示。

【要求】

       程序必须运行一次。

------------------------------------------------------

答案:  Dim i As Integer

 Dim j As Integer

 Dim sum As Integer  100-200之间的素数之和

 Dim flag As Boolean

 For i = 100 To 200

   flag = True

   For j = 2 To Sqr(i)

     If i Mod j = 0 Then

       flag = False

       Exit For

     End If

   Next j

   If flag = True Then

     sum = sum + i

   End If

 Next i

 Text1.Text = sum

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:375        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】在名称为Form1的窗体上添加一个名称为Label1的标签,如图1所示。

'【要求】

'       ①设置Label1标签字号大小为四号,标题为“等级考试”。

'       ②设置程序开始运行时不显示标签。

'       ③编写适当的事件过程,程序运行时,窗体的标题立即变为“标签”。

'   单击“窗体”时,显示标签Label1,如图2所示。

'【提示】

'       程序中不得使用变量,每个事件过程只能写一条语句。

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:716        难度:中        第1章

------------------------------------------------------

【程序填空】

------------------------------------------------------

【题目】

       如图所示,在“待选城市”下的List1列表框中有若干个城市

   名称。程序运行时,选中List1中若干个列表项,单击“选中”按

   钮把选中的列表项目移到“选中城市”下的List2列表框中。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述

   功能。不能增加语句,也不能改动程序的其它部分。

【提示】

       属性窗口设置MultiSelect=1时,鼠标单击可以选择多个列

   表项。当列表框的列表项Selected属性值为True时列表项选中,

   为False时列表项未选中。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

 Dim k As Integer

**********SPACE**********

  For 【?】 To 0 Step -1

**********SPACE**********

    If 【?】 Then

**********SPACE**********

      List2.AddItem 【?】

     List1.RemoveItem k

   End If

 Next k

End Sub

答案:

=======(答案1)=======

k = List1.ListCount - 1

=======(答案2)=======

List1.Selected(k) = True

=========或=========

List1.Selected(k)

=======(答案3)=======

List1.List(k)

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:644        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】程序界面已经创建。程序运行,在文本框Text1中输入一个表达式,

    单击“计算”按钮,计算表达式的值并输出在文本框Text2中,程序运

    行界面如图所示。

【要求】

        ①仅加法运算。

        ②运行程序一次,在文本框Text1中输入"6+19+58",并将计算结果

    显示在文本框Text2中。

------------------------------------------------------

答案:  Dim sum As Integer  表达式的值

 Dim p As Integer  "+"在表达式中的位置

 Dim b As Integer   中间变量

 sum = Val(Text1.Text)

 p = InStr(Text1.Text, "+")

 Do While p  0

   b = Val(Mid(Text1.Text, p + 1))

   sum = sum + b

   p = InStr(p + 1, Text1.Text, "+")

 Loop

 Text2.Text = sum

第2题 (30.0分)        题号:645        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】程序界面已经创建。程序运行,在文本框Text1和Text2中输入两

    正整数数,单击“求最大公约数”按钮,求两正整数的最大公约数并

    显示在文本框Text3中,程序运行结果如图所示。

【要求】

       运行程序一次,Text1输入72,Text2输入128。

------------------------------------------------------

答案:  Dim m As Integer  正整数1

 Dim n As Integer  正整数2

 Dim i As Integer  循环变量

 m = Val(Text1.Text)

 n = Val(Text2.Text)

 For i = n To 1 Step -1

   If m Mod i = 0 And n Mod i = 0 Then

     Text3.Text = i

     Exit For

   End If

 Next i

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:376        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】在名称为Form1的窗体上添加一个名称为Label1的标签,添加

'    两个名称分别为Command1、Command2的命令按钮。

'【要求】

'       ①设置标签Label1的初始内容为空,且能根据其标题内容自动

'   调整标签大小。

'       ②设置按钮Command1、Command2的标题分别为“日期”和“时

'   间”。

'       ③编写适当的事件过程,使得单击“日期”按钮时,标签内显示

'   系统当前日期;单击“时间”按钮时,标签内显示系统当前时间。如

'   图所示。

'【提示】

'        程序中不得使用变量,每个事件过程只能写一条语句。

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:717        难度:中        第1章

------------------------------------------------------

【程序填空】

------------------------------------------------------

【题目】

       如图所示。⑴单击“读数据”按钮,可将考生文件夹in1.txt

   文件中的100个整数读到数组a中。⑵单击“计算”按钮,则根据从

   组合框Combo1中选中的项目,对数组a中的数据计算平均值,并将

   计算结果四舍五入取整后显示在文本框Text1中。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述

   功能。不能增加语句,也不能改动程序的其它部分。

------------------------------------------------------

Option Explicit

Dim a(100) As Integer

Private Sub Command1_Click()

 Dim i As Integer

**********SPACE**********

  Open App.Path & "\in1.txt" 【?】

 For i = 1 To 100

**********SPACE**********

    【?】

 Next i

 Close #1

End Sub

Private Sub Command2_Click()

 Dim k As Long

 Dim m As Long

 Dim q As Long

 Dim p As Long

 Dim r As Long

 Dim n As Long

 For k = 1 To 100

**********SPACE**********

    【?】  判断是否为偶数

     m = m + a(k)  偶数之和

     q = q + 1     偶数个数加1

   Else

     n = n + a(k)  奇数之和

     p = p + 1  奇数个数加1

   End If

 Next k

 r = Int((m + n) / (p + q) + 0.5)  平均值

 m = Int(m / q + 0.5)  偶数平均值

 n = Int(n / p + 0.5)  奇数平均值

 Select Case Combo1.Text

   Case "所有偶数"

     Text1.Text = m

   Case "所有奇数"

     Text1.Text = n

   Case "所有数"

     Text1.Text = r

 End Select

End Sub

答案:

=======(答案1)=======

For Input As #1

=======(答案2)=======

Input #1, a(i)

=======(答案3)=======

If a(k) Mod 2 = 0 Then

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:646        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】对一维数组a(1 to 10)先赋值1、3、5、7、9、11、

13、15、17、19,然后再输出。程序运行界面如图4-1所示。

------------------------------------------------------

答案:  For i = 1 To 10

   a(i) = 2 * i - 1

 Next i

End Sub

Private Sub Command2_Click()

 Dim i As Integer

 For i = 1 To 10

   Print a(i)

 Next i

第2题 (30.0分)        题号:647        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

在窗体上输出如下所示3ⅹ4矩阵。

    1   2   3   4

    5   6   7   8

    9  10  11  12

------------------------------------------------------

答案:  For i = 1 To 3

   For j = 1 To 4

     a(i, j) = 4 * (i - 1) + j

   Next j

 Next i

 For i = 1 To 3

   For j = 1 To 4

     Print Tab(6 * j); a(i, j);

   Next j

   Print

 Next i

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:377        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】在名称为Form1的窗体上添加一个名称为L1的列表框,添加一个

'    名称为Text1的文本框,添加两个名称分别为C1和C2的命令按钮。

'【要求】

'       ①通过属性窗口给L1添加列表项“AAA”、“BBB”、“CCC”。

'       ②设置C1和C2按钮的标题分别为“添加列表项”和“删除列表项”。

'       ③编写适当的事件过程,程序运行时,给文本框中输入字符串“DDD”

'   时,单击“添加列表项”按钮,把文本框中的内容添加到列表框中。单击

'  “删除列表项”把选中列表框中的列表项删除。

'【提示】

'       程序中不得使用变量,每个事件过程只能写一条语句。

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:718        难度:中        第1章

------------------------------------------------------

【程序填空】

------------------------------------------------------

【题目】

       如图1所示,利用列表框和组合框设置文本编辑器的格式。程序

   中前景色、背景色用列表框控件,字体与字号用组合框控件实现。

   当“单击”列表项时,文本框的“前景色”、“背景色”、“字体”、

  “字号”会发生相应的改变,如图2所示。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述

   功能。不能增加语句,也不能改动程序的其它部分。

------------------------------------------------------

Option Explicit

Private Sub Combo1_Click()  字体设置

**********SPACE**********

  【?】

End Sub

Private Sub Combo2_Click()  字号设置

**********SPACE**********

  【?】

End Sub

Private Sub List1_Click()  前景色

 If List1.ListIndex = 0 Then

   Text1.ForeColor = vbBlack

 ElseIf List1.ListIndex = 1 Then

   Text1.ForeColor = vbRed

 ElseIf List1.ListIndex = 2 Then

   Text1.ForeColor = vbGreen

 ElseIf List1.ListIndex = 2 Then

   Text1.ForeColor = vbBlue

 End If

End Sub

Private Sub List2_Click()  背景色

**********SPACE**********

  【?】

   Case 0

   Text1.BackColor = vbBlack

   Case 1

   Text1.BackColor = vbRed

   Case 2

   Text1.BackColor = vbGreen

   Case 3

   Text1.BackColor = vbBlue

 End Select

End Sub

答案:

=======(答案1)=======

Text1.FontName = Combo1.Text

=======(答案2)=======

Text1.FontSize = Combo2.Text

=======(答案3)=======

Select Case List2.ListIndex

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:648        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】程序界面已经创建。程序运行,单击“计算”按钮,用Array函数对数

    组A初始化10个整数,其元素值为89,12,78,36,73,90,18,99,67,56,求数

    组A中元素的最大值及最大值所在位置;求大于数组A平均值的元素个数。

    程序运行结果如图所示。

【要求】

        ①最大值显示在文本框text1中。

        ②最大值的位置显示在text2中。

        ③大于数组A平均值的元素个数显示在text3中。

        ④运行程序一次。

【提示】

       ①option base 1。

       ②dim a

         a=array(89,12,78,36,73,90,18,99,67,56)

------------------------------------------------------

答案:  Dim i As Integer  循环变量

 Dim k As Integer  k是数组最大值所在位置

 Dim max As Integer  max是最大值

 Dim sum As Integer  sum是数组和

 Dim aver As Single  数组平均值

 Dim num As Integer  大于数组平均值的元素个数

 Dim a

 a = Array(89, 12, 78, 36, 73, 90, 18, 99, 67, 56)

 For i = 1 To 10

   If max < a(i) Then

     max = a(i)

     k = i

   End If

 Next i

 For i = 1 To 10

   sum = sum + a(i)

 Next i

 aver = sum / 10

 For i = 1 To 10

   If a(i) > aver Then

     num = num + 1

   End If

 Next i

 Text1.Text = max

 Text2.Text = k

 Text3.Text = num

 Print

第2题 (30.0分)        题号:649        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】利用一维数组统计一个班学生(以10人为例)的成绩等级,

   这10个学生的成绩分别为73, 79, 68, 86, 89, 98, 52, 97, 36, 90。

   统计0-59、60-69、70-79、80-89、90-100五个等级的人数分

   布情况。

       程序运行,单击“计算”按钮,统计五个等级的人数,如图所示。

【要求】

       ①用text1输出0-59的人数,用text2输出60-69的人数,

   用text3输出70-79的人数,用text4输出80-89的人数,用text5输出90-100的人数。

       ②运行程序一次。

【提示】

       ①option base 1。

       ②dim a

         a = Array(73, 79, 68, 86, 89, 98, 52, 97, 36, 90)

------------------------------------------------------

答案:  Dim a

 Dim i As Integer

 Dim g1 As Integer

 Dim g2 As Integer

 Dim g3 As Integer

 Dim g4 As Integer

 Dim g5 As Integer

 a = Array(73, 79, 68, 86, 89, 98, 52, 97, 36, 90)

 For i = 1 To 10

   If a(i) >= 90 Then

     g1 = g1 + 1

   ElseIf a(i) >= 80 Then

     g2 = g2 + 1

   ElseIf a(i) >= 70 Then

     g3 = g3 + 1

   ElseIf a(i) >= 60 Then

     g4 = g4 + 1

   Else

     g5 = g5 + 1

   End If

 Next i

 Text1.Text = g5

 Text2.Text = g4

 Text3.Text = g3

 Text4.Text = g2

 Text5.Text = g1

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:378        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】在名称为Form1的窗体上添加一个名称为Timer的计时器,添加一个

'   名称为Command1的命令按钮,添加一个名称为Label1的标签,如图1所示。

'【要求】

'       ①设置Command1命令按钮标题为“显示时间”。

'       ②设置Timer的Interval属性为1000。

'       ③编写适当的事件过程,程序运行时,单击“显示时间”按钮在标签

'    Label1中显示系统时间,如图2所示。

'【提示】

'        程序中不得使用变量,每个事件过程只能写一条语句。

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:719        难度:中        第1章

------------------------------------------------------

【程序填空】

------------------------------------------------------

【题目】

       如图1所示,窗体上有一个计时器、两个命令按钮和一个标签。

   计时器Timer1的初始状态为不可用;两个命令按钮Command1和

   Command2的初始标题分别是“演示”和“退出”;标签Label1的标

  题为“Visual Basic 程序设计”。

      ⑴单击标题为“演示”的命令按钮时,则按钮的标题自动改变为

  “暂停”,且标签在窗体上从左向右循环滚动,当完全滚动出窗体右

  侧时,从窗体左侧重新进入。

      ⑵单击标题为“暂停”的命令按钮时,则该按钮的标题自动改变

  为“演示”,并暂停标签的滚动。

      ⑶单“退出”按钮,则结束程序运行。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述

   功能。不能增加语句,也不能改动程序的其它部分。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

 If Command1.Caption = "演示" Then

**********SPACE**********

    【?】

   Command1.Caption = "暂停"

 Else

   Timer1.Enabled = False

**********SPACE**********

    【?】

 End If

End Sub

Private Sub Command2_Click()

 End

End Sub

Private Sub Timer1_Timer()

 If Label1.Left + Label1.Width > Form1.Width Then

   Label1.Left = -Label1.Width

 Else

**********SPACE**********

    【?】 + 100

 End If

End Sub

答案:

=======(答案1)=======

Timer1.Enabled = True

=======(答案2)=======

Command1.Caption = "演示"

=======(答案3)=======

Label1.Left = Label1.Left

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:650        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】列表框列表项的生成、插入、修改和删除。

【要求】

        ①单击“随机产生数”,随机生成10个100-999之间的整

          数添加到列表框list1中,并使列表框列表项有序。

        ②单击“插入列表项”,把文本框text1中输入的一个整数

          插入到列表框中并使列表框列表项仍有序。

        ③把在文本框text1中输入的一个列表框中已有的列表项删除。

【提示】

        设置list1.sorted=true,可以使列表框中列表项有序。

------------------------------------------------------

答案:Private Sub Command1_Click()

 Dim i%, x%

 For i = 1 To 10

   x = Int(Rnd * 900 + 100)

   List1.AddItem x

 Next i

End Sub

Private Sub Command2_Click()

 Dim x%, k%

 x = Val(Text1.Text)

 For k = 0 To List1.ListCount - 1

   If x < Val(List1.List(k)) Then Exit For

 Next k

 List1.AddItem x, k

End Sub

Private Sub Command3_Click()

 Dim x%, k%

 x = Val(Text1.Text)

 For k = 0 To List1.ListCount - 1

   If x = Val(List1.List(k)) Then List1.RemoveItem k

 Next k

End Sub

第2题 (30.0分)        题号:651        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】程序界面已经创建。程序运行,单击“排序”按钮,初始化数组A的

    元素值为“89,12,78,36,73,90,18,99,67,56”,同时对数组

    A的元素进行排序,程序运行结果如图所示。

【要求】

       ①数组元素值按升序排列。

       ②数组排序前、后输出到窗体上。

【提示】

       ①option base 1。

       ②dim a

         a=Array(89, 12, 78, 36, 73, 90, 18, 99, 67, 56)

------------------------------------------------------

答案:  Dim i As Integer

 Dim j As Integer

 Dim temp As Integer

 Dim a

 a = Array(89, 12, 78, 36, 73, 90, 18, 99, 67, 56)

 Print "排序前:"

 For i = 1 To 10

   Print a(i);

 Next i

 Print

 For i = 1 To 9

   For j = 1 + i To 10

     If a(i) > a(j) Then

       temp = a(i)

       a(i) = a(j)

       a(j) = temp

     End If

   Next j

 Next i

 Print "排序后:"

 For i = 1 To 10

   Print a(i);

 Next i

 Print

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:379        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】在名称为Form1的窗体上添加一个名称为List1的列表框,添加

'    一个名称为Text1的文本框,如图1所示。

'【要求】

'       ①通过属性窗口给列表框List1添加列表项“黑体”、“宋体”、

'   “微软雅黑”、幼圆”、“楷体”。

'       ②设置文本框Text1显示的内容为“Visual Basic 程序设计”,

'    字号为“三号”。

'       ③编写适当的事件过程,程序运行时,单击列表框列表项使文本

'    框显示对应列表项的字体。程序运行如图2所示。

'【提示】

'        程序中不得使用变量,事件过程只能写一条语句。

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:720        难度:中        第1章

------------------------------------------------------

【程序填空】

------------------------------------------------------

【题目】

       如图1所示,窗体上有一个文本框,一个框架,三个单选按钮,

   一个列表框,一个命令按钮。程序运行时,在“除数”框架中选择

   一个单选按钮,然后单击“处理数据”命令按钮,将大于(靠近)

   文本框中的正整数,并且能够被所选除数整除的10个数据添加到

   列表框List1中,如图2所示。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述功

   能。不能修改程序的其它部分和控件属性。。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

 Dim y As Integer

 If Option1.Value = True Then

   y = Val(Option1.Caption)

 End If

**********SPACE**********

  If 【?】 Then

   y = Val(Option2.Caption)

 End If

 If Option3.Value = True Then

   y = Val(Option3.Caption)

 End If

**********SPACE**********

【?】

End Sub

Private Sub calc(y As Integer)

 Dim i As Integer

 Dim x As Integer

 List1.Clear

 i = 1

 x = Val(Text1.Text) + 1

 Do While i <= 10  只需显示10个数

   If x Mod y = 0 Then

**********SPACE**********

      【?】

     i = i + 1

   End If

   x = x + 1

 Loop

End Sub

答案:

=======(答案1)=======

Option2.Value = True

=========或=========

Option2.Value

=======(答案2)=======

Call calc(y)

=========或=========

calc y

=======(答案3)=======

List1.AddItem x

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:652        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】如图所示,在窗体上有两个文本框Text1和Text2,一个命令按钮

    Command1。程序运行时,在文本框Text1中输入n(10>n>0),单击按钮

    Command1,计算1!+2!+3!+......+n!的值并显示在文本框Text2中。

【要求】

    ⑴调用sub过程subfact求阶乘。

    ⑵在文本Text1中输入6,运行程序一次,。

------------------------------------------------------

答案:   Dim n As Integer

  Dim r As Long

  Dim i As Integer

  Dim sum As Long

  n = Val(Text1.Text)

  For i = 1 To n

    Call subfact(i, r)

    sum = sum + r

  Next i

  Text2.Text = sum

第2题 (30.0分)        题号:653        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】程序界面已经创建。运行程序,单击“计算”按钮,用InputBox函数输入

    一个自然数n(n>16),如图1所示。调用subsum过程,

    求16+(16+17)+(16+17+18)+...+(16+17+18+...+n)之和并显示在Text1中。

    程序运行结果如图2所示。

【要求】

        ①在事件过程调用已经写好的subsum过程。

        ②用InputBox函数给变量n输入20,运行程序一次。

------------------------------------------------------

答案:  Dim i As Integer

 Dim n As Integer

 Dim sum As Integer

 Dim sum1 As Integer

 n = InputBox("请输入n:")

 For i = 16 To n

   sum1 = 0

   Call subsum(i, sum1)

   sum = sum + sum1

 Next i

 Text1.Text = sum

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:380        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】在名称为Form1的窗体上添加一个Frame1的框架,添加两个单选按钮,

'    添加一个标签Label1,如图1所示。

'【要求】

'       ①设置Frame1框架的标题为“性别”。

'       ②设置Option1和Option2的标题分别为“男”和“女”。

'       ③编写适当的事件过程,程序运行时,单击Option1时标签Label1显示

'    “男”,单击Option2时标签Label1显示“女”,如图2所示。

'【提示】

'        程序中不得使用变量和常量,每个事件过程只能写一条语句。

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:721        难度:中        第1章

------------------------------------------------------

【程序填空】

------------------------------------------------------

【题目】

       程序运行,随机产生10个10-99的正整数,显示在文本框Text1中。

   单击“排序按钮”调用sub过程subsort对10个随机整数从小到大进行排

   序,并将排序结果显示在文本框Text2中。程序运行结果如图所示。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述功

   能。不能修改程序的其它部分和控件属性。。

------------------------------------------------------

Option Explicit

Dim a(10) As Integer

Private Sub Command1_Click()

 Dim i As Integer

 Text1.Text = ""

 Text2.Text = ""

 Randomize

 For i = 1 To 10

**********SPACE**********

    【?】 90 + 10)

   Text1.Text = Text1.Text & a(i) & Space(3)

 Next i

**********SPACE**********

  【?】

End Sub

Private Sub subsort()

 Dim i As Integer

 Dim j As Integer

 Dim t As Integer

 For i = 1 To 9

   For j = i + 1 To 10

**********SPACE**********

      If 【?】

       t = a(i)

       a(i) = a(j)

       a(j) = t

     End If

   Next j

   Text2.Text = Text2.Text & a(i) & Space(3)

 Next i

 Text2.Text = Text2.Text & a(i) & Space(3)

End Sub

答案:

=======(答案1)=======

a(i) = Int(Rnd *

=========或=========

a(i) = Int(Rnd()*

=======(答案2)=======

Call subsort

=========或=========

subsort

=======(答案3)=======

a(i) > a(j) Then

=========或=========

a(j) < a(i) then

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:654        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】如图所示,在窗体上有两个文本框Text1和Text2,一个命令按

    钮Command1。程序运行时,在文本框Text1中输入n(10>n>0),单击

    按钮Command1,计算1!+2!+3!+......+n!的值并显示在文本框

    Text2中。

【要求】

    ⑴调用Function过程funfact求阶乘。

    ⑵在文本Text1中输入6,运行程序一次,。

------------------------------------------------------

答案:  Dim i As Integer

 Dim r As Long

 r = 1

 For i = 1 To n

   r = r * i

 Next i

 funfact = r

第2题 (30.0分)        题号:655        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】如图所示,在窗体上有一个文本框Text1,一个命令按钮Command1。

    单击按钮Command1,求100-999之间的素数和并显示在文本框Text1中

【要求】

    ⑴编写function过程fundata求素数。

    ⑵运行程序一次。

------------------------------------------------------

答案:  Dim i As Integer

 Dim flag As Boolean

 flag = False

 For i = 2 To Sqr(n)

   If n Mod i = 0 Then Exit For

 Next i

 If i > Sqr(n) Then flag = True

 fundata = flag

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:381        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】如图1所示,窗体上有两个列表框,两个按钮。

'【要求】

'       ①通过属性窗口给列表框list1添加列表项“环资学院”、

'   “土建学院”、“国防学院”。

'       ②通过属性窗口给列表框list2添加列表项“经管学院”、

'   “政治学院”、“文艺学院”。

'       ③编写适当的事件过程,程序运行时,单击“>>”把列表

'    框list1中选中的列表项移动到列表框List2中,同时删除List1

'    中选中的列表项。单击“<

'    移动到列表框List1中,同时删除List2中选中的列表项。

'【提示】

'       程序中不得使用变量和常量,每个事件过程只能写两条语句。

一、程序填空   共1题 (共计20分)

第1题 (20.0分)        题号:722        难度:中        第1章

------------------------------------------------------

【程序填空】

------------------------------------------------------

【题目】

       如图所示,窗体上有两个文本框Text1和Text2,一个标题为“求和”的命

   令按钮。

       程序运行,在文本框Text1中输入一个整数n(n>10)。单击“求和”按钮,

   调用funsum过程,计算10+(10+11)+(10+11+12)+...+(10+11+12+...+n)的和,

   并将结果显示到文本框Text2中。

【要求】

       这个程序不完整,去掉注释改为正确的内容,使其实现上述功能。不能修

   改程序的其它部分和控件属性。。

------------------------------------------------------

Option Explicit

Private Sub Command1_Click()

 Dim i As Integer

 Dim sum As Integer

 Dim n As Integer

 n = Text1.Text

 For i = 10 To n

**********SPACE**********

    sum = sum + 【?】

 Next i

 Text2.Text = sum

End Sub

Private Function funsum(k As Integer) As Integer

 Dim i As Integer

 Dim sum As Integer

 For i = 10 To k

**********SPACE**********

    【?】

 Next i

**********SPACE**********

  【?】

End Function

答案:

=======(答案1)=======

funsum(i)

=======(答案2)=======

sum = sum + i

=========或=========

sum = i + sum

=======(答案3)=======

funsum = sum

二、程序设计   共2题 (共计60分)

第1题 (30.0分)        题号:656        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】程序界面已经创建。程序运行,单击“计算”按钮读取考生文件

    夹下in1.txt文件中的100个整数,求其和并显示在窗体上,同时将和

    写入考生文件夹下out1.txt文件中。程序运行结果如图所示。

------------------------------------------------------

答案:  Dim i As Integer

 Dim sum As Long   和

 Dim a(100) As Integer

 Open App.Path & "\in1.txt" For Input As #1

 For i = 1 To 100

   Input #1, a(i)

   sum = sum + a(i)

 Next i

 Close #1

 Print "sum="; sum

 Open App.Path & "\out1.txt" For Output As #1

 Write #1, sum

 Close #1

第2题 (30.0分)        题号:657        难度:中        第1章

------------------------------------------------------

【程序设计】

------------------------------------------------------

【题目】程序界面已经创建。程序运行,单击“计算”按钮读取考生文件

    夹下in1.txt文件中的若干个100-999的正整数,从中求出所有的水

    仙花数及这些水仙花数的和,并将和显示在文本框Text1中。程序运

    行结果如图所示。

【提示】当一个数的值等于该数中各位数字的立方和时,此数被称为水仙

    花数。例如153=1^3+5^3+3^3。

------------------------------------------------------

答案:  Dim n As Integer

 Dim x As Integer

 Dim y As Integer

 Dim z As Integer

 Dim sum As Long

 Open App.Path & "\in1.txt" For Input As #1

 While Not EOF(1)

   Input #1, n

   x = n \ 100

   y = (n - x * 100) \ 10

   z = n - x * 100 - y * 10

   If n = x ^ 3 + y ^ 3 + z ^ 3 Then

     Print n

     sum = sum + n

   End If

 Wend

 Close #1

 Text1.Text = sum

三、VB窗体设计   共1题 (共计20分)

第1题 (20.0分)        题号:382        难度:中        第1章

'------------------------------------------------------

'【窗体设计】

'------------------------------------------------------

'【题目】

'       在名称为Form1的窗体上添加一个名称为L1的标签,添加两个名称分别

'   为Text1和Text2的文本框,添加三个名称分别为C1、C2、C3的命令按钮。

'【要求】

'       ①设置命令按钮C1、C2、C3的标题分别为“显示口令”、“隐藏口令”、

'   “复制口令”。

'       ②通过属性窗口设置文本框Text1的属性,使得程序运行时输入的字符都

'    显示“*”。

'       ③编写适当的事件过程,程序运行时,单击“显示口令”按钮后,Text1

'    中显示所有字符,再单击“隐藏口令”按钮后,Text1中的字符不变,但显示

'    的都是“?”,单击“复制口令”后,把Text1中的实际内容复制到Text2中,

'    如图所示。

'【提示】

'       程序中不得使用变量,每个事件过程中只能写一条语句。

5844f06d4d18ff7c7345938d8532a735.gif fc7997670e14573623b88d412420d068.png

西科学习杂货铺

资料整理 | 杂货铺店长

排版 | 杂货铺小妹

表情包
插入表情
评论将由博主筛选后显示,对所有人可见 | 还能输入1000个字符
相关推荐
©️2020 CSDN 皮肤主题: 1024 设计师:白松林 返回首页