程序显示文本框_vb程序语言题库

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

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

第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

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

三、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中，

＇如图所示。

＇【提示】

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

西科学习杂货铺

资料整理 | 杂货铺店长

排版 | 杂货铺小妹

程序显示文本框_vb程序语言题库相关推荐

程序显示文本框_C++入门到精通(二)，编写我们自己的Hello World程序
上一章我们学习了如何创建一个"Hello World"示例程序,本章我们来自己手动写一个程序,参照我们上一篇文章的方法,我们创建一个控制台应用程序工程,在这里选择第一项" ...
程序显示文本框_python PDF转成图片小程序
你有没有遇到过这样一个需求:把一批PDF文件转存成图片,或者说把某一个文件夹内所有的pdf文件都转换成图片.PDF文件转存成图片格式有很多种方法,可以使用PDF编辑器或者上传到专门转格式的网站上.但是 ...
程序显示文本框_【教程】TestComplete测试桌面应用程序教程（二）
TestComplete是一款具有人工智能的自动UI测试工具,利用自动化测试工具和人工智能支持的混合对象识别引擎,轻松检测和测试每个桌面,Web和移动应用程序.其中,TestComplete支持测试使 ...
c语言中规定,程序中各函数之间,C语言题库-函数_(参考).doc
C语言函数练习题选择题 1.在函数的说明和定义时若没有指出函数的类型,则( A ) A: 系统自动地认为函数的类型为整型. B: 系统自动地认为函数的类型为字符型. C: 系统自动地认为函数的类型为 ...
国二c语言程序,国家计算机二级c语言题库及答案
国家计算机二级c语言题库及答案 1.以下程序的输出结果是() #include main () {int a,b,d=241; a=d/100%9 b=(-1)&&(+1); prin ...
计算机二级c语言程序填空,计算机二级C语言题库之程序填空.docx
计算机二级C语言题库之程序填空找Armstrong(水仙花)数:371=3*3*3+7*7*7+1*1*1 #include #include void main() { int i,a,b,c; ...
android 代码控件框高,Android控件_TextView(显示文本框控件)
一.TextView控件的常用属性 1.android:id--控件的id 2.android:layout_width--设置控件的宽度 wrap_content(包裹实际文本内容) fill_pa ...
DOM--操作元素案例：分时显示不同的图片以及问候语；仿淘宝关闭标签案例；隐藏显示文本框内容；仿新浪注册页面中密码长度的判定
分时显示不同的图片以及问候语分析: 根据不同的时间来判断,所以需要获取到系统的时间. 利用分支语言来设置不同的图片需要更换不同的图片,因此需要操作img的元素src 需要一个div来显示不同问候语 ...
小程序源码：最新掌上题库微信小程序源码下载，修复登录接口，支持在线考试，自定义导入考题-多玩法安装简单
这是一款题库微信小程序源码支持积分商城.自定义试题及导入.知识点分类.模式试题考试.流量主等首页模块:专项刷题 .题型刷题.乱序刷题.我的收藏.我的错题.未作习题.刷知识点.考前必背另外还有更多 ...

程序显示文本框_vb程序语言题库

程序显示文本框_vb程序语言题库相关推荐

最新文章

热门文章