Question

谁能给我写完这几个VB程序

实验三 循环结构程序设计
一、实验目的
掌握循环结构程序设计的一般方法及循环结构程序的调试方法。
二、实验要求
1.仔细阅读下列实验内容，并编写出相应的vb源程序。
2.掌握For语句的使用。
3.掌握Do{While|Untile}...Loop与Do...Loop{While|Untile}两种形式的使用。
4.掌握如何控制循环条件，防止死循环或不循环。
5.写出本次实验的实验报告。
三、实验内容
1.（基本题，分值75）1.猴子每天吃掉的桃子是所有桃子的一半多一个，到第七天发现只剩下一个了，问最开始有几个桃子？
2.（拓展题，分值25）百元百鸡问题：公鸡三元一只，母鸡两元一只，小鸡一元两只，现用百元买一百只鸡。
实验四 数组和过程的综合应用
一、实验目的：
掌握数组和过程的使用方法和综合应用。
二、实验要求：
1.仔细阅读下列实验内容，并编写出相应的vb源程序。
2. 掌握一维数组、二维数组和动态数组的建立和使用。
3. 掌握控件数组的建立和使用。
4.掌握过程的定义和说明的方法、参数传递规则和过程的调用方法。
5.写出本次实验的实验报告。
三、实验内容：
1．综合运用一维数组、二维数组、动态数组和控件数组的有关知识编写程序，要求能输入学生的学号、姓名、性别、年龄等个人简况，输入的学生人数不限，并可按学号或姓名查询。
2．温标转换
编写一个函数过程（Function过程），实现摄氏温标与华氏温标之间的相互转换。两种温标转换的公式如下：
华氏温度(℉) = 摄氏温度×9/5＋32
摄氏温度(℃) = (华氏温度－32)×5/9
实验五 键盘与鼠标事件过程和文件的综合应用
一、实验目的
握键盘与鼠标事件过程综合应用程序设计问题，掌握文件的使用
二、实验要求
1.仔细阅读下列实验内容，并编写出相应的vb源程序。
2. 掌握鼠标事件过程和键盘事件过程的应用。
3. 熟悉文件的基本概念及文件的分类，掌握顺序文件和随机文件的打开和读写方法，学会编写有关文件操作的vB应用程序。
4.写出本次实验的实验报告。
三、实验内容
1．综合运用子过程和键盘事件过程，编写一个扩展组合框功能的程序，使组合框能进行列表项自动匹配，能添加不重复的新项目。
2．编写一个简单的文本文件编辑程序，文件的内容显示在左边的文本框中。用户界面如图所示。
要求：
（1）单击open按钮，打开“打开”对话框，输入要打开的文本文件名后单击“确定”按钮，文件在文本框Text1中打开。
（2）单击save按钮，打开“保存”对话框，Text1中的内容以指定的路径和文件名保存。
（3）单击cut按钮，将文本框内选定的内容剪切到剪贴板上。
（4）单击copy按钮，将文本框内选定的内容复制到剪贴板上。
（5）单击paste按钮，将剪贴板上的内容粘贴到文本框中当前的插入点处。
（6）单击exit按钮，结束并退出程序。
实验六 数据库综合应用
一、实验目的
掌握用数据库访问技术解决一般难度的实际应用问题。
二．实验要求
1.仔细阅读下列实验内容，并编写出相应的vb源程序。
2. 掌握可视化数据库管理器的使用。
3.掌握数据控件Data和数据绑定控件的使用方法。
4．掌握ADO数据控件和DataGrid控件创建自定义数据访问窗体的方法
5.写出本次实验的实验报告。
三、实验内容
1．利用“可视化数据管理器”建立学生信息数据库。在数据库中建立学生基本信息表，包括学号、姓名、年龄、班级等字段，在前台VB界面中实现学生信息的显示、添加、删除等功能。
2. 使用DBGrid控件和数据绑定技术，创建一个数据库浏览程序，要求使用Access创建一个数据库，该数据库包含一个“学生成绩”表，表中有“学号”、“姓名”、“班级”、“年龄”、“性别”、“数学”、“语文”、“英语”和“计算机”几个字段。

Answer 1

实验三
循环输出 i（8次）
dim i as int
For i=1 to 9
msgbox "i:" & i
next i
循环输出 i（9次）
dim i as int
Do While（i=9）
msgbox "i:" & i
Loop

三、两种温标转换的公式如下：
Public Function TemChg(ByVal S, H As Long) As Long
If isnull(S) Then
TemChg = 32 + H * 9 / 5
Else
TemChg = (S - 32) * 5 / 9
End If
End Function

Answer 2

Private Sub Command1_Click()
Dim i%, k%
k = 1
For i = 2 To 7
k = 2 * (k + 1)
Next i
Print k
End Sub

Private Sub Command2_Click()
Print "百元百鸡"
Dim g%, m%, x%
For g = 0 To 33
For m = 0 To 50
For x = 0 To 200 Step 2
If g * 3 + m * 2 + x / 2 = 100 And g + m + x = 100 Then
Print "公鸡："; g, "母鸡："; m, "小鸡："; x
End If
Next x
Next m
Next g
End Sub
Private Function TemChg(a!, b As Boolean)
If b = False Then
TemChg = 32 + a * 9 / 5
Else
TemChg = (a - 32) * 5 / 9
End If
End Function

Private Sub Command3_Click()
a = InputBox("Input temp")
b = InputBox("Input type, 1 for F to C, 0 for C to F")
Print TemChg(Val(a), CBool(b))
End Sub

Answer 3

我知道第一题:
Private Sub Form_click()
Dim i%, a(10) As Integer: a(10) = 1
For i = 10 To 1 Step -1
a(i - 1) = 2 * (a(i) + 1)
Next i
Print a(1)
End Sub