vb语言程序设计.doc

文档介绍：-
. z.
第一题
设计程序，从文本框中输入一个整数n（n<500），单击“处理”按钮是产生3个1~n的随机整数，并分别显示在3个标签中。
程序如下：
Private Sub F
    
   End If
End Sub
第四题已知**由8个数码组成，如11234301，其中从左算起前2位表示年级，第5个数码的表示学生类型，学生类型规定如下:   2——博士生，3——硕士生，4——本科生，5——专科生设计程序，从文本框中输入一个字号，单击命令？按钮时进行处理，然后在另外两个文本框中显示该生的年级及学生类型（中文表示）
-
. z.
程序如下：
Private Sub mand1_click()      '执行Dim * As String,n As Integer,m As String '定义相关变量 * = Te**t    '在第一个文本框中输入*即学生的** n =Val(Mid(*, 5, 1))   '通过mid型函数选择出字符*的第五个字符，并转换为数值将值赋给n
     m = Left(*,2)       '取*左边的两个字符Te**t = m       '在第二个文本框里面显示m
Select Case n   '利用select case语句进行判断 Case 2
   Te**t = "博士生"
  Case 3
   Te**t = "硕士生"
 Case 4
   Te**t = "本科生"
  Case 5
   Te**t = "专科生"
  Case Else
   Te**t = "**无效"
     
End Select       '结束select
End Sub

-
. z.
第五题
编写程序，用数组建立一个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 To8          '控制行数For j = 1 To 8         '控制列数 a(i, j)= Int(90 * Rnd+10) '随机数存放在数组的i行j列中 Ne*t j
Ne*t i
 s = o       '合计前清0
For i = 1 To 8
 For j = 1 To 8
  s = s + a(i, j)
Ne*t j
Ne*t i
Print "所有元素之和:"; s
Print
For i =