VB语言程序设计

第一题

设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n 的随机整数，并分别显示在3个标签中。

程序如下：

Private Sub Form_Load() ‘加载

Dim n As Integer, a As Integer ‘定义随机变量

Dim b As Integer, c As Integer

Randomize ‘使rnd函数产生不同序列的随机数

n = Val(InputBox("请输入一个正整数n（n<500）")) 'inputbox函数产生对话框供用户输入数值

a = Int(n * Rnd) ‘在小于n的数随机选取一树值“下同”

b = Int(n * Rnd)

c = Int(n * Rnd)

Label1.Caption = a ‘随机选取的数值n显示在标签上面“下同”

Label2.Caption = b

Label3.Caption = c

End Sub ‘结束运行

第二题

设计程序，在窗体上建立5个文本框和1个命令按钮，利用4个文本框输入4个数，单击命乏按钮进行处理，求出这4个数中的最大数显示在第5个文本框中 [提示]①数值的数据类型可以定义为单精度型；②可以参考例4.2的处理方法；也可以分两组数（2个数为一组）进行比较，再从两组数中的较大数中求出最大数.

程序如下：

Private Sub Command1_Click() '执行

Dim m As Single, a As Single '定义变量为单精度

Dim b As Single, c As Single

Dim d As Single

a = Val(Text1.Text) '为变量赋值

b = Val(Text2.Text)

c = Val(Text3.Text)

第三题

设计程序，在窗体上建立一个列表框Listl和一个“显示”命令按钮Commandl。列表框中已有5个列表项，依次为“表项1”~“表项5”。程序运行后，可以通过多次单击来选中多个列表项。单击“显示”按钮，在窗体上输出所有选中的列表项，如图5.13所示

程序如下：

Private Sub Form_Load()

Show

List1.AddItem "表项一"

List1.AddItem "表项二"

List1.AddItem "表项三"

List1.AddItem "表项四"

List1.AddItem "表项五"

End Sub

Private Sub command1_click() '“显示”

For i = 0 To List1.ListCount - 1 '逐项判断

If List1.Selected(i) Then '选中的的表项显示在窗体上

Print List1.List(i)

End If

End Sub

第四题

已知学号由8个数码组成，如11234301，其中从左算起前2位表示年级，第5个数码的表示学生类型，学生类型规定如下: 2——博士生，3——硕士生，4——本科生，5——专科生设计程序，从文本框中输入一个字号，单击命令？按钮时进行处理，然后在另外两个文本框中显示该生的年级及学生类型（中文表示）

程序如下：

第五题

编写程序，用数组建立一个8×8的矩阵，数组元素值是10~99围的随机整数，求解下列问题并输出结果: （1）求所有元素之和；（2）求各行元素之和；（3）.求主对角线元素之和；（4）求所有靠边元素之和

程序如下：

Private Sub Form_Load()

Dim a(8, 8) As Integer, i As Integer

Dim j As Integer, s As Integer

Print "所有靠边元素之和:"; s

End Sub

第六题

设计有两个窗体的程序，运行开始时只显示Form2窗体，单击Form2上的C2按钮时，显示Form1窗体；单击Form1窗体上的C1按钮时，则Form1窗体消失。把Form2设置为启动对象，C1，C2按钮⊥的标题分别为“隐藏”和“显示”.

窗体2的代码窗体1的代码

Private sub command2_click() private sub command1_click()

Form1.show '显示Form1.Hide '隐藏

End sub End Sub

第七题

为标签增加一个弹出式菜单，该菜单中包含有“红色”、“蓝色”和“绿色”3个选项，当右击标签时弹出菜单，从菜单中选择相应的选项可以改变标签中文字的颜色

程序如下：

Option Explicit '强制显式声明变量

Dim sel1 As String

Private Sub form_load()

程序如下：

Private Sub Command1_Click() '打开文件

CommonDialog1.DialogTitle = "文件打开"

CommonDialog1.Filter= "文本文件|*.txt文档文件|*.doc"'设置文件过滤器CommonDialog1.InitDir = "c:\" '默认文件夹

CommonDialog1.ShowOpen '显示“打开”对话框

Text1.Text = CommonDialog1.FileName '将选定的文件路径及文件名显示在文本框中