A算法与程序设计(VB).doc

A算法与程序设计(VB)摘要：完善显示按扭程序,使当单击该按扭时标签标题改为算法与程序设计;Private Sub Command1_Click()Label1.caption=算法与程序设计.关键词：算法,设计类别：专题技术来源：牛档搜索（Niudown.COM）本文系牛档搜索（Niudown.COM）根据用户的指令自动搜索的结果，文中内涉及到的资料均来自互联网，用于学习交流经验，作品其著作权归原作者所有。不代表牛档搜索（Niudown.COM）赞成本文的内容或立场，牛档搜索（Niudown.COM）不对其付相应的法律责任！A算法与程序设计（VB）第一套第15题请编写程序，打印出下面所示的图案。*完成所有操作后，请按“Ctrl+S”保存。程序如下：Private Sub Form_Click() Dim i As Integer 定义i为整形变量 Dim j As Integer 定义j为整形变量 For i = -3 To 3 Print Tab(Abs(i) + 5) 确定每行的起始位置 For j = 1 To (4 - Abs(i) ) - 1 Print * ; Next j Print 换行 Next iEnd Sub(说明：i表示行数，j表示输出的“*”数)第16题编写程序，求函数y的值（当x小于等于0时，y=3x+1；当x0时，y=4x+1）。完成所有操作后，请按“Ctrl+S”保存。（x的值在程序中调用InputBox函数，在弹出的标准对话框中输入）程序如下：Private Sub Form_Click() Dim x As Single 定义x为单精度型变量，由标准输入对话框输入 Dim y As Single 定义y为单精度型变量，值由窗体显示 x = Val (InputBox(请输入变量x的值) If x =500中 最小的n.Private sub form_click()dim s as integerdim n as integers= 0_n=0don=n+1s= s+n_loop until s500print “n=”;nend sub第18题编写递归函数求5!的值。Public function s(n as integer) as longIf n=1 thenS= 1 ElseS= s(n-1)*n End ifEnd function Private sub form_click()Print “s(10)=” ; s(5) End sub第三套第15题设计一个程序，打印下面所示的图案完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim i As Integer 定义i为整型变量Dim j As Integer 定义j为整型变量Dim j As IntegerFor i = 1 To 6 Print Tab(10); For j = 1 To i Print ; Next jPrintNext iEnd Sub第16题一只猴子摘了一堆桃子，它每天吃当天桃子的一半，每次忍不住多吃了一个。这样到第十天时只有一个桃子可以吃了，编程计算猴子最初共有多少个桃子。完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim i As Integer 定义天数变量Dim s As Integer 定义s为桃子总数结果由窗体输出s = 1For i = 1 To 9 s = (s + 1) * 2Next iPrint s=; sEnd Sub第17题编程计算s=1*2+2*3+3*4+n*(n+1)的值，其中n=10。完成所有操作后按“Ctrl+S”保存。Private Sub Form_Click()Dim s As Single 和，定义变量s为单精度型Dim i As Integer 定义变量s = 0For i = 1 To 100s = s + i * (i + 1)Next iPrint s=; sEnd Sub第18题编写递归函数求10！的值。完成所有操作后按“Ctrl+S”保存。Public Function s(n As Integer) As Long If n = 1 Then s = 1 Else s = s(n - 1) * n End If End FunctionPrivate Sub Form_Click() 调用递归函数，显示结果 Print s(10)=; s(10)End Sub第四套第15题完善“显示”按钮的click程序，将代码段中“变量1”，“变量2”，“变量3”处换成正确的变量名，使当单击该按钮时，Label1、Label2分别显示30、10.完成所有操作后，请按“Ctrl+5”保存。Private sub command_click()X=10Y=30If x=60 ThenLable1.caption=”及格” Endif If a60 ThenLable1.caption=”不及格” EndifEnd Sub第16题请将按扭“计算1+2+100”的Click事件程序中的“常量”和“变量”换成正确的“常量”和“变量”，当单击命令按扭时Text1显示1+2+100的值。Private Sub Command1_Click() Dim a As Integer Dim i As Integer a= 0 For i=1 to 100 a=a+i next i text1.text= a end sub第17题对窗体Form1进行如下修改：1、 在窗体中增加一个标签；2、 设置标签的对齐方式为“居中对齐”；（做法：选中标签将其属性栏中的“Alignment”属性值选择为“2-center”）3、 完善“显示”按扭程序，使当单击该按扭时标签标题改为“算法与程序设计”；Private Sub Command1_Click()Label1.caption=”算法与程序设计”End sub第18题在已打开的窗体Form1中，在窗体中增加一个文本框text3。再完成按扭中的程序设计，使当单击“计算” 按扭时，计算b*b-4ac的值，并在text3中显示出来。Private Sub Command_Click(