QBASIC实验样本

QBASIC实验样本

（2003年）

实验一：指法练习 ........................................................................................................................... 2 实验二：DOS常用命令 .................................................................................................................. 4 实验三：Windows98的文件操作 ................................................................................................... 6 实验四：Windows98的程序管理 ................................................................................................... 8 实验五：顺序程序设计 ................................................................................................................. 10 实验六：选择结构程序设计 ......................................................................................................... 11 实验七：循环结构程序设计 ......................................................................................................... 13 实验八：循环结构程序设计 ......................................................................................................... 15 实验九：函数及子程序 ................................................................................................................. 17 实验十：数组 ................................................................................................................................. 18 实验十一：字符串应用 ................................................................................................................. 20 实验十二：文件应用 ..................................................................................................................... 23

1

实验一：指法练习

一、实验目的：

1．熟悉键盘布局，掌握正确得键盘操作方法，提高上机效率。

二、实验内容：

1. 打开计算机。进入D盘，打开TT软件。 2. 进行键盘练习。 3. 按程序关闭计算机。

三、实验用设备仪器及材料：

软件需求：

对于Windows系统，使用Windows98、Windows NT或更新的版本。

硬件需求：

对于硬件方面的要求，建议配置是Pentium III 450以上的CPU处理器，64MB以上的内存，200MB的自由硬盘空军、CD-ROM驱动器、能支持24位真彩色的显示卡、彩色显示器。

四、实验原理图：

2

五、实验方法及步骤：

一、打开计算机，进入Windows桌面，打开键盘练习软件TT。 二、熟悉各手指所负责的按键。

左手小指：1、Q、A、Z以及左侧键盘的所有按键。 左手四指：2、W、S、X按键。 左手中指：3、E、D、C按键。

左手食指：4、R、F、V和5、T、G、B按键。 右手食指：6、Y、H、N和7、U、J、M按键。 右手中指：8、I、K、<按键。 右手四指：9、O、L、>按键。 右手小指：0、P、；、？按键。 三、正确的姿势： 只要挺胸，端坐。

两臂自然下垂，手腕平直。

双手八指分别（从左至右）放在A、S、D、F、J、K、L、；键上。 基建不要用力过猛。

四、要养成盲打得习惯，眼观文稿，不看键盘。

六、实验结果分析：

3

实验二：DOS常用命令

一、实验目的：

1．掌握DOS环境下的8个常用命令，熟悉如何使用字符用户界面今行人几对话。

二、实验内容：

1. 创建目录结构：用MD命令在D盘上创建树状目录结构。 2. 查看指定目录下的文件、目录信息。 3. 复制文件。 4. 更改文件名。 5.删除文件和目录。

6.显示文本文件内容，显示AUTOEXEC.BAT和CONFIG.SYS内容。

三、实验用设备仪器及材料：

软件需求：

对于Windows系统，使用Windows98、Windows NT或更新的版本。

硬件需求：

对于硬件方面的要求，建议配置是Pentium III 450以上的CPU处理器，64MB以上的内存，200MB的自由硬盘空军、CD-ROM驱动器、能支持24位真彩色的显示卡、彩色显示器。

四、实验原理图：

4

五、实验方法及步骤：

1、创建目录结构：用MD命令在D盘上创建树状目录结构。 D:\\>MD USER ↙ D:\\>CD USER ↙ D:\\USER>MD WORD ↙ D:\\USER>MD PICTURE ↙ D:\\USER>MD SYSTEM ↙

2、查看指定目录下的文件、目录信息。 C:\\DIR

查找AUTOEXEC.BAT文件的位置。 C:\\>DIR A*.BAT 显示在C盘根木下。 3、复制文件

1、将C盘目录下*.BAT文件复制到D:\\USER\\WORD目录中。 C:\\>COPY *.DOC D:\\USER\\WORD ↙

2、将C盘下*.MBP文件复制到D:\\USER\\PICTURE中。 C:\\>COPY *.BMP D:\\USER\\PICTURE ↙

3、把AUTOEXEC.BAT和CONFIG.SYS文件复制到D:\\USER\\SYSTEM中。 C:\\>COPY AUTOEXEC.BAT D:\\USER\\SYSTEM ↙ C:\\>COPY CONFIG.SYS ↙ 4、更改文件名。

D:\\USER\\SYSTEM>REN AUTOEXEC.BAT AUTO.BAT ↙ 5、删除文件和目录。

D:\\USER\\SYSTEM>DEL *.* ↙ D:\\USER\\SYSTEM>CD.. ↙ D:\\USER>RD SYSTEM ↙ 同样

D:\\USER>RD PICTURE ↙

D:\\USER>RD WORD ↙

6、显示文本文件内容，显示AUTOEXEC.BAT和CONFIG.SYS内容。 C:\\>TYPE AUTOEXEC.BAT ↙ C:\\>TYPE CONFIG.SYS ↙

六、实验结果分析：

5

实验三：Windows98的文件操作

一、实验目的：

1、Windows98提供的几种常用的文件管理功能。

二、实验内容：

1. 格式化软盘。

2. 利用“Windows资源管理器”创建文件夹。 3. 文件的复制、移动和删除。

三、实验用设备仪器及材料：

软件需求：

对于Windows系统，使用Windows98、Windows NT或更新的版本。

硬件需求：

对于硬件方面的要求，建议配置是Pentium III 450以上的CPU处理器，64MB以上的内存，200MB的自由硬盘空军、CD-ROM驱动器、能支持24位真彩色的显示卡、彩色显示器。

四、实验原理图：

6

五、实验方法及步骤：

1、格式化软盘。

将软盘插入驱动器，双击“我的电脑”，用右键点3.5寸盘，选择“格式化”命令，出现“格

式化软盘”对话框，选择“完全”，用左键单击开始，即可格式化软盘。

2、利用“Windows资源管理器”创建文件夹。

打开“开始”菜单，选“程序”、“Windows资源管理器”，双击A盘，单击窗口“文件”菜

单，选“新建”，选“文件夹”。系统自动创建一个叫“新建文件夹”的文件夹，输入“Liming’s Data”即可。以相同的方法在“Liming’s Data”下建立“Homework”“Image”“Sound”文件夹，在“Homework”文件夹下建立“Excel”、“WebPage”、“Word”文件夹，最后在“WebPage”文件夹下建立“Image”、“Sound”、“Text”文件夹。

3、文件的复制、移动和删除。

①文件的复制

打开“Windows资源管理器”窗口，在左窗口中打开C盘上的Windows

文件夹，在右窗口中显示Windows文件夹中的内容；在右窗口中选“Pbrush”，

用鼠标拖动的方法，将该文件拖到D盘根目录下。拖动过程中“Pbrush”文件呈浅颜色。

②文件的移动

在“Windows资源管理器”窗口中打开C盘的Windows文件夹，在右窗口中选“Pbrush”文件，选“编辑”菜单中“剪切”命令；在左窗体中打开软盘驱动器，选“编辑”菜单中的“粘贴”命令，即可将在“Pbrush”文件移动到A盘根目录下。

③删除文件。

选定要删除的“Pbrush”文件，按下键盘上的“Delete”键，（或用鼠标将其拖入“回收站”）在弹出对话框中单击“是”按钮，完成删除操作。

注：放入回收站的文件只是做一个删除标记，如果想使用选“还原”命令即可。 ④按修改日期查找D盘上最近一周被修改过的Word文档。 打开“开始”菜单，选“查找”、“文件或文件夹”命令项，打开“查找”对话框，在“名称和位置”选项卡中，单击“搜索”下拉列表选择D盘，在名称文本框中输入“*.DOC”；打开“日期”选项卡，选“查找所有文件修改时间”单选钮，并将修改时间设为7天，单击“开始查找”即可找到相应的文件。

六、实验结果分析：

7

实验四：Windows98的程序管理

一、实验目的：

1、掌握快捷方式创建的方法，学会利用快捷方式自定义“开始”菜单。 2、Windows98自带应用程序的使用方法。 3、掌握任务栏自定义的几种方式。

二、实验内容：

1. 修改系统时间和日期。 2. 自定义“开始”菜单。 3. 在桌面上创建快捷方式。 4. 自定义任务栏。 5. 用屏幕保护程序。

三、实验用设备仪器及材料：

软件需求：

对于Windows系统，使用Windows98、Windows NT或更新的版本。

硬件需求：

对于硬件方面的要求，建议配置是Pentium III 450以上的CPU处理器，64MB以上的内存，200MB的自由硬盘空军、CD-ROM驱动器、能支持24位真彩色的显示卡、彩色显示器。

四、实验原理图：

8

五、实验方法及步骤：

1、系统时间和日期

双击任务栏“日期/时间”图标，打开“日期/时间属性”对话框，打开“时区”选项卡，选者“北京、重庆、、、”选项；选中“日期和时间”选项卡，设置正确的“年”、“月”、“日”和时钟。

2、 定义“开始”菜单

选“开始”菜单，选“设置”、“任务栏和开始菜单”命令，弹出“任务栏属性”对话框；单击“开始菜单程序”选项卡；蛋鸡“添加”按钮，弹出“创建快捷方式对话框”；通过“浏览”按钮选择“C:\\Windows\\Calc.exe”，单击“下一步”，打开“选择程序文件夹”对话框；单击“新建文件夹”按钮，并命名为“我常用的工具”；单击“下一步”在“选择程序名称”对话框中，输入“计算器”为该快捷方式的名称；单击“完成”按钮，返回“任务栏属性”对话框， 单击“确定”按钮即可。 3、 面上创建快捷方式

在桌面单击鼠标右键弹出快捷菜单，选“新建”、“快捷方式”命令，打开“创建快捷方式”对话框；单击“浏览”按钮，在“浏览”对话框中选C:\\Windows\\Write.exe程序,单击“打开”，返回“创建快捷方式”对话框，单击“下一步”，弹出“选择程序标题”对话框，输入“写字板工具”作为名称，单击“完成”，此时“写字板工具”的快捷方式将出现在桌面上。 4、自定义任务栏

双击“我的电脑”打开C盘中Windows文件夹，找到Explorer程序；选中Explorer图标，用鼠标将其拖到“快速启动”工具栏中，放开鼠标即可。 5、 幕保护程序

在桌面单击鼠标右键，在出现的快捷菜单中选“属性”，打开“显示属性”对话框；选择“屏幕保护程序”选项卡，在系统给出的屏幕保护程序中选择一个程序，单击“预览”，可看到所需程序的动态演示，单击“设置”按钮，可自定义该屏幕保护程序的显示选项；选择“密码保护”复选框，单击“更改”可为“屏幕保护程序”设置密码；利用“等待”微调按钮设置系统启动屏幕保护之前等待的时间。

六、实验结果分析：

9

实验五：顺序程序设计

一、实验目的：

通过上机，熟悉QBASIC的使用环境，熟练掌握程序的编辑、运行、保存、打开、复制、退出等操作，为今后更好的在计算机中使用QBASIC打下基础。要求学生掌握如何进QBASIC的编辑状态，了解各功能键及窗口各部分的功能及使用方法，通过编制简单的顺序程序，掌握程序在计算机中的编辑、运行、保存、打开、退出等过程 二、实验步骤：

1．启动计算机；

2．进入QBASIC编辑状态；

3．掌握修改、删除、插入、复制等编辑技巧。 4．练习：

(1)上机运行如下程序，写出运行结果： READ a, b, c, d x = b + d RESTORE READ a, b, c, d y = b + d

RESTORE 120 READ a, a, a, a x = x + y + a Print x Data 1, 2, 3

120 Data 4, 5, 6 Data 7, 8, 9

End 运行结果：19

（2）写出下列程序的运行结果： a = 1234 b$ = Str$(a) c = Len(b$) Print c

End 运行结果：5

（1） 写出PRINT语句的输出结果： Print 1; 2; 3; 4; 5; Print Print

Print 3, 4, 5, 6

Print 运行结果：1 2 3 4 5， 3 4 5 6

10

实验六：选择结构程序设计

一、实验目的：

掌握选择结构程序设计方法，要求学生掌握用合适的语句实现多分支选择结构的技巧。 二、实验步骤：

1． 启动计算机；

2． 进入QBASIC编辑状态；

3． 按下列公式写出计算函数值的程序。

Y=[ (sinX+cosX)/2 X≥0

(sinX—cosX)/2 X<0

程序清单：

INPUT x

If x < 0 Then y = (Sin(x) - Cos(x)) / 2 If x >= 0 Then y = (Sin(x) + Cos(x)) / 2 Print y End

运行结果：x=0 y=0

x=1 y=0.6

4． 有一分段函数：

0 X≤0

0.15 0

(1) 写出用IF结构实现的程序段。

程序清单：

INPUT x

If x <= 0 Then y = 0

If x > 0 And x <= 10 Then y = 0.15 * x

If x > 10 And x <= 20 Then y = 1.5 + 0.31 * (x - 10) If x > 20 Then y = 1.5 + 0.45 * (x - 20) Print y

End

(2) 若用SELECT CASE结构，写出程序段。

程序清单：

INPUT x Select Case x

11

Case Is <= 0 y = 0

Case Is <= 10 y = 0.15 * x Case Is <= 20

y = 1.5 + 0.31 * (x - 10) Case Is > 20

y = 1.5 + 0.45 * (x - 20) End Select

Print \ End

（3）X输入值分别为0，3，17，50，写出输出结果。输入语句用INPUT。

运行结果：x=0 y=0

x=3 y=0.45 x=17 y=3.67 x=50 y=15

12

实验七：循环结构程序设计

一、实验目的：

掌握选择结构程序设计方法，要求学生会用FOR循环、WHILE 循环编制程序。 二、实验步骤：

1． 启动计算机；

2． 进入QBASIC编辑状态；

3． 编程并运行，把正确的程序存入软盘。

① 求∑n/(n+1),分别用FOR-NEXT 循环和WHILE-WEND 循环实现（其中n取值从1到20）

FOR-NEXT循环程序如下：

For i = 1 To 20 y = y + i / (i + 1) Next i

Print \

End 运行结果：y=17.35464

WHILE-WEND循环程序如下：

n = 1: y = 0 While n <= 20

y = n / (n + 1) + y n = n + 1 Wend

Print \

End 运行结果：y=17.35464

② 从键盘输入一个偶数n，将它分解为两个奇数之和（要所有第一个奇数小于等于第二个

奇数的分解式） 程序如下： INPUT n j = (n / 2) – 1 k = (n / 2) + 1 s = j + k

If j / 2 = Int(j / 2) Then j = j - 1 k = k + 1 End If

Print s; \ 运行结果：n=8 s=3+5

End n=20 s=9+11

13

③ 编写并运行程序，求s=1+2+3+n<1000时，最大的n和s。 n = 1 s = 0

While s + n < 1000 n = n + 1 s = s + n Wend

Print \

End

运行结果：s=989 n=44

14

实验八：循环结构程序设计

一、实验目的：

掌握全部循环语句和结构及多重循环程序设计方法，提高解决问题的能力。

二、实验步骤：

1． 启动计算机；

2． 进入QBASIC编辑状态；

3． 做下列各题并将测试好的程序存入软盘。

（1）编写程序并打印出如下图形。

（A） * （B） *****

*** *****

***** *****

******* ***** ********* *****

（C） ***** （D） *** ***** *****

***** ******* ***** ***** ***** ***

程序： (A)FOR I=1 TO 5 (B)FOR I=1 TO 5 PRINT TAB(35-I); PRINT TAB(30) FOR J=1 TO 2*I-1 FOR J=1 TO 5 PRINT “*”； PRINT “*”; NEXT J NEXT J PRINT PRINT NEXT I NEXT I END END

(C)FOR I=1 TO 5 (D)CLS

PRINT TAB(30+I); FOR I=-3 TO 2

FOR J=1 TO 5 PRINT TAB(35+ABS(I)); PRINT “*”; FOR J=2*ABS(I)+1 TO 7 NEXT J PRINT “*”; PRINT NEXT J NEXT I PRINT END NEXT I END

（2）1！+2！+3！+??10！

15

① 用双重循环实现； ② 用单重循环实现。

双重循环程序： 单重循环程序： For i = 1 To 10 P=1

s = 1 For I=1 To 10

For P=P*I

S=s*j M=M+P

NEXT NEXT I

T=t*s PRINT M

NEXT END

PRINT T

End =4037913

j=1 16

to i j i 运行结果：Ｍ 实验九：函数及子程序

一、实验目的：

会用函数和子程序编写程序，重点掌握子程序的建立和调用方法。

二、实验步骤：

１．启动计算机；

２．进入QBASIC编辑状态；

３．做下列题目，把运行正确的程序存入软盘。

（1）已知 f(t)=(1+e)/( 1+e)

f(x+y)/(f(x)+f(y)) x≤y g(x,y)=

f(x-y)/(f(x)+f(y)) x>y 用DEF语句将f,g定义成函数，求g(2.5,3.4),g(7.3,2.6)，g(5.5,2.8) 程序清单：

DEF fnf(t) = (1 + Exp(-t)) / (1 + Exp(t))

DEF fng(x, y) If x <= y Then

g = fnf(x + y) / (fnf(x) + fnf(y)) Else

g = fnf(x - y) / (fnf(x) + fnf(y)) End If fng = g End DEF

Print fng(2.5, 3.4), fng(7.3, 2.6), fng(5.5, 2.8) End

（2）求100-200之间的全部素数，用子例程检验一个数是否为素数。

程序清单： Cls

For n = 100 To 200 m = n

k = Int(Sqr(m)) f = 1

For i = 2 To k

If m Mod i = 0 Then f = 0 i = m End If Next i

If f = 1 Then Print n; Next n

End

17

-t

t

实验十：数组

一、实验目的：

掌握数组的定义、赋值、输出及数组的排序方法。

二、实验步骤：

1．启动计算机；

2．进入QBASIC编辑状态；

3．做下列题目并把运行正确的程序存入软盘。

（1） 写出下列程序的运行结果： OPTION BASE 1 DIM a(3,5)

FOR I=1 TO 3

FOR J=1 TO 5 STEP 2 A(I,J)=SGN(I-J)*I PRINT A(I,J)

NEXT J 运行结果：0 -1 -1

PRINT

2 -2 -2 NEXT I 3 0 -3 END

（2） 程序填空，完成所要求的功能

输出下面的数表（矩阵） 1 0 0 0 2 1 0 0 2 2 1 0 2 2 2 1 DIM A(4,4) FOR I=1 TO 4 FOR J=1 TO 4 A(I,J)=0

IF I=J THEN A(I,J)=1 IF I>J THEN A(I,J)=2 PRINT A(I,J); NEXT J PRINT

NEXT I END

(3) 编程：利用随机函数产生２０个300至500之间的随机整数，用紧凑格打印出这组数，

每行打印5 个数，把这20 个数按由小到大的顺序用标准格式打印。 程序清单：

18

Cls

Dim a(25) n = 1

While n <= 20

a(n) = Int(Rnd(1) * 200 + 300) Print a(n); n = n + 1 Wend: Print For i = 1 To 20 For j = i + 1 To 20

If a(i) < a(j) Then SWAP a(i), a(j) Next j, i

For i = 1 To 20 Print 运行结果： If i Mod 492 489 474 472 462

Print 458 454 452 441 415 End 406 404 382 374 372 Next 360 357 311 309 302 End

5 = a(i); 0 Then If I

19

实验十一：字符串应用

一、实验目的：

掌握字符型数据的赋值及字符型数组的排序。

二、实验步骤：

1．启动计算机；

2．进入QBASIC编辑状态。

3．做下列题目并把运行正确的程序存入软盘。 （1）Cls

a$ = \b$ = a$

Mid$(b$, 1, 1) = \ For i = 1 To 5 c$ = Mid$(a$, i)

If c$ < b$ Then Print c$; Next i Print

End 运行结果：HELLOWELLOW

（2）下列程序的作用是将输入的任一字符串按相反的次序打印出来，请根据程序需要在 [1]、[2]处填入所需内容。

Input A$

M=[1]

[1]:LEN(A$)

B$= ― ―

For L=M TO 1 STEP –1 C$=MID$(A$,L,1)

B$=[2]

[2]:B$+C$

Print B$ Next L End

(3) 要找出字符串“This is a book!”中“is”出现的全部位置，在［1］，［2］，［3］处填入所需内容。 Cls

a$ = \b$ = \an = Len(a$) bn =[1]

[1]: Len(b$) k = 1 x = 1

20

[2]:And

While (x <= an - bn + 1)[2] (x <> 0) x = InStr(k, a$, [3]) [3]: b$ If x <> 0 Then

Print \ k = x + bn End If

Wend 运行结果：１ ３

End

５ ６

(4)译密码。为使电文保密，可以按一定规律将电文转换成密码，收报人再按约定的规律将其译回原文。按以下规律将电文：

将字母Ａ变成字母Ｅ，a变成e，即每一个字母变成其后的第四个字母，Ｗ变成Ａ，Ｘ变成Ｂ，Ｙ变成Ｃ，Ｚ变成Ｄ。非字母字符不变。如“China!”转换“Glmre!”。 请编程。

Input A$ N=Len(A$) For i=1 to n C$=MID$(A$,i,1)

If(A$>=‖A‖ and C$<=‖Z‖)then a=Asc(C$)+4

If(a>90 and a<96)or a>122 then a=a-26 End if C$=CHR$(a)

MID$(A$,i,1)=C$ End if Next i Print A$ End （5）有如下12个国家THAILAND,SINGAPORE,LOAOS,BURMA,CHINA,INDIO,NEPAL,JAPAN,KOREA,MONG--OLIA,EGYPT,INDONESIA在我国进行某项体育比赛,依规定入场式时除东道主走在最后外,其它国家依国名的英语字母顺序排列,请编程完成之。

DIM A$(12) For k=1 to 11 Read A$(k) Next k k=11

For i=1 to k-1 For j=i+1 to k-i

21

If A$(i)>A$(j+1) then Swap A$(j),A$(j+1) Next I

For N=1 to 12 Print A$(N) Next N

Data THAILAND,SINGAPORE,LOAOS,BURMA,CHINA,INDIO,NEPAL,JAPAN,

KOREA,MONGOLIA,EGYPT,INDONESIA End

22

实验十二：文件应用

一、实验目的：

掌握顺序文件的建立与使用方法。

一、 实验步骤：

１． 启动计算机；

２． 进入QBASIC编辑状态；

３． 做下列题目并把运行正确的程序存入软盘。

（1） 写出程序运行结果并上机验证。

a$ = \ Open \

For i = 1 To 10 a$ = Chr$(64 + i) + a$

Print #1, a$ Print a$ Next I Close End

运行结果：A

B A

C B A

D C B A

E D C B A

F E D C B A

G F E D C B A

H G F E D C B A

I H G F E D C B A

J I H G F E D C B A

（2） 填充语句将程序完整，并观察运行结果。已知顺序文件ABC.DAT中存有十个字符串数据，输出每一个字符串的第一个字母及字符串长度。

OPEN ―ABC.DAT‖ FOR OUTPUT AS #1 FOR i=1 TO 10

INPUT name$

a$=MID$(name$,1,1) b=LEN(name$) PRINT a$,b NEXT I

CLOSE

23

END

（3） 顺序文件ABC.DAT如前，将其中各字符串中大小写字符转换成小写字符，存入新顺序文件ACB1.DAT中。

A$= ― ‖

OPEN ―ABC.DAT‖ FOR input AS#1 OPEN ―ABC1.DAT‖ FOR output AS#2 FOR I=1 TO 10

INPUT #1,A$ A$=LCASE$(A$) PRINT #2,A$ PRINT A$ NEXT I CLOSE END

24

本文来源：https://www.bwwdw.com/article/49w5.html