Question

visual basic编程

向窗体中添加两个命令按钮（名称分别为cmdFind和cmdExit）；一个文件框（名称为txtPaper）；两个标签（名称分别为lblFinded和lblReplaced）。并设置其他必要的有关属性和适当调整它们的布局和大小，注意程序界面的美观性。
编写程序代码：使其能实现以下功能：
①当程序运行时，能自动在文本框txtPaper中显示文章的内容。
②当单击命令按钮cmdFind时，可实现以下功能：
程序第一次出现输入对话框，要求用户输入“要查找的内容”，输入完毕后，再次出现输入对话框，要求用户输入“要替换成的内容”。输入完毕后，程序进行查找并替换的功能。即：
能根据用户输入的“要查找的内容”和“要替换成的内容”从文本框txtPaper的文本内容中进行查找，当找到时，被找到的内容以反相显示（即呈选中状态），然后出现提示对话框，询问用户是否替换，如果回答“是”，则对其进行替换；如果回答“否”，则不替换。重复以上过程，直到全部内容查找完毕。
在以上查找替换过程中，统计有关查找到的次数和已替换的次数，并结果分别显示到标签lblFinded和lblReplaced。
③单击命令按钮cmdExit时，程序运行结束，退出程序。

Answer 1

O1、将一个一维数组反序放置。例如： a＝(67,89,76,98,66), 反序放置后，a＝(66,98,76,89,67)。

ption Base 1
Private Sub Form_Click()
Const n = 5 '这里N可以是任意的
Dim a(n) As Integer, t%
For i = 1 To n
a(i) = Val(InputBox("输入任意数值"))
Print a(i);
Next i
For i = 1 To n \ 2
t = a(i): a(i) = a(n - i + 1): a(n - i + 1) = t
Next i
Print
For i = 1 To n
Print a(i);
Next i
End Sub
3、 编写程序，输出下列三角形：
1
1 1 1
1 1 1 1 1
1 1 1 1 1 1 1

Private Sub Form_Click()
Const n = 4
Dim i%, j%
For i = 1 To n '外循环控制打印行数
If i = 1 Then
Print Tab(15 - i); ' 打印起始位置
Print "1"
Else
Print Tab(10 - i);
For j = 1 To 2 * i - 1 '内循环控制打印个数
Print "1";
Next j
Print
End If
Next i
End Sub

6、试述Tab()和Space()两个函数的区别？

Tab 函数 用来确定打印初位置（第三题）
space 函数 用来返回空字符串
例如：“啊啊啊”+space（5）+“啊啊啊”=“啊啊啊 啊啊啊”

我回头再看看其余的 ，你急用吗，留个QQ号吧，到时我可以发你邮箱里，
觉得你给得分太少（你可以看看别的提问），哥们而是新手，很需要分，嘿嘿

Answer 2

回去研究下 看能不能做出来 我表示我是大一新生刚学vb，看看能不能做出来。呵呵