📄 ba54.htm
字号:
<HTML>
<HEAD>
<TITLE>QB运用递归法一例</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<BODY topMargin=4 vLink=#0000ff>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD height="52">
<DIV align=center>
<CENTER>
<table border=0 cellpadding=0 cellspacing=0 width=679 align="center">
<tbody>
<tr>
<td width=200 height="59">
</TD></TR><!--msnavigation--></TBODY></TABLE>
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tbody>
<tr><!--msnavigation--><td valign=top height="123">
<div align=center>
<table border=1 bordercolor=#b9d9ff cellpadding=0 cellspacing=0
class=table width=755>
<center>
<tr>
<td width="100%" height="3">
<div align="center"> <strong><big>QB运用递归法一例</big></strong></span></div>
</td>
</tr>
<tr>
<td
width="100%" class="unnamed1" height="124">
<div align="left">
<p align="center"> </p>
<p align="left">
递归法是程序设计中的一个难点，对BASIC语言来讲更是如此。实际上QuickBASIC和VB都已经支持了程序的递归调用，编写递归程序也方便多了。<br>
下面就举一个画树的例子，编程的目的是用递归法画一棵三叉树，树枝、树叶采用不同颜色，以下QBASIC程序直接执行即可动态地画出一棵很真实的树。<br>
源程序如下：<br>
DECLARE SUB JIAO (JAO!)：DECLARE SUB tree(C!)<br>
SCREEN 12<br>
DIM SHARED J<br>
DRAW “BM320，460”：CALL tree(440)<br>
PLAY “T255L 16Xcdefgab”<br>
END<br>
SUB JIAO (JAO)'此程序用来将画笔转一定角度。<br>
J=J＋JAO<br>
IF J>360 THEN J=J⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -