basic语言编程实例_basic语言程序设计

求一简单编程，basic语言的

建6个text控件，分别命名为text1,text2,text3,text4,text5,text6 。 前5个用于输入a,b,c,d,e 5个数字，第6个用于显示结果序列，记得把第6个文本框的mutiline属性设置为ture。 创建一个按钮，命名Command1，点击开始计算，代码如下：

basic语言编程实例_basic语言程序设计

Dim a, b, c, d, resu, s1, s2, s3, s4, coun As Long

Private Sub Command1_Click()

On Error Resume Next

Text6.Text = ""

coun = 0

a = Int(Text1.Text)

b = Int(Text1.Text)

c = Int(Text1.Text)

d = Int(Text1.Text)

For s1 = 0 To 2 Step 1

For s2 = 0 To 2 Step 1

For s3 = 0 To 2 Step 1

For s4 = 0 To 2 Step 1

DoEvents

Select Case s1

Case 0

resu = a + b

Case 1

resu = a - b

Case 2

resu = a * b

End Select

Select Case s2

Case 0

resu = resu + c

Case 1

resu = resu - c

Case 2

resu = resu * c

End Select

Select Case s3

Case 0

resu = resu + d

Case 1

resu = resu - d

Case 2

resu = resu * d

End Select

Select Case s4

Case 0

resu = resu + e

Case 1

resu = resu - e

Case 2

resu = resu * e

End Select

coun = coun + 1

If resu >= -100 And resu <= 100 Then

Text6.Text = Text6.Text & "第" & Str(coun) & "个数：" & Str(resu) & Chr(13) & Chr(10)

Else

Text6.Text = Text6.Text & "第" & Str(coun) & "个数不在-100~100范围内"& Chr(13) & Chr(10)

End If

Next s4

Next s3

Next s2

Next s1

End Sub

public class HelloWorld{ public static void main(){ System.out.println("HelloWorld"); } }

如何用basic语言写下列两个程序

我来答第二题

第一种方法

Dim a As Long

a = 0

For n = 1 To 2010 Step 2

a = a + n

Next n

Print a

第二种方法

Dim a As Long

Dim n As Long

n = 1

a = 0

Do Until n > 2010

a = a + n

n = n + 2

Loop

Print a

1.

for i=-4 to 4

print tab(abs(i));

for j=1 to (5-abs(i))*2-1

print "*";

next j

print

next i

2.题目没讲清楚啊，n和N是什么？

1、打开Word,PPT,Excel任意一款，这里我打开的是PPT。

2、点击“文件”—“选项”（Office2007：Office图标—PowerPoint选项）。

3、在“自定义功能区”中将右侧列表框里的“开发工具”勾上。2007在“常规”中有一项“显示开发工具”，勾上。

4、回到主界面，上面已经出现“开发工具”了，点击。

5、以下是开发工具的所有项目，点第一个“Visual Basic”。

6、出现以下界面。

7、点击“插入”——“用户窗体”即可。

1.

cls

rem c是判断是否都不能整除

for a=100 to 200

c=0

for b=2 to a-1

if a/b=int(a/b) then c=1

next b

if c=0 then

print a,

end if

next a

end

2.

cls

rem a/A是百位，b/B十位，c/C个位

for a=1 to 9

for b=0 to 9

for c=0 to 9

if int(a^3+b^3+c^3)=int(a*100+b*10+c) then print a*100+b*10+c,

next c

next b

next a

end

3.

cls

rem d为计数器

d=0

for a=1 to 19

for b=1 to 94

for c=1 to 188

if a*5+b+c*0.5=100 then

print "5=";a,"1=";b,"0.5=";c

d=d+1

end if

next c

next b

next a

print "Total=";d

end

一. BASIC语言简介

1. 什么是BASIC语言

BASIC是Beginner's All-purpose Symbolic Instruction Code的缩写。意即初学者通用符号指令代码。它是一种国际通用的计算机高级语言。一般认为它是从FORTRAN中提炼、简化而来。因此简单易学，BASIC入门了，再学其它高级语言也就不难了。

拡2. BASIC语言的版本

电脑语言一般都有版本序列。BASIC语言也经历了不断的发展与改进，形成了不同环境下的不同版本。如BASIC、BASICA、F-BASIC、H-BASIC、Q-BASIC等等。但一般来说都大同小异、基本的东西不变、较高版本兼容较低版本。所以需恐慌与诧异。让我们从最基本的也就是BASIC来学起，先入门，有兴趣的同学，就可以通过自学深入和提高。

拡3. BASIC语言的特点

（1）简单易学。基本BASIC的语句一共只有17种，且使用准英语或者叫类英语，表达式与运算符号也与数学中使用的差不多。

（2）会话功能。BASIC是高级语言，具有很强的会话功能。语句、表达式及运行到某句出错时，电脑会进行人机对话，及时给出提示等。因此可以边做边改。直至正确与满意为止，这一点对初学者十分方便。

（3）环境特点。BASIC程序的运行分解释型与编译型两种。一般在学习与编制程序时使用解释型环境。也就是说要在DOS下先运 行BASIC.EXE文件，进入BASIC的解释环境状态（其提示符是OK），编写程序所形成的文件其扩展名约定为BAS。这就叫BASIC的源程序。当源程序调试好了，反复运行都满意，可以用BASIC的编译工具软件把它编译成扩展名为EXE的文件便能直接在DOS下运行。有关BASIC的启动知识，可参阅课本第一章第四节（18～26页）

4. BASIC的功能

一般来说，BASIC具有运算、作图、音乐等三种基本功能。它作数学运算时比其它语言要简单明了。一条语句便可以设定算式（表达式）同时输出结果。但对数据库的处理与运算能力比D-BASE等要弱。BASIC的图形功能也很强，甚至用于制作卡通电影。但不同的版本功能有差异，也受硬件配置条件的制约。BASIC还具有很强的音乐功能。可以演凑乐曲和作曲，甚至可以发出乐器无法发出的声响来产生特殊效果，这就是现代音影创作领域的MIDI制作。

二. BASIC程序的构成与基本规则

例：某班32人，电脑成绩如下：A等（5分）13人，B等（4分）12人，C等（3分）5人，D等（2分）2人，求全班该科目平均成绩

拡解此题的BASIC程序是：

10 LET A=13

20 LET B=12

30 LET C=5

40 LET D=2

50 LET U=A+B+C+D

60 LET G=(5*A+4*B+3*C+2*D)/U

70 PRINT G

80 END

由上例可以得知BASIC程序的结构与规则

1. 一个程序由若干行（LINE）组成，一行写一个语句（STATEMENT），程序执行时按行号顺序进行。行号一般取正整数，留有余数，以便修改时插入。

2. 一个语句一般分为三个部分，即行号（或者叫行标）、语句定义符、语句体（或者叫表达式），其顺序与格式都不能错。

3. 每个程序一般都以END结束。RUN回车，运行程序；NEW回车，清除程序；LIST回车，列出程序等等以及屏幕最下面一行的提示，这些都是BASIC语言的命令，以回车结束并立即产生对应的效果。

三. BASIC的语句

1. 打印语句（PRINT语句）

用途：(1)打印出变量或者表达式的值

(2)使打入的字符串原样照印

用法：(1)可以打印一个或多个（用逗号分开）常量的值。

(2)常量表达式的值，但不能起赋值的作用，如PRINT X=3+5则是错的

(3)如果表达式含有变量，则变量必须先赋值，否则会作零或被视为非法

(4)可以输出字符串，必须用双引号界定，且双引号本身不能当做字符串来使用

输出格式：可以同时输出多项（如变量、表达式或字符串），但需用逗号分开（标准格式输出），各项之间用分号分开，则以紧凑方式输出，PRINT之后什么都没有则输出一个空白行。连续使用PRINT语句输出，若每句之后无标点，则自动换行；以分号结束，则不换行，紧接着输出下一个语句的值，以逗号结束，则不换行，以标准格式接着输出。

2. 赋值语句（LET语句）

用途：它的作用是将等号右边的值送到等号左边的变量中去。因此不同于数学意义上的等号，如：LETN=N+1,数学上是错误的，但BASIC语言的LET语句中却经常用到。

用法：(1)可以将常量赋值给变量，如LET X=3

(2)可以将表达式的值赋给变量，如LET L=2*3.14*R，但不能向一个表达式赋值，如LET X+Y=2+3则是错误的。

(3)一个LET语句只能给一个变量赋值，也不能连用几个等式

(4)变量之间可以辗转赋值，且最新值刷新老值

四. BASIC中数与变量的表示法

（一）常数的表示法

1. 一律采用十进制，但不能用逗号分位，有效位数因机型不同而崐 异，一般都在七位以上。

2. 超大与超小数的表示法

如9亿，表示成9E＋8，或9E8；又如0.0000079，表示成7.9E-6。至于大到什么程度会溢出，小到什么程度当做零处理，与机型有关。

拡（二）变量的表示法

1. BASIC中变量简单变量与下标变量两类，简单变量可以用26个英文字母的任意一个来表示，但一般不能写成XY、3X等形式，即乘号不能省略。

2. 下标变量由一个大写英文字母加上圆括号中的下标组成，下标一般只能是正整数或零。如A(3),X(0)等。

（三）运算符的表示法

1. 加减符号与数学相同，除号用/表示，乘号用*表示，而且不能省略。

2. 乘方采用 表示自乘，有的BASIC则要求用*连乘。

3. 开平方用SQR来表示

4. 乘方与开方更一般的表示法是采用只数指数与对数的形式。

如A的B次方一般写成EXP(B*LOG(A))

（四）运算的优先级

1. 运算的优先级一般都与数学上是相同的

2. 破括号的方法也相同，但BASIC的括号不分大、中、小，一律用圆括号，并可以层层套用

（五）BASIC的表达式

1. 我们把符合BASIC规定的、用运算符号和括号将常量、变量、函数连接起来的有意义式子叫做表达式。

2. 表达式的书写必须符合BASIC规范，如一个符号占一格，且在同一横线上，不允许有上、下标等。

BASIC语言标准函数表

┏━━━━┳━━━━━━━━━━━┳━━━━━━━━━━━━━┓

┃标准函数┃ 功 能 ┃ 备 注 ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃SIN(X) ┃ 正弦函数 ┃自变量单位以弧度表示 ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃CON(X) ┃ 余弦函数 ┃自变量单位以弧度表示 ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃TAN(X) ┃ 正切函数 ┃自变量单位：弧度。如太接近┃

┃ ┃ ┃ /2的奇数倍，可能溢出 ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃ATN(X) ┃ 反正切函数 ┃函数值的单位为弧度 ┃

┃ ┃ ┃ ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃LOG(X) ┃ 即自然对数ln X ┃X 的值应为正 ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃EXP(X) ┃ ┃ ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃SQR(X) ┃ X的平方根（正根） ┃ ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃ABS(X) ┃ X的绝对值 ┃ ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃INT(X) ┃ 求不大于X的最大整数 ┃ ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃ ┃ ┃ 1 (当X>0) ┃

┃SGN(X) ┃ 符号函数 ┃ SGN(X) = 0 (当X=0) ┃

┃ ┃ ┃ -1 (当X<0) ┃

┣━━━━╋━━━━━━━━━━━╋━━━━━━━━━━━━━┫

┃RND(X) ┃产生(0,1)区间的一个均 ┃ X只有形式上的作用，可取任┃

┃ ┃匀分布的随机数 ┃ 意值 ┃

┗━━━━┻━━━━━━━━━━━┻━━━━━━━━━━━━━┛枥殢

五. BASIC语言作图

（一）屏幕的两种格式

1. 在BASIC语言环境下，屏幕有两种模式：文本格式与图形模式。文本模式不能作图，图形模式兼容文本模式

2.一般默认格式是文本模式，也可以用SCREEN 0将图形模式转换成文本模式。

3. 图形模式一般从SCREEN 1,SCREEN 2,......到SCREEN 9等等，其分辨率也随着增高，但要受到机器配置与BASIC语言版本不同等因数的制约。作图时可以调用颜色编号，但同样要受到机器与版本的制约。具体情况见《BASIC屏幕模式表》 4. 一般形式是：SCREEN M,C,A,V

M为屏幕模式，C为颜色组别参数，A为工作页参数，V为显示页参数

（二）BASIC语言的几个基本的作图语句

1. 画圆语句 CIRCLE

格式：CIRCLE(X,Y),R,C

(X,Y)为圆心坐标，R为圆的半径，C为颜色参数。省略颜色参数则为白色。由于有的显示器横宽显示比例不是严格的1|1,所以可能看上去象椭圆，且并不画出圆点来。

2. 画点语句 PSET

格式：PSET(X,Y),C

(X,Y)为要画出的点的坐标，C为颜色参数

3. 画线和方形语句

格式：LINE(X1,Y1)-(X2,Y2),C,B[BF]

(X1,Y1)为起点坐标，(X2,Y2)为终点坐标，C为颜色参数，省略参数B和BF为直线，选B为方形，选BF为实心方形。若省略颜色参数时画方形，其逗号不能省略，即要连用两个逗号。

4. 填色语句 PAINT

格式：PAINT(X,Y),C,B

(X,Y)为填色的起点坐标，即填色的区域是以此坐标为起点向四周扩散，直到遇到边界为止。C为所要填充的颜色参数，B为边界设定参数。

BASIC屏幕模式表

┏━━━━┳━━━━━━━┳━━━━━━━┳━━━━━━━━┓

┃ 模式 ┃ 解析度 ┃ 颜色组别 ┃ 每组颜色数 ┃

┣━━━━╋━━━━━━━╋━━━━━━━╋━━━━━━━━┫

%

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Form_Load()

playsnd 587, 100: playsnd 784, 100: playsnd 880, 100: playsnd 988, 100:: playsnd 988, 200: playsnd 0, 100

playsnd 988, 100: playsnd 880, 100: playsnd 988, 100: playsnd 1047, 200: playsnd 988, 100: playsnd 988, 100

playsnd 880, 100: playsnd 100, 150: playsnd 880, 100: playsnd 784, 100:: playsnd 988, 100: playsnd 0, (5)

playsnd 988, 100: playsnd 0, (5)::: playsnd 988, 100: playsnd 0, (5):::: playsnd 988, 100: playsnd 880, 100

playsnd 784, 100: playsnd 740, 100: playsnd 784, 200: playsnd 100, 200:: playsnd 784, 100: playsnd 880, 100

playsnd 784, 100: playsnd 988, 100: playsnd 0, (5)::: playsnd 988, 100:: playsnd 0, (5)::: playsnd 988, 100

playsnd 0, (5)::: playsnd 988, 100: playsnd 100, 100: playsnd 587, 100:: playsnd 784, 100: playsnd 1175, 100

playsnd 0, (5)::: playsnd 1175, 99: playsnd 988, 100: playsnd 0, (5):::: playsnd 988, 100: playsnd 0, (5)

playsnd 987, 100: playsnd 100, 100: playsnd 784, 100: playsnd 0, (5):::: playsnd 784, 100: playsnd 880, 200

playsnd 784, 100: playsnd 0, (5)::: playsnd 784, 100: playsnd 0, (5):::: playsnd 784, 50:: playsnd 659, (50)

playsnd 784, 100: playsnd 659, 100: playsnd 784, 100: playsnd 880, 100:: playsnd 100, 100: playsnd 587, 110

playsnd 784, 120: playsnd 880, 130: playsnd 740, 140: playsnd 784, 200:: playsnd 1, 1::::: playsnd 1, 1

End

End Sub

Function playsnd(ByVal x As Long, y As Long)

Beep x, y * 3

DoEvents

End Function 这是一段音乐的 源码 你可以 自己试试

beep就可以 调用主板的蜂鸣器 可以自己调整长短与频率 这样就能做出最简单的曲子了

用系统API函数可以实现，具体的话，加我QQ，我给你发给实例 36 1789 273

直接输入beep是电脑的提示音，如果放音乐的话加个播放器控件就可以

基于basic语言的autoit有么有GUI实例？

AutoIt入门与提高.pdf

O'Reilly_AutoIt_v3__Your_Quick_Guide.pdf （英文的）

网上都有下的，都有讲GUI相关编程。