VB语言程序设计001.docx

VB语言程序设计001.docx

《VB语言程序设计001.docx》由会员分享，可在线阅读，更多相关《VB语言程序设计001.docx（13页珍藏版）》请在冰豆网上搜索。

VB语言程序设计001

第一题

设计程序，从文本框中输入一个整数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）

     d = Val（Text4.Text）

   If a > b Then   ‘利用if与else语句来判断大小a与b的大小

         m = a           '将较大值赋给m

   Else:

 m = b

   End If

   If c > m Then      '上步判断出的较大值与第三个值c进行比较

         m = c

   Else:

 m = m

   End If

   If d > m Then

         m = d

   Else:

 m = m

   End If             '结束if语句

   Text5.Text = m       '在文本框5中显示最大值m

End Sub            '结束

Private Sub Form_Load（）       '加载

   Text1.Text = ""        '刚运行时文本内容为空“下同”

   Text2.Text = ""

   Text3.Text = ""

   Text4.Text = ""

   Text5.Text = ""

End Sub               '结束

第三题

设计程序，在窗体上建立一个列表框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

EndSub

第四题

已知学号由8个数码组成，如11234301，其中从左算起前2位表示年级，第5个数码的表示学生类型，学生类型规定如下:

   2——博士生，3——硕士生，4——本科生，5——专科生      设计程序，从文本框中输入一个字号，单击命令？

按钮时进行处理，然后在另外两个文本框中显示该生的年级及学生类型（中文表示）

程序如下：

Private Sub command1_click（）     '执行

Dim x As String,n As Integer,m As String '定义相关变量

  x = Text1.Text    '在第一个文本框中输入x即学生的学号

  n = Val（Mid（x, 5, 1））  '通过mid型函数选择出字符x的第五个字符，并转换为数值将值赋给n

     m = Left（x, 2）      '取x左边的两个字符

     Text2.Text = m       '在第二个文本框里面显示m

Select Case n            '利用select case语句进行判断

 Case 2

  Text3.Text = "博士生"

 Case 3

  Text3.Text = "硕士生"

 Case 4

  Text3.Text = "本科生"

 Case 5

  Text3.Text = "专科生"

 Case Else

  Text3.Text = "学号无效"

End Select      '结束select

End Sub

第五题

编写程序，用数组建立一个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

    Show

  Randomize

For i = 1 To 8          '控制行数

 For j = 1 To 8         '控制列数

 a（i, j） = Int（90 * Rnd+10）'随机数存放在数组的i行j列中

 Next j

Next i

 s = o               '合计前清0

For i = 1 To 8

 For j = 1 To 8

  s = s + a（i, j）

Next j

Next i

Print "所有元素之和:

"; s

Print

For i = 1 To 8

 s = o

For j = 1 To 8          '控制列数

 s = s + a（i, j）      '累加同一行元素值

Next j

Print "第"; i; "行元素之和:

"; s                

'输出当前行元素之和（下同）

Next i

Print

For i = 1 To 8

 s = o

 s = s + a（i, i）

Next i

Print "主对角线元素之和:

"; s

Print

 s = o

For i = 1 To 8

For j = 1 To 8

 If i = 1 Or i = 8 Or j = 1 Or j = 8 Then

   s = s + a（i, j）

 End If

Next j

Next i

Print "所有靠边元素之和:

"; s

End Sub

第六题

设计有两个窗体的程序，运行开始时只显示Form2窗体，单击Form2上的C2按钮时，显示Form1窗体；单击Form1窗体上的C1按钮时，则Form1窗体消失。

把Form2设置为启动对象，C1，C2按钮⊥的标题分别为“隐藏”和“显示”.

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

Privatesubcommand2_click（）privatesubcommand1_click（）

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

EndsubEndSub

第七题

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

程序如下：

OptionExplicit'强制显式声明变量

Dimsel1AsString

PrivateSubform_load（）

Label1.FontSize=20'标签字体大小为20

sel1=""'颜色标记

EndSub

PrivateSubmnu11_click（）'“红色”

sel1="红色"

EndSub

PrivateSubmnu12_click（）'“绿色”

sel1="绿色"

EndSub

PrivateSubMnu13_click（）'“蓝色”

sel1="蓝色"

EndSub

PrivateSubform_click（）

SelectCasesel1

Case"红色"

Label1.ForeColor=RGB（255,0,0）'标签字体颜色为红色（下同）

Case"绿色"

Label1.ForeColor=RGB（0,255,0）

Case"蓝色"

Label1.ForeColor=RGB（0,0,255）

EndSelect'结束select语句

EndSub

PrivateSubForm_mouseup（buttonAsInteger,shiftAsInteger,xAsSingle,yAsSingle）

Ifbutton=2Then'检查是否右击，左击为1，右击为2

PopupMenumnu10'mnu10是“颜色”菜单项

EndIf'结束if语句

EndSub

PrivateSubmnu20_Click（）'“退出“

End

EndSub

第八题

在窗体上建立一斤通用对话框、一个文本框和2个按钮，如图10.14所示。

按照以下要求设计程序:

单击“选择文件”按钮时，弹出“打开文件”对话框，其默认路径为“C:

\”，默认列出的文件扩展名为.txt（文本文件）和.doc（文档文件），用户选定路径及文件名后，该路径及文件名显示在窗体的。

程序如下：

Private Sub Command1_Click（）     '打开文件

CommonDialog1.DialogTitle = "文件打开"

CommonDialog1.Filter= "文本文件|*.txt文档文件|*.doc"'设置文件过滤器

CommonDialog1.InitDir = "c:

\"     '默认文件夹

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

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

End Sub

Private Sub Command2_Click（）

    Unload Me

    End                '结束

End Sub