BASIC练习题
11-08 12:39:07软件技巧
浏览次数:980次
标签:软件技巧大全,http://www.duosi8.com
BASIC练习题,
10 DIM M(3,3)
20 FOR I=1 To 3
30 FOR J=1 To 3
40 Read M(I,J)
50 NEXT J
60 NEXT I
70 FOR I=2 TO 3
80 FOR J=1 TO 2
90 Let K=M(I,J)
100 Let M(I,J)=M(J,I)
110 Let M(J,I)=K
120 PRINT M(I,J)
130 NEXT J
140 NEXT I
150 DATA 9,8,7,6,5,4,3,2,1
160 ENDA. 5 B. 7 C. 4 D. 8
2.下述程序(设N=10)运行后结果为 (68) 。
10 INPUT N
15 PRINT
20 DIM M(N)
25 LET Y=0
30 FOR I=1 TO N
35 READ X
40 IF X<0 THEN GOSUB 500
45 NEXT I
50 FOR K=1 TO Y
55 PRINT M(K);
60 NEXT K
65 DATA 1,-1.1,2,-2.2,3,-4,5,-2.5,4,-8,-7
70 END500 LET Y=Y+1510 LET M(Y)=-X^2520 RETURNA. -1 -4 -6 -25 -16 B. 1.21 4.84 16 6.25 64C. 1 4 6 25 16 D. -1.21 -4.84 -16 -6.25 -64
10 DIM M(3,3)
20 FOR I=1 To 3
30 FOR J=1 To 3
40 Read M(I,J)
50 NEXT J
60 NEXT I
70 FOR I=2 TO 3
80 FOR J=1 TO 2
90 Let K=M(I,J)
100 Let M(I,J)=M(J,I)
110 Let M(J,I)=K
120 PRINT M(I,J)
130 NEXT J
140 NEXT I
150 DATA 9,8,7,6,5,4,3,2,1
160 ENDA. 5 B. 7 C. 4 D. 8
2.下述程序(设N=10)运行后结果为 (68) 。
10 INPUT N
15 PRINT
20 DIM M(N)
25 LET Y=0
30 FOR I=1 TO N
35 READ X
40 IF X<0 THEN GOSUB 500
45 NEXT I
50 FOR K=1 TO Y
55 PRINT M(K);
60 NEXT K
65 DATA 1,-1.1,2,-2.2,3,-4,5,-2.5,4,-8,-7
70 END500 LET Y=Y+1510 LET M(Y)=-X^2520 RETURNA. -1 -4 -6 -25 -16 B. 1.21 4.84 16 6.25 64C. 1 4 6 25 16 D. -1.21 -4.84 -16 -6.25 -64
,BASIC练习题
- ·上一篇:BIOS密码的软解法
- ·下一篇:ASCII扩展码255的使用技巧二例
《BASIC练习题》相关文章
- › BASIC语言调用汇编语言的技巧
- › BASIC练习题
- › BASIC语言的程序调试方法
- › 使用BASIC的集成环境
- › 有关BASIC的语句行错误
- › BASIC疑难详解
- › 用BASIC语言解决逻辑推理题目
- › 用BASIC语言实现的动画技术举例
- › Quick Basic 4.5自开发功能应用两例
- › 用文字处理软件编辑、修改BASIC源程序
- › 如何纠正BASIC编程中的错误
- › Vista Home Basic 和 Home Premium 的分别?
- 在百度中搜索相关文章:BASIC练习题
tag: 练习题 软件技巧,软件技巧大全,电脑学习 - 软件技巧
热门推荐
- · 为何QQ总弹出安全登录验证2则
- · 多媒体升级时常见故障的处理
- · 利用硬盘驱动器号制作防扩散FOXPRO程序
- · 高速视频转换借力CUDA
- · 在KMPlayer中手动切换解码器
- · 如何突破IP加MAC绑定
- · 如何让ACDSee成为默认的图片浏览器
- · SnagIt连续抓以多个窗口
- · SnagIt直接截取灰度图片
- · Nero快速制作精美的光盘封面
- · 完美卸载XP快速卸载顽固软件
- · VoptXP测试驱动器性能
- · VirturlDriver让虚拟光驱开机时自动加载
- · 通过递归调用来搜索文件
- · AutoCAD复制粘贴图纸导致死机
- · 监控软件导致QQ无法登录
- · 提高WindowsXP启动速度的方法
- · Office 2007无法正常卸载怎么办
- · 如何用批处理一次建立或删除多个目录
- · 教你Windows百毒不侵的13个妙招
- · ATI显卡在线看电影时花屏应该如何解决