qbasic编程题:初二一班要竞选班长,有五位候选人,分别给五个人编号为1,2,3,4,5。经民主投票……
应用程序分成 GUI(界面)程序和控制台(字符)程序。大多数.NET的程序都支持控制台编程。和高级语言的基本代码差不多啊。
还有的就是纯代码的文本文件,.bat和.cmd,代码说明一查一大堆。
还有一种,已经用得不多了,就是Turbo C/QBasic之类需要编译后运行的控制台编程。
计算机等级没有一级证书可以直接参加二级考试的。
全国计算机等级考试(National Computer Rank Examination,以下简称 NCRE),是经原国家教育委员会(现教育部)批准,由教育部考试中心主办,面向社会,用于考查非计算机专业应试人员计算机应用知识与技能的全国性计算机水平考试体系。
NCRE 考试采用全国统一命题,统一考试的形式。所有科目每年开考两次。一般为 3 月倒数第一个周六和 9 月倒数第二个周六,考试持续 5 天。
考生不受年龄、职业、学历等背景的限制,任何人均可根据自己学习情况和实际能力选考相应的级别和科目。考生可携带有效身份证件到就近考点报名。每次考试报名的具体时间由各省(自治区、直辖市)级承办机构规定。
自 1994 年开考以来,NCRE 适应了市场经济发展的需要,考试持续发展,考生人数逐年递增,至 2013 年底,累计考生人数超过 5422 万,累计获证人数达 2067 万。
目前《全国计算机等级考试考试大纲(2013 年版)》为最新版本考纲,2014、2015 年均沿用此纲。
2015 年 NCRE 安排三次考试,考试时间分别为 3 月 21 日-24 日、9 月19 日-22 日、12 月 12 日-13 日,其中 3 月和 9 月考试开考全部级别全部科目,12 月只开考一级和二级,各省级承办机构根据实际情况确定是否开考 12 月的考试。
FOR K=1 TO 20
READ N
A(N)=A(N)+1
NEXT K
MAX=0
HSZ=0
FOR K=1 TO 5
PRINT K;"号候选人得票数为:";A(K)
IF A(K)>MAX THEN
MAX=A(K)
HSZ=K
END IF
NEXT K
PRINT "获胜者为第";HSZ;"号候选人","得票数为:";MAX
DATA 1,3,1,4,5,3,2,1,5,3,1,4,2,3,4,2,3,1,3,5
END
没有难度吧,别偷懒了,自己设计吧
有会BASIC的帮忙做几道很简单的题,谢谢
1.\/\/ sumj奇数和 sumo偶数和 j奇数个数,o偶数个数 sumj=0:sumo=0:o=0:j=0 for i=1 to 12 input n if n mod 2=1 then sumj=sumj+n:j=j+1 else sumo=sumo+n:o=o+1 next i print sumj;j,sumo;o 2.dim a(3,3)for i=1 to 3 for j=1 to 3 input a(i,j)next...
Visual Basic程序设计 选择题4 求大神指导~~
1-每个 VB 书籍都讲到 IDE 时,首先是标题栏,然后是菜单栏,然后是工具栏,好像没有讲到状态栏的,所以可能选 C,但是状态栏也是 IDE 的一部分啊,倒是可以不显示菜单栏、工具栏,没法不显示状态栏吧?2-A,先算加减再算关系,所以左边等于11,右边等于-7,所以得到 False。其他为 True。3-...
QBasic编程题:装球,设8个盒子,分别编1,2……同时13个小球进将13个小球...
2).假设这几只箱子里的球都是它的编号个数,如第只盒子里放1个球,第7只盒子里放7个球,算出总和,如要放5只盒子,就假设放:1+2+3+4+5=15只球,再用15-(真正要放入球的个数)13=2,得到2,就倒过来,把第4只盒子加1,再把第3只盒子加1,这样球就用完了,得到1,3,4,5 3).输出 --- 1...
用Qbasic做下面的题,做一下讲解
CLS OPEN "apple.in" FOR INPUT AS #1 OPEN "apple.out" FOR OUTPUT AS #2 DIM a(10)FOR i = 1 TO 10 INPUT #1, a(i)NEXT i INPUT #1, a FOR i = 1 TO 10 IF a < a(i) THEN IF a + 30 >= a(i) THEN s = s + 1 ELSE s = s + 1 END IF NEXT i PRINT #2...
Qbasic下的编程问题
写入以下程序可以求出X的大概值:CLS DO X=X+0.0000001 LOOP UNTIL ((1+X)^6-X-1)\/X=8 OR X >=1 PRINT X END 答案是:X≈0.1609931 程序输出可能是: .1609931 不用担心QBASIC有问题,这是它的排版系统的原因.它会自动把小于1大于0的小数的第一个0省略,同样,前面的0.0000001也...
Qbasic问题!急求答案!
=1:a(2)=2 '斐波那契数列的前两项 for i=3 to n a(i)=a(i-1)+a(i-2)next i '这段循环是要求斐波那契数列的前n项 for i=2 to n s=s+a(i)\/a(i-1)next i '把每个加数都加上,格式为一项除以它的前一项。print s '打印得数 end 现在 s=s+a(i)\/a(i-1)也行了 ...
简单的一些QuickBASIC题目的编程。。。急!!!
第一问题:X=1 PRINT X*3\/2 第二个问题:FOR i = 1 TO 100 a = i - 2 b = i + 2 c = i \/ 2 d = i * 2 IF a + b + c + d = 45 THEN PRINT a, b, c,NEXT i END 第三个问题:PRINT (100 + 20 - 112) \/ 4 ...
visual basic程序,题目如图所示,求帮忙写出程序代码
Private Sub Text1_KeyPress(KeyAscii As Integer)Static n If KeyAscii > 48 And KeyAscii < 58 And KeyAscii Mod 2 = 1 Then n = n + 1 If KeyAscii = 13 Then Text2 = n End Sub
求问visual basic 这道题到k=4时 i=1 j=1那接下来要怎么执行 是执行第...
k=1,执行条件后:i=1,j=3,a(1, 3)=2 k=2,执行条件前:i=1,j=3,a(1, 3)=2 k=2,执行条件后:i=2,j=1,a(2, 1)=3 k=3,执行条件前:i=2,j=1,a(2, 1)=3 k=3,执行条件后:i=1,j=1,a(1, 1)=4 k=4,执行条件前:i=1,j=1,a(1, 1)=4 k=4,执行条件后...
BASIC 函数问题
intx%=int((47-41+1)*Rnd+41)intx是一个整数变量,%表示是整型。
逄衫阿伐: 第一道: CLS FOR i = 1 TO 5 PRINT TAB$(30 - i); 'y FOR j = -(i - 1) TO i - 1 PRINT USING "#"; i - ABS(j); NEXT j PRINT NEXT i END 第二道: CLS FOR i = 1 TO 5 PRINT TAB$(30 - i); 'y FOR j = -(i - 1) TO i - 1 PRINT USING "#"; 5 - i + 1; NEXT j PRINT NEXT i END 你应该是要编对称的吧?如果不是,就把加“y”的那一行删掉.
青田县15791221205: QBasic编程题:装球,设8个盒子,分别编1,2……同时13个小球进将13个小球装盒中去.?
逄衫阿伐: 方法如下: 1).算出最多要用多少箱子,如要放入13只球,就要分别放在4只盒子里. (如下程序算法) 2).假设这几只箱子里的球都是它的编号个数,如第只盒子里放1个球,第7只盒子里放7个球,算出总和,如要放5只盒子,就假设放: 1+2+...
青田县15791221205: 求QBASIC的3道编程题答案(周四就要用)求高手帮我做一下下面三道编程题1.设有现金Po,存入银行年利率为R,则N年后本息为多少.公式为P=Po*(1+R)... - ?
逄衫阿伐:[答案] 1.INPUT "存入金额=";P0INPUT "年利率=";RINPUT "存款期限=";NP=P0*(1+R)^NPRINT "本息合计:";PEND2.INPUT "里程";SIF SnPRINT "n!=";SEND(2)用WHILE语句INPUT "n=";ni=1S=1WHILE i>nS=S*ii=i+1WENDPRINT ...
青田县15791221205: 用Qbasic编写的一个程序问题 - ?
逄衫阿伐: QBASIC计算不了20!,结果太大了,出来不准确的.完整的程序如下:s = 0 n = 1 FOR i = 1 TO 20 n = n * i s = s + n NEXT i PRINT s 计算的结果为 2.561327E+18,如果修改循环,计算到3结果为9、计算到4结果33,这些都是正确的.
青田县15791221205: 跪求Qbasic编程高人写出以下几简单题Qbasic编程过程!!~~万谢~ - ?
逄衫阿伐: 4.将键盘输入的10个数按从大到小的顺序排列并输出.clsdim a(10)print "please input num"for i = 1 to 10input a(i)next ifor j = 1 to 10max = a(j)for i = j to 10if a(i)>max then swap a(i),maxnext i next j clsfor i = 1 to 10print a(i),next i end5.输入一年份...
青田县15791221205: QB编程题解答?
逄衫阿伐: Dim a(100) As Double a(0) = 0 a(1) = 1 a(2) = 2 For i = 3 To 99 a(i) = a(i - 3) + a(i - 2) + a(i - 1) Next For i = 0 To 99 If i Mod 5 = 0 And i > 0 Then Print Print Tab((i Mod 5) * 25); a(i); Else Print Tab((i Mod 5) * 25); a(i); End If Next
青田县15791221205: QBasic编程题:有数列8,9,7,6,3后一个数是前两个数的和的一位数,求前100项之和 - ?
逄衫阿伐: cls a=8 b=9 s=0 for I =1 to 100 c=(a+b)mod 10 s=s+c a=b b=c next I print "前100项之和为";s end
青田县15791221205: QBASIC编程问题 -- 编程爱好者 - ?
逄衫阿伐: i=1,j=1-1i=2,j=1,2-2......i=10,j=1,2,3,4,5,6,7,8,9,10-...
青田县15791221205: 求Qbasic编程?
逄衫阿伐: 刚刚好,最近我们刚做了这么一题,一摸一样的 答案如下: INPUT “a,n=”;a,n s=o t=1 DO s=s+2/9*(10^t-1) t=t+1 LOOP UNTIL t>n PRINT s END 肯定对了,我试过的
青田县15791221205: 向大家请教1道qbasic编程题?
逄衫阿伐: CLS INPUT S$ L = LEN(S$): j = 1 DIM D$(L), E(L) FOR i = 1 TO L A$ = MID$(S$, i, 1) IF A$ = "+" OR A$ = "-" OR A$ = "*" OR A$ = "/" OR A$ = "^" THEN D$(j) = A$ E(j) = VAL(B$) j = j + 1 B$ = "" ELSEIF A$ >= "0" AND A$ <= ...