请教几个VB实际问题

来源：百度知道编辑：UC知道时间：2024/05/24 13:54:26

1. 从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素

对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换……第5个元素与第6个元素互换。

分别输出数组原来的各元素的值和对换后的各元素的值。

2. 设有如下两个数据：
(1) 2,8,7,6,4,28,70,25
(2) 79,27,32,41,57,66,78,80
编写一个程序，把上面两组数据分别读入两个数组中，然后把两个数组中对应下标的相

加，即 2+79+，8+27，……，25+80,并把相应的结果放入第三个数组中，最后输出第三个

数组的值。

3. 有一个n*m的矩阵，编写程序，找出其中最大的那个元素所在的行和列，并输出其值

及行号和列号。

4. 设有如表 8.5 所示的人员名册。试编写一个程序，对应名册进行检索。程序运行后

，只要在键盘上输入一个人名，就可以在屏幕上显示出这个人的情况。例如,输入“张得

功”，则显示：
张得功男 24 大学本科河北

表8.5 人员名册
姓名性别年龄文化程度籍贯
--------------------------------------------
张得功男 24 大学本科河北
李得胜男 30 高中毕业北京
王丽女 25 研究生山东
…… … … ……… ……
…… … … ……… ……
--------------------------------------------

要求：
(1).使用动态数组，输入的人数可以根据实际情况改变。
(2).当检索名册中不存在的人名时。输出相应的信息。
(3).每一次检索结束后，询问是否继续检索，根据输入的信息确定是否结束程序。

请详细解答，谢谢

Option Base 1
Option Explicit
Dim i, j, pice() As namestring
Private Type namestring
names As String
sex As String
age As String
nows As String
addresss As String
End Type
Private Sub Command1_Click()
Randomize
Dim a(1 To 10), b
For i = 1 To 10
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
'转化
Print
For i = 1 To 5
b = a(i)
a(i) = a(11 - i)
a(11 - i) = b
Next
For i = 1 To 10
Print a(i);
Next
End Sub

Private Sub Command2_Click()
Dim a, b, c, aa, bb, cc
a = Array(2, 8, 7, 6, 4, 28, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 78, 80)
ReDim c(1 To UBound(a))
For i = 1 To UBound(a)
c(i) = a(i) + b(i)
Print c(i)
Next
Print
For i = 1 To UBound(a)
aa = aa + a(i)
bb = bb + b(i)
cc = cc + c(i)
Next
Print aa; bb; cc
End Sub

Private Sub Command3_Click()
Ra

请教几个VB题目！新手请教几个VB问题请教关于交流电的实际问题? 请教VB高手几个程序问题关于开网店的一些实际问题请教？？？请教几个VB的问题..答的好重赏我是VB初学者,想请教几个编程中的问题请教一下几个超简单的VB问题请教VB？？？？？请教一财会的实际问题，挺复杂的，有点不明白请教高手．