vb编程题
1. vb编程题编程： 编程输出下列的矩阵
在VB编程中，要实现输出特定矩阵的功能，可以通过编写相关代码来完成。下面的示例展示了如何通过编程输出一个5行9列的矩阵。
首先，我们定义一个子过程，当命令按钮Command1被点击时执行。这个过程包含两个嵌套的循环，分别对应矩阵的行和列。
外部循环的索引变量i，从1开始，遍历到5，代表矩阵的行。内部循环的索引变量j，从1开始，遍历到9，代表矩阵的列。
在内部循环中，我们使用了表达式`int((i+j-2) mod 5)+1`来计算每个矩阵元素的值。具体解释如下：
- `i+j-2`：首先计算当前行索引与列索引的和，然后减去2。
- `mod 5`：将上一步的结果取模5，确保结果在0到4之间。
- `int`：将取模后的结果转换为整数。
- `+1`：最后将结果加1，以匹配矩阵元素的起始值。
在内部循环结束后，我们使用`Tab(2)`来在输出中添加一个空格或制表符，以保持矩阵的格式。外部循环完成后，整个矩阵就以编程方式输出。
此外，我们还定义了一个窗体加载过程`Form_Load`。这个过程通常用于在窗体加载时执行的初始化代码，但在这个例子中，它仅作为示例的一部分，可以被省略或根据实际需求进行修改。
通过以上代码，我们不仅能够实现矩阵的输出，还能灵活地调整矩阵的行数和列数，以适应不同的编程需求。
2. 解答VB编程试题
在VB编程中，处理数组和循环是常见的任务。下面的示例展示了如何实现一些基本的数组操作。首先，我们来看一个简单的数组位移程序。该程序定义了两个整数数组a和b，分别存储从0到9的数值。然后，用户可以通过输入框指定一个位移值n，程序会将数组a中的元素按照位移值向右移动，结果存储在数组b中。具体实现如下：
Dim a(10) As Integer, b(10) As Integer
For i = 1 To 10
a(i) = i - 1
Print a(i);
Next i
n = InputBox("输入位移的位数")
Print
For i = 1 To 10
j = i + n
If i + n > 10 Then j = j - 10
b(j) = a(i)
Next i
For i = 1 To 10
Print b(i);
Next i
接下来，我们看一个矩阵操作的示例。程序定义了一个3x3的矩阵a，另一个3x3的矩阵b，以及一个临时矩阵c。矩阵a的主对角线元素设置为2，其余元素随机生成。矩阵b的第一行元素等于a的第一行元素，其余行元素等于上一行与当前行对应位置的元素之和。矩阵c则是a与b的对应位置元素之和。具体实现如下：
Dim a(3, 3) As Integer, b(3, 3) As Integer, c(3, 3) As Integer
For i = 1 To 3
For j = 1 To 3
a(i, j) = 0
If i = j Then a(i, j) = 2
Print a(i, j);
If i < 3 Then b(i, j) = Int(Rnd() * 10)
Else
b(i, j) = b(1, j) + b(2, j)
End If
Next j
Print
Next i
For i = 1 To 3
For j = 1 To 3
Print b(i, j);
c(i, j) = a(i, j) + b(i, j)
Next j
Print
Next i
For i = 1 To 3
For j = 1 To 3
Print c(i, j);
Next j
Print
Next i
另一个示例涉及三角形数组的生成。用户需要输入三角形的行数，程序会构建一个按杨辉三角形规则填充的数组。具体实现如下：
Dim a() As Long
n = InputBox("输入三角形的行数")
ReDim a(n, n)
For i = 1 To n
For j = 1 To n
If j = 1 Or i = j Then
a(i, j) = 1
ElseIf i > 1 Then
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
End If
Print a(i, j);
Next j
Print
Next i
最后，我们来看一个简单的命令按钮操作示例。当点击命令按钮时，程序会根据按钮索引执行相应的数学运算。具体实现如下：
Private Sub Cmdoper_Click(Index As Integer)
Select Case Index
Case 0
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
Case 1
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
Case 2
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
Case 3
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Select
End Sub
3. 一道VB编程题
创建3个文本框，第一个输入年，第二个输入月，第三个输入日。
用year(now),month(now),day(now)分别返回当前年月日。
用year(now)-学生生日即可得到年龄，如果想要准确的周岁生日，再比较月，日就行了。
用inputbox也可以
a=inputbox("输入学生生日-年"）
b=inputbox("输入学生生日-月"）
c=inputbox("输入学生生日-日"）
x=year(now)-a 'x即为学生年龄，如果想算仔细一些的话，就要进行月，
日的比较
if b<month(now) then
print "该学生已经过了";x;"岁生日了"
elseif b=month(now) and c<day(now) then
print "该学生已经过了";x;"周岁生日了"
elseif b=month(now) and c=day(now) then
print "今天是xx同学";x;"周岁的生日"
else
print "该学生还不满";x;"周岁"
end if