可视化程序设计(VB)

36 49

162、

窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。 Private Sub Command1_Click() '确定按钮 Static n As Integer

----1----mypwd As String = \预设密码为自定义常量 n = n 1

Label2.Visible = True If ----2---- Then

Label2.Caption = \密码正确\Else

If n < 3 Then

Label2.Caption = \密码错误！\Text1.Text = \Else ----3---- End If End If End Sub 参考答案

1、CONST

2、Text1.text=mypwd 3、End

163、

下列程序运行后，当在组合框中输入一个新项目后按回车时，如果输入的项目在组合框列表中不存在，则自动添加到组合框列表中，并在label2中显示“成功添加新项目！”（界面如下图所示）；若该项目存在，则显示“输入项目已存在!”。

Private Sub Combo1_ keypress(KeyAscii As Integer) If KeyAscii = 13 Then For I = 0 To ----1----

If Combo1.Text = ----2----Then Label2.Caption = \输入项目已存在!\Exit Sub End If Next I

Label2.Caption = \成功添加新项目！\Combo1.AddItem ----3---- End If End Sub 参考答案

1、Combo1.ListCount – 1 2、Combo1.list(I)

3、Combo1.Text

164、

写出程序的输出结果： Private Sub Form_Click

Print Tab(10); -100;Tab(20); 200;Tab(30); -300 Print Spc(5); -100;Spc(5); 200;Spc(5); -300 End Sub

参考答案 165、

下列程序的功能是找出被5、7除，余数为1的最小5个正整数。 Private Sub Form_Click() Dim Ncount%, n% Ncount =----1---- n = 1 Do n = n 1

If ----2---- Then Print n

Ncount = Ncount 1 End If

Loop Until ----3----=5 End Sub 参考答案

1、0

2、n Mod 5 = 1 And n Mod 7 = 1 3、Ncount

166、

执行下列程序段输出的结果（）。 a=3

IF a>0 Then Print(＂###＂) Else

Print(＂$$$＂) End If 参考答案 ### 167、

本程序是将列表框List1与List2中各表项合并到List3：List1与List2中原有各表项已按ASCII码从大到小排列。要求合并后List3中各表项也要从大到小排列。 Private Sub Command1_Click() Dim I as integer,j as integer List3.Clear ----1----

If List1.ListCount * List2.ListCount = 0 Then Exit Do If----2----Then

List3.AddItem List1.List(0): List1.RemoveItem (0) Else

List3.AddItem List2.List(0): List2.RemoveItem (0)

-100 200 -300 -100 200 -300

End If Loop

For i= 0 To List1.ListCount – 1 List3.AddItem List1.List(i) ----3----

For j = 0 To List2.ListCount - 1 List3.AddItem List2.List(j) Next j

List1.Clear: List2.Clear End Sub 参考答案

1、Do

2、List1.List(0)>List2.list(0) 3、Next I

168、 程序为：

option base 1

private sub command1_click( )

dim a(3,3) for I=1 to 3 for j=1 to 3

if j>1 and I>1 then

a(I,j)=a(a(I-1,j-1),a(I,j-1))+1 else

a(I,j)=I*j end if

print a(I,j);” “; next j print next I end sub

程序运行后，单击命令按钮后，在窗体显示的结果是：

1 2 3

参考答案

2 3 1 3 2 3

169、

设计用按钮数组command1(0)- command1(9)做一个模拟电话拨号程序。运行时，单击各数字按钮后，在标签label1中显示所拨的号码，按“删除”键command2,删除最后一个号码，按“取消”键command3,则撤销所有拨号，清空标签。

Dim num As String

Private Sub Command1_Click(Index As Integer) num = num & ----1----- Label1.Caption = num End Sub

Private Sub Command2_Click() ------2----

Label1.Caption = num End Sub

Private Sub Command3_Click() -------3------- num = \End Sub 参考答案

1、Command1(Index).Caption或trim(str(index)) 2、num = mid(num,1, Len(num)–1) 3、Label1.Caption = \

170、

这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。 Dim UserName(2) As String, inputName As String

Dim Flag As Boolean ‘flag=true表示用户名正确;flag=false表示用户名不正确 Private Sub Form_Load() Dim I As Integer

UserName(0) = \ ----1----

inputName = InputBox(\请输入名称：\身份确认\For I = 0 To 2 If ----2----Then Flag = True End If Next I

If Flag =False Then

----3---- (\用户身份确认失败！退出应用\警告\End End If End Sub

Private Sub Form_Paint()

picShowMsg.Print \欢迎您！\End Sub

参考答案

1、Flag = False

2、inputName = UserName(I) 3、MsgBox

171、简述常量和变量的区别

1在程序运行中，其值始终保持不变的称为常量；2在程序运行中，其值始终可以改变的称为变量。 172、 在VB6.0的集成开发环境中，“窗体窗口”的作用是什么？

在VB6.0的集成开发环境中，“窗体窗口”是VB应用程序的主要构成部分，这个窗体就是应用程序最终面向用户的窗体。用户可在其中添加控件、图片以及菜单等组件来设计用户界面。每个窗体窗口必须有一个唯一的名字，建立窗体时默认的名字为form1、form2…… 173、简述调用function过程的方法

1通过call语句或直接写成函数名来使用call函数名（实参表） 或2在表达式中，通过函数调用参加表达式运算变量=函数名（实参表） 174、VB中的表达式有哪几种？

VB中的表达式有：算术表达式、字符串表达式、关系表达式、逻辑表达式

175、在VB6.0的集成开发环境中，要显示各窗口，如：属性窗口，应该如何操作？ 要显示各窗口，可选择“视图”菜单中相应的命令即可。 176、VB程序的控制结构有哪些？

VB是结构化的程序，其控制结构包括：顺序结构、选择结构、循环结构。 177、如何设置控件的属性？

在属性窗口中，单击对象列表框右边的下拉按钮，选中欲设置属性的控件，在属性列表框的左列选中控件的属性名，在右列对该属性的值进行修改。

178、简述调用sub过程的方法

调用sub过程的两种格式：格式1使用call语句 ，call 过程名（[实参表]）；格式2 直接使用过程名 过程名[实参表] 179、简述VB 6.0的三种模式

设计模式可以建立应用程序的用户界面，设置控件的属性，编写代码等；运行模式可以测试程序的运行结果，可以与应用程序对话，还可以查看程序代码，但不能修改程序；中断模式可以利用各种调试手段检查或更改某些变量或表达式的值，或者在断点附近单步执行程序，以便发现错误或改正错误。 180、简述列表框常用的事件和方法。

click（单击），dblclick（双击），上面的2个是常用的事件，additem（添加计划），removeitem（删除一项），clear（清楚所有项目）。

181、简述VB中的文件类型

1.根据不同分类标准和方法，可将VB分为不同类型： 数据性质不同分为程序文件和数据文件 2.根据数据存取方式不同分为顺序和随机文件 3.根据数据编码方式不同分为ASCII文件和二进制文件 182、常用鼠标单击事件有哪些？

Cick（单击），dblclick（双击），mousemove（移动鼠标），mouseup（释放鼠标键），mousedown（按下鼠标键）。 183、简述动态数组的定义步骤。

分两步：首先用Dim、Private或Public定义一个没有下标的数组，Dim数组名()[As 数据类型]，其次在过程中用ReDim语句定义带下标的数组，ReDim 数组名 （下标）。 184、如何建立多重窗体？如何设置启动窗体？

建立多重窗体的方法为：使用“工程”菜单中的“添加窗体”命令或工具栏上的“添加窗体”按钮来打开相应的对话框，在对话框中选择“新建”选项卡新建一个窗体；选择“现存”选项卡可以把一个已有的属于其他工程的窗体添加到当前工程中。添加时每个窗体的name不能相同。

如果要指定其他窗体为启动窗体，方法为：使用“工程”菜单中的“属性”命令，在出现的“工程属性”对话框中选取“通用”选项卡，在“启动对象”列表框中选择要作为启动窗体的窗体名称后，单击“确定”按钮即可。 185、什么是形参？什么是实参？

形式参数（简称形参）是在被调过程中的参数，出行在Sub过程和Function过程中，形式参数可以是变量名和数组名；实际参数（简称实参）是在调用过程中的参数，过程调用时实参数据会传递给形参。形参表和实参表中的对应变量名可以不同，但实参和形参的个数、顺序以及数据类型必须相同。