C语言上机考试一题！

[驾校模拟考试科目一题]科目一模拟的题目一般都是从题库中提取出来的，模拟考试通过没问题，那么考试应该也没太多问题了。 1、科目一在驾考学习软件中是有题库的，一般一千多道题目。 2、题库学习可以先...+阅读

C语言上机考试一题！

我先将你的帖子复制下，然后加上我的注释，希望你能看懂#include #include #define N 6//定义一个结构体node，并从定义为NODE类型typedef struct node{ int data; struct node *next;}NODE；//对链表进行排序，这是这个程序的关键void fun(NODE *h){NODE *p,*q; int t; p=h; while(p)//外循环，用于循环每个节点，p为空，则跳出循环 { q=p→next；//将当前节点的下个节点指针赋给q while(q)//内循环则是从节点q开始，如果下个节点的值小于当前节点q的值，则将两者的值替换，如果你学过冒泡排序，就不难看出这里的原理和冒泡是一样的，只要容易弄错的是这里只是交换两个节点的值，但没有交换指针的值，比如说第一次if中判断p的data是不是大于q的data，如果成立，则把p的值和q的值替换，这时到下次循环，比较的就是p的值（就是第一次q的值）和q的下一个节点的值，所以当内循环做完后，就会把链表中最小的值放到第一个节点中，然后从第二个节点开始第二次外循环 { if(p→data>q→data) { t=p→data; p→data=q→data; q→data=t; } q=q→next; } p=p→next； }}//根据传入的数组创建一个链表NOTE *creatlist(int a[]){NODE *h*p,*q; int i; h=NULL; for(i=0;i { q=(NODE*)malloc(sizeof(NODE)); q→data=a[i]; q→next=NULL; if(h==NULL) h=p=q; else {p→next=q;p=q;} }return h；}//依次输出链表的每个节点void outlist(NODE *h){ NODE *p; p=h; if(p==NULL) printf(＂THE LIST IS NULL!\n＂); else { printf(＂\nHead＂); do { printf（＂→%d＂,p→data）; p=p→next; }while(p!=NULL); printf（＂→End\n＂）; }}main(){ NODE *head; int a[N]={0,10,4,2,8,6}; head=crealist(a); printf(＂\nThe original list:\n＂); outlist(head); fun(head); printf(＂\nThe list after inverting:\n＂); outlist(head);}

急需上机考试题库

2007年 Excel2000上机操作考试1.电子表格Excel的基本操作，按考试大纲要命题。2.考试方式电子表格Excel按上机考试题的要在真实环境下操作，Excel版本必须为2000，最后把操作的结果到考试盘（或上传到指定的文件夹）。注意：考生完成考试后，直接将文件复制到光盘，不得再次打开文件查看。3.样题样题一初一级技能竞赛成绩表班别金牌银牌铜牌奖牌数目团体总分一班 2 1 3 二班 3 3 1 三班 5 2 4 四班 0 4 2 打开指定文件夹中的EX5.xls文件，即技能竞赛成绩表题目一：输入各班获得奖牌数目，将“初一级技能竞赛成绩表”的颜色设置为深红，字体为隶书。题目二：用SUM函数统计名班获得的奖牌数目。统计团体总分。计算公式：团体总分=金牌*4+银牌*2+铜牌。题目三：将A2到F6的外边框线设置为双实线，内边框线设置为单实线，颜色为黑色。

题目四：利用班别、金银铜奖牌数目（A2:D6）画出三维折线图。样题二学号姓名性别语文数学英语总分平均分107 陈壹男 74 92 92 109 陈贰男 88 80 104 111 陈叁男 92 79 116 113 林坚男 86 78 106 128 陈晓立女 108 82 78 134 黄小丽女 102 88 120 打开指定文件夹中的EX8.xls文件，进行下列操作：题目一：统计各人总分，统计各科平均分。题目二：按性别进行分类汇总，统计不同性别的语、数、英平均分。题目三：按数学成绩从低到高分排序。题目四：利用EXCEL的自动筛选，筛选出所有语文成绩大于80，数学成绩大于等于80的所有姓陈的学生。...

vb上机题库

VB上机练习题： 1. 输入圆的半径，圆的周长和面积。2. 输入三角形的三条边，三角形的面积。3. 交换两个变量a和b的值。4. 输入三个数，输出其中最大的数。5. 一个笼子里有鸡和兔共35只，脚94只，鸡和兔各有几只？6. 编程100以内能被3带队的所有整数。7. 输入长方体的长、宽、高，长方体的体积和表面积。8. 从键盘上输入一个三位整数，然后将它反向输出。9. 编写程序平面中两点间的距离。10. 编写一元二次方程的解程序，要能够判断方程是否有根，如果没有根则给出相应的提示信息。11. 输入一个数n，判断它是否为素数。12. 已知S=1+2+3+……+N，编写程序，找出一个最大整数N，使得S0）:＂)) Loop Until r >0 Print ＂圆半径为：＂； r Print ＂圆的周长是：＂； 2 * 3.1415926 * r Print ＂圆的面积为：＂； r * r * 3.1415926 End Sub

2、 Private Sub Command1_Click() Dim 边长

（3） As Single For i = 1 To 3 '输入三个边长，不得小于等于0 Do 边长（i） = Val(InputBox（＂请输入三角形的第＂ & i & ＂条边的边长（>0）:＂)) Loop Until 边长（i） >0 Next i For i = 1 To 2 '排序 For j = i + 1 To 3 If 边长（i）

（1） >边长

（2） + 边长

（3） Then '两短边的和小于长边，不能构成三角形！MsgBox ＂你输入的数据：＂ & 边长

（1） & ＂、＂ & 边长

（2） & ＂、＂ & 边长

（3） & ＂不能构成三角形！＂ Exit Sub End If Print ＂三角形三边为：＂；边长

（1）；边长

（2）；边长

（3） s = （边长

（1） + 边长

（2） + 边长

（3）) / 2 Print ＂三角形面积为：＂； Sqr(s * (s - 边长

（1）) * (s - 边长

（2）) * (s - 边长

（3））） '这个公式，你自己再看一下，我记不准了 End Sub

3、前面已经有了

4、前面已经有了

5、 Private Sub Command1_Click() Do 头 = Int(InputBox（＂请鸡兔的头数（>0）:＂)) Loop Until 头 >0 Do 脚 = Int(InputBox（＂请鸡兔的脚数（大于等于2倍的头数，且为偶数）：＂）） Loop Until （脚 >= 2 * 头） And （脚 Mod 2 = 0）兔 = （脚 - 2 * 头） / 2 Print ＂鸡兔同。其首＂ & 头 & ＂，其脚＂ & 脚 & ＂。＂ Print ＂兔的数量一共有：＂；兔 Print ＂鸡的数量一共有：＂；头 - 兔 End Sub

6、 “能被3带队”不知道是啥意思

7、 Private Sub Command1_Click() Do 长 = Int(InputBox（＂请输入长（>0）:＂)) Loop Until 长 >0 Do 宽 = Int(InputBox（＂请输入宽（>0）:＂)) Loop Until 宽 >0 Do 高 = Int(InputBox（＂请输入高（>0）:＂)) Loop Until 高 >0 Print ＂长方体长宽高分别为：＂；长；宽；高 Print ＂其体积为：＂；长 * 宽 * 高 Print ＂其表面积为：＂； 2 * （长 * 宽 + 长 * 高 + 宽 * 高） End Sub

8、 Private Sub Command1_Click() Do 数 = Int(InputBox（＂请输入一个三位整数（>0）:＂)) Loop Until 数 >99 And 数

9、已知条件不明。

10、 Private Sub Command1_Click() Dim a

(2) As Single For i = 2 To 0 a(i) = Val(InputBox（＂请输入＂ & i & ＂次项的系数（2次项系数不得为零）：＂）） Next i If a

(2) = 0 Then MsgBox ＂二次项系数为零，哪里还叫二次方程！＂ Exit Sub End If delta = a

(1) * a

(1) - 4 * a

(2) * a(0) If delta

(2); ＂X^2＂; If a

(1) >0 Then Print ＂+＂; a

(1); ElseIf a

(1)

(1); End If If a(0) >0 Then Print ＂+＂; a(0); ElseIf a(0)

(1) / 2 / a

(2) Else delta = Sqr(delta) Print ＂有两个实数解：＂ Print ＂X1=＂; (-a

(1) - delta) / 2 / a

(2) Print ＂X2=＂; (-a

(1) + delta) / 2 / a

(2) End If End Sub

11、 Private Sub Command1_Click() Dim 质数 As Boolean Do a = Int(InputBox（＂请输入要判断的数（>2）:＂)) Loop Until a >2 质数 = True For i = 2 To Sqr(a) If a Mod i = 0 Then 质数 = False Exit For End If Next i If 质数 Then Print a；＂是指数。＂ Else Print a；＂不是质数。可以被＂； i；＂整除＂ End If End Sub

12、 Private Sub Command1_Click() n = 0 Do n = n + 1 s = s + n Loop Until s >30000 Print ＂n=＂; n - 1 Print ＂s = ＂; s - n End Sub

13、 Private Sub Command1_Click() For i = 4 To 1 Step -1 Print Tab(5 - i); For j = 1 To 2 * i - 1 Print ＂*＂; Next j Print Next i End Sub