VB算法信息技术孔红良[精心整理].ppt

把式③代入式②有： feet = 2* (heads - rabbit) + 4 * rabbit 化简后有 feet= 2 * heads + 2 * rabbit ……⑤ 故有：rabbit = (feet – 2 * heads )/2 把式④代入式②有： feet = 2 * chicken + 4 * (heads - chicken) 化简后有 feet = 4 * heads – 2 * chicken ……⑥ 故有: chicken = ( 4 * heads – feet )/2 Private Sub Command1_Click() 'a为公鸡，b为母鸡，c为小鸡 Dim a As Integer, b As Integer, c As Integer For a = 1 To 20 For b = 1 To 34 c = _________ '第一空 If 5 * a + _______+ c / 3 = 100 Then '第二空 Print a, b, c End If Next b Next a End Sub Private sub form_load() End sub 例题一：在Visual Basic中，建立一个命令按钮Command1,单击该命令按钮时，在窗体上输出下面的图形。 # # # # # # # # 　　 # # # # # # # # 　　　 # # # # # # # # 　　　　 # # # # # # # # 　　　　　 # # # # # # # # 分析：从上面的图形可以看出，决定其大小的因素在于它有多少层，每一个字符可以看作一个点。用点画线，再由每行“线”组成面。在本题中每行有8个字符，总共有5行。 Command1_Click事件代码为： Private Sub Command1_Click( ) Dim I as Integer,j as Integer For I=1 to 5 Print Tab(i); For j=1 to 8 Print “#”; Next j Print Next I End Sub 例题二 输出一个可变大小的字符正三角形。 * * * * * * * * * * * * * * * * * * * * * * * * 分析：从上面的图形可以看出，决定其大小的因素在于它有多少层，每一个字符可以看作一个点。用点画线，再由每行“线”组成面。首先我们要确定输出多少层的正三角形，当确定输出总的层数后，可以通过循环变量i确定每一层的起始位置和每一层的字符个数。假设第一层的起始位置为第30列。 第I层 起始位置（列） 对应层的字符个数 1 n 1 2 n-1 3 3 n-2 5 4 n-3 7 …… …… …… n 1 2n-1 图形的起始位置可以通过Tab( )函数进行设置，每层字符个数通过循环变量j来完成。在窗体上建立一