第一篇：VB学习材料
《VB期末范围题总汇》
1． 求随机10个整数的最大值、最小值、平均值以及和； Dim a(1 To 10)
Private Sub Command1_Click()
Randomize
Picture1.Print “产生的随机数为：”
For i = 1 To 10
a(i)= Int(Rnd * 99 + 1)
Picture1.Print a(i);
Next i
Picture1.Print
End Sub
Private Sub Command2_Click()
Dim max, min, ave
max = a(1)
min = a(1)
ave = 0.1 * a(1)
For i = 2 To 10
If a(i)> max Then max = a(i)
If a(i)< min Then min = a(i)
ave = ave + 0.1 * a(i)
Next i
Picture1.Print “最大数为：”;max
Picture1.Print “最小数为：”;min
Picture1.Print “平均数为：”;ave
End Sub
2.求水仙花数
Private Sub Form_Click()
Dim a, b, c As Integer 'a(个)b(十)c(百)For a = 0 To 9
For b = 0 To 9
For c = 1 To 9
If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then MsgBox 100 * c + 10 * b + a
End If
Next c
Next b
Next a
End Sub
3.百元买百鸡问题；
Option Explicit
Const a = 5, b = 3, c = 1
Private Sub Form_Activate()
Dim i As Integer, j As Integer, k As Integer, n As Integer For i = 1 To 100
For j = 1 To 100
For k = 1 To 100
If i * a + j * b + k * c = 100 Then
n = n + 1
List1.AddItem “ 公鸡：” & i & “ 母鸡：” & j & “ 小鸡：” & k End If
Next: Next: Next
MsgBox “共有组合：” & n
End Sub
求1000以内的所有完数
一个按钮里调用的过程
Private Sub Command1_Click()
OutputWanNumber 1000
End Sub
4.'求完数的过程
Private Sub Form_Click()
Dim i, j As Integer
For i = 4 To 100
temp = 1
For j = 2 To i / 2
If i Mod j = 0 Then
temp = temp + j
End If
Next j
If temp = i Then
Print i
End If
Next i
End Sub
5.求各位数字之和
input a:'输入任意数
do
b=a mod 10:'取a的末位数
sum=sum+b:'求和
a=a 10:'去掉末位数
loop until a=0
print “sum=”;sum:'输出
end
（dim n as string
input n
for i = 1 to len(n)
sum=sum+val(mid(n,i,1))
next i
print sum）
6.求最小公倍数
Private Sub Form_Load()
Form1.AutoRedraw = True
Dim n1%, m1%, m%, n%, r%
n1 = InputBox(“输入n1”)
m1 = InputBox(“输入m1”)
If m1 > n1 Then '为了求最小公倍数，增加m,n变量
m = m1: n = n1
Else
m = n1: n = m1
End If
Do
r = m Mod n
If r = 0 Then Exit Do
m = n
n = r
Loop
Print n1;“,”;m1;“的最大公约数为”;n
Print “最小公倍数=”, m1 * n1 / n
End Sub
7.求逆序数（感觉题目类型太多）
8.级数有限项求和问题（题目类型太多）
9.求质因子问题
Private Sub Command1_Click()
Dim N As Integer, I As Integer
N = Val(InputBox(“请输入2的整数:”))
I = 2
Do
If N Mod I = 0 Then
Print I;
N = N I
Else
I = I 1
End If
Loop While N 1
End Sub
10.字符统计
Option Base1
Option Explicit
Private Sub Command1_Click()
Dim i as integer，A(26)as integer，n as integer
Dim S as string*1,Strl as string
Strl=Text1
n=Len(Strl)
For i=1 To n
S=Mid(Strl,i,1)
If UCase(S)>=”A” And UCase(S)<=”Z” Then
A(Asc(UCase(S))-64)+1
End If
Next i
For i=1 To 26
List1.Additem Chr(64+i)& “:” & A(i)
Netx i
End Sub
Private Sub Command_Click()
End
End Sub
第二大题
1.判定素数过程
Function isprime(Num As Long)As Boolean
If Num < 2 Then isprime = False: Exit Function
Dim i As Long
For i = 2 To Sqr(Num)
If(Num Mod i)= 0 Then
isprime = False
Exit Function
End If
Next i
isprime = True
End Function
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 1000
If isprime(i)Then
Print i
End If
Next i
End Sub
2.求最大公约数过程；
Function Max公约数(A As Long, B As Long)'求出两个数的最大公约数 Dim X As Long, Y As Long, K As Long
X = IIf(A >= B, A, B)'x存入最大值
Y = IIf(A <= B, A, B)'y 存入最小值
Do '辗转相除法
K = X Mod Y: If K = 0 Then Exit Do
X = Y: Y = K
Loop
Max公约数 = Y
End Function
3.冒泡排序过程
Private Sub Command1_Click()
Dim a(9)As Integer
Dim i As Integer
For i = 0 To 9
a(i)= InputBox(“输入整数”)
Next
Sort a
For i = 0 To 9
Print a(i)
Next
End Sub
Private Sub Sort(ByRef a()As Integer)Dim i As Integer
Dim j As Integer
Dim t As Integer
For i = LBound(a)+ 1 To UBound(a)For j = UBound(a)To i Step-1
If a(j1)
a(j-1)= a(j)
a(j)= t
End If
Next
Next
End Sub
4顺序查找过程
Private Sub Command1_Click()
Dim i, j, t, a(1 To 10)
Randomize
Print “原数组:”
For i = 1 To 10
a(i)= Rnd * 10
Print “a(” & i & “)=” & a(i)& Space(2), If i Mod 2 = 0 Then Print
Next i
For i = 1 To 9
For j = i + 1 To 10
If a(j)< a(i)Then
t = a(i)a(i
第二篇：VB学习心得体会
VB学习心得体会
VB学习>心得体会
VB是一门程序设计语言，也需要一定的英语基础。VB既能充实我们的生活，武装我们的头脑，锻炼我们的意志，又能在以后需要的时候成为帮助我们成功的推进动力。对于VB的学习，我个人觉得兴趣爱好占一部分，更重要的还是自身的努力程度和平时的学习习惯。下面，我也简要介绍一下我对于VB课程的看法。
VB程序设计的入门学习并不难，但需要在学习的过程中掌握一个良好的程序设计习惯，这时，做好课前预习，上课认真听讲，下课认真消化所学内容显得十分重要。上机实验课努力完成老师留的课堂作业，能加深对所学知识点的理解和运用。能做到这些，也是积极主动学习的表现。
对于VB,每一个VB老师都是一个严谨的老师，要求严格是应该的。刚学习VB,严格要求格式，这是熟练之后能随意运用的基础，也是学好VB课程的重要前提。在课上，应该注意老师所提到的每一点要求，上机课认真完成老师布置的作业，注意每一个细节，争取做到零失误。
正式踏入VB课之后你会发现，编写程序代码其实是一件很有意思的事情。每一个程序当你完成时你都会有一种成就感。遇到问题时，程序代码可能会让很多人无从下手，建议大家多看别人设计好的程序代码，包括教材上的例题程序。读懂别人的程序后，要想他为什么这么设计，学到别人优秀的东西。积极跟同学讨论程序问题，在大家一起研究出一个正确的程序时，高兴的同时也促进了彼此的友情。
细节决定成败，VB程序设计的成败正是在于细节。纸上得来终觉浅，自己调试程序的时候总会犯很多错误，比如'文件未找到''下标越界'等等，都是平时没有机会解决和一些曾经被忽视的问题，为了找到代码中错误和不符合要求的地方，标点符号都不能放过。细节决定成败，一个小小的分号也会起着扭转乾坤的作用。我个人，经常出现问题的地方在于与滚动条有关的事件。与滚动条有关的事件主要是Scroll和Change.当在滚动条内拖动滚动框时会触发Scroll事件，但注意单击滚动箭头或滚动条时不发生Scroll事件，而改变滚动框的位置后会触发Change事件。Scroll事件用于跟踪滚动条中的动态变化，Change事件则用来得到滚动条的最后的值。不注意时，容易忽略Scroll事件与Change事件的区别，出现编程的问题不容易得到解决。VB中，这样的小细节比比皆是，一定要注意细节才能学好VB这门课。
我对VB的兴趣从何而来呢？从我对电脑的喜爱说起。我参加过一个学校的计算机>培训班，之后在没事的时候自己还设计个ppt,photoshop什么的。大学加入广播站的网络技术部之后也学习了不少关于AU,AE,视频方面的制作。学习VB,我觉得能加深我对计算机已有认识的理解，能促进我对计算机的喜爱热情的提高，同时又能增长计算机知识。这么好的一门课，我为什么不好好学呢？兴趣来自于生活，来自于习惯，以来自于自身对VB这门课的看法。
通过对VB的学习，对VB语言有了初步的认知，对程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经常看同学设计好的程序代码，然后想想别人为什么这么设计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，VB课程对我的计算机水平起到了推动的作用。对VB更多的是喜爱，那一点点，是宠爱。
第三篇：VB学习心得体会
篇一：vb学习的心得体会 vb学习的心得体会 ————刘师桐
这学期选修了vb这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心得体会。
vb全称为visual basic，是微软公司推出的可视化编程工具msdn之一，是目前世界上使用最广泛的程序开发工具。vb提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且vb提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以vb学起来简单，用起来方便。因此，我学了vb，并有了如下收获：
1.富业余生活。业余时间到处游手好闲的身影不见了，没事我肯定一动不动的坐在电脑面前摆弄vb。是啊，想想以前，真是一无是处，一会找人砍大山，一会找人打游戏，一会就傻傻的坐在小板登上两眼无光，似是厌倦了红尘。现在生活有了寄托，是vb给了我无穷的快乐，让我乐此不疲。
2、多了一门技术。vb是一门计算机编程语言，也算是一项知识含量较高的东西。采用的是可视化程序设计。学习的这段时间，我明白了万事开头难，刚刚开始，遇到些困难没关系，慢慢来。编程是一个不断学习，不断积累的过程，编程的乐趣也正是存在于学习的过程中。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。多看多练是我独门绝技，一般人我不告诉他：多看------别人的代码，即使看不懂也没关系，可以把这些代码输入到机子里运行，然后根据运行结果去体会程 序的思路和用途。
3、锻炼意志。编程可不是一项轻松的活，尤其是一个人开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许就是因为一个符号或一个字母，你就得花上个几个小时，半天，甚至更长。越是这样越不要灰心，应该放松心态，一点一滴的去查。只要有一颗永不退缩的心，我相信你一定能找到问题所在，最后一定能见到你开心的笑容，也一定能找到成功者的感觉。通过这个学期的学习，对了vb这种高级语言有了初步的认知，对一些小的程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经常看同学设计好的程序代码，包括教材上的例题程序，然后想想别人为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，这学期的vb课程让我收获了很多，我对下学期的计算机2级考试很有信心！！篇二：vb学习总结也心得 学习vb两个星期以来，（其实真正时间也不到两个星期吧平时有空闲就学习了下 在这里是想告诉大家 vb基本操作不难，）第一个串口调试程序通了 能够实现更改波特率，串口号，接收数据实现字符也十六进制显示，在发送文本框输入数据 电机发送将在接收框内显示 记住将rs232的2和3管脚直接接起来
下面是我测试实际过程
大家也可以和我一样练习练习
下面是我的源代码可以供大家参考下也希望高手指点下（框架就没必要给了）dim baud as string dim text2enbale, asciflag as boolean 停止显示标志 false将不能显示 private sub check2_click()end sub end select end sub case 300 baud = 300 case 600 baud = 600 case 1200 baud = 1200 case 2400 baud = 2400 case 4800 baud = 4800 case 9600 baud = 9600 case 19200 baud = 19200 case 38400 baud = 38400 end select else case 300 baud = 300 case 600 baud = 600 case 1200 baud = 1200 case 2400 baud = 2400 case 4800baud = 4800 case 9600 baud = 9600 case 19200 baud = 19200 case 38400 baud = 38400 end select end if end sub dim s as string dim a()as byte msgbox 串口未打开，请打开串口, 48, 警告 end if redim a(3)a(0)= &hf a(1)= &hfe a(2)= &hdd a(3)= &hcc s = text3.text a = s end if call delay(20)end sub dim idata as variant dim arr()as byte redim arr(intinputlen)和上面一样 if asciflag = true then for i = 0 to ubound(arr)text2.text = text2.text + chr$(arr(i))next ielse for i = 0 to ubound(arr)text2.text = text2.text + & arr(i)next i end if end select end sub private sub option1_click()if option1.value = true then asciflag = true end if end sub private sub option2_click()if option2.value = true then asciflag = false end if end sub private sub timer1_timer()label11.caption = time end sub private sub uart_open_click()shape2.backcolor = &hff& uart_open.caption = 关闭串口 else shape2.backcolor = &he0e0e0 uart_open.caption = 打开串口 end if end sub private sub text2_clr_click()text2.text = end sub private sub text2_en_click()text2enable = not text2enbale end sub end end sub private sub form_load()show 没有show后面的设置焦点将失败 错误 text2enbale = true option2.value = true 默认显示是以16进制显示 text3.text = text3.setfocus end sub 至此 一个简单的小工程就完成了，因为我是电子信息工程专业对高级编程还是很菜鸟的，其实这个功能也是我一直想能够自己实现的，因为之前一直以为学习vb 会花好多时间，就像之前一直在学习arm一样半天模不着头脑。所以迟迟不敢接触。估计也好多人和我一样，其实学习开始了 也会发现并不是想象中那样。2012-7-30 青檐铃风篇三：vb学习心得体会 vb学习心得体会
这学期选修了vb这门学科，想从学习中对计算机有更深刻的认知，也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心体会。
通过学习vb我基本学会了编辑一些小程序，掌握了一些基本的知识，得到了以下一些收获： 1.富业余生活。曾经业余时间到处游手好闲的身影不见
了，以前没事我肯定一动不动的坐在电脑面前摆弄电脑。是啊，想想以前，真是一无是处，一会找人砍大山，一会找人打游戏，一会就傻傻的坐在小板登上两眼无光，似是厌倦了红尘。现在有了vb，它给了我无穷的快乐，让我乐此不疲。
2、多了一门技术。vb是一门计算机编程语言，也算是一 项知识含量较高的东西。采用的是可视化程序设计。学习的这段时间，我明白了万事开头难，刚刚开始，遇到些困难没关系，慢慢来。我们每学一点，就赶快把它用到实际的程序中去，自己多学多用多实践，水平才能不断提高，这就是“学以致用”。只有这样我才呢学有所成
3、锻炼意志。编程可不是一项轻松的活，尤其是一个人
开发制作软件时，那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时，把程序做完了需要调试运行，但是就是不能达到自已设计的效果和目的，那你得戴上放大镜找啊找啊，也许就是因为一个符号或一个字母，你就得花上个几个小时，半天，甚至更长。只要有一颗永不退缩的心，我相信你一定能找到问题所在，最后一定能见到你开心的笑容，也一定能找到成功者的感觉。
通过这个学期的学习，对了vb这种高级语言有了初
步的认知，对一些小的程序有了初步的设计方案，能根据要求设计出想要的程序，锻炼了自己的创造性思维，是培养逻辑思维的好方法，同时我经常看同学设计好的程序代码，然后想想别人为什么这么计就能达到效果，我的设计能不能完成更多的功能，这样优秀了自己，帮助了自己，提高了自身水平，同样，也欣赏了别人，对别人是赞美，对自己是帮助，总而言之，这学期的vb课程让我收了很多。
第四篇：VB学习札记
VB学习札记
在大二上学期学习过VB.NET，但由于将近1年时间没有接触，本学期刚开学时vb水平已经退化到没学过的水平了。所以，必须要利用前3周来复习已经学过的知识，一边做练习一边巩固。
首先，我找到以前的VB书以及笔记本，大致的看了一遍，了解到所学知识的大致框架。之后，开始着手做第一题的练习题。题目中涉及到的VB语句就翻书再细致的去看。顺便把这一类型的语句复习一遍。
按照这样的流程，花了两个多礼拜，陆续把VB复习的差不多了。而且作业也完成的差不多了。
我总结了一下我学习VB的方法：
首先，要保持良好的学习心态
1、要有自信,自强,积极主动学习.2、不要畏惧困难，克服畏难情绪,树立学好程序设计的信心
之后，我觉得要有良好的学习习惯
然后，我觉得学习程序设计要注重理解一些重要的概念.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在 程序入门阶段还是应该重视概念的学习.我觉得务必要自己动手编写程序。遇到问题时，自己去琢磨，进行试验。再不行的时候，会找同学来帮忙。一起讨论检查语句中的错误。
程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的。只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容。
同时，也阅读、借签别人设计的好程序。我也会参与讨论同学遇到的问题。我发现在大家一起讨论，发现问题并最终解决问题时，学到的或许比自己单独一个做学到的更多。多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学到别人优秀的东西,帮助自己 提高自身水平.最后，我发现上机调试程序的时候应认真把实验题在用纸上做一做(包括窗体界面设计,事件代码的编写等)每次上机后应总结,把没有搞清楚的问题记录下来,请教老师或同学.平时应多抽课余时间多上机调试程序，同时时常注意系统的提示信息,遇到问题多问几次为什么。
第五篇：VB指导学习
2005-7-24
VB指导学习
1、if语句的另一种写法：
if num=10 then print num
当then后面（同一行）有执行语句时，if语句不能加end if
如有end if，则then后（同一行）不能有语句
2、两条语句放在同一行时用“：”分割
如：print num:print num+13、语句分多行写用“ _”连接，注意“空格&下划线”
如：print num _
+14、除法：a/bab
C++：“/”是除法，a、b都是int，则结果是int，如果其中一个是float，则结果float“”是转义字符。
VB：“/”是除法，有小数。“”取整（小数点后舍）
5、case语句用法：
private sub form1_click()
dim a
select case a
case 1to4,7to9,11,13<5
print a
case else
msgbox”不在范围内”
end select
end sub6、VB中假是”0”，真是”-1”
C++中假是“0”，真是“1”
7、private sub form_click()
for I=2to4 step-1读完完整的一句之后，如发现问题，则跳过此句执行下一句。print I
next
print I本程序只执行此句一次
end sub8、倒序输出字符串
取字符函数mid(string,2,3)表示从string字符串中第二位开始，一共取三位如：mid(abcdefg,2,3)，则结果为 bcd
lift(abcd,2)=ab
right(abcd,2)=cds
例：private sub command1_click()
dim x as integer,str_len as integer
dim str as string
for x=str_len to 1 step –1
text1.text=text1.text + dim(str,x,1)
next
end sub
form1窗体里有两个文本框和一个按钮
9、循环for I=1to5
„„
next(I)(next后最好不要加i)
10、声明变量：dim a,b as integer则a是变体，b是int
dim a as integer,b as integer则a,b都是int11、webbrowser 网页
添加部件 ms internet controls 控件
private sub form_click()
webbrowser1.navigate app.path & “a心理测试.html”app.path表示当前目录end sub
private sub form1.resize()
wenbrowser1.height=form1.scaleheight-10“-10”可不写
webbrower1.width=form1.scalewidth-10如不加scale，则会覆盖一点边
12、有退出按钮的窗体，点击退出时询问，点击窗体右上角X则不询问，怎么办？Private sub form_unload(canel as integer„„)
If msgbox（”是否退出？”,vbokcancel,”询问”）=vbok=true=false
Cancel=true-取消关闭
End if
End sub13、”关于”窗体
添加“关于”对话框
14、使用“选项卡”省地方
添加控件“ms tabbed dialog control 6.0”
如添加控件“ms windows common control 6.0”->”tabstrip”也可以作，但不好用。
15、帮助文件 msdn是世界最大的帮助文件，CHM格式的帮助文件
html help workshop
1.目录-> 节点&页面-> 编译
2.new-> project-> ok-> 下一步-> 保存路径&名称-> 下一步-> 勾中 html
files(.htm)-> 点击Add-> 下一步-> 完成3.搜索proj-> 属性 compiler-> 勾中compiler-> ok
4.作节点 页面 关键字
project(工程)->contents(目录)->index(索引)->ok->保存节 钥匙增加关键字contents(目录)->是否创建->ok->保存->点左第二个文件夹则属性换成书图标
16、用VB调用帮助文件
设工程属性的“帮助文件名”后，按“f1”弹出帮助
设一个“帮助菜单”，在菜单click事件中加入sendkeys“{F1}”，模拟用户按键盘还可以模拟alt + f4 , 但不可以模拟 control + alt + del(重启),17、MDI无子窗体时，帮助无作用，调用ADI/ATI
把目录的成app.path，把此文件拷贝到其它位置仍可使用
18、shell 只能调用.exe文件hh.exe是windows 自带的帮助打开“帮助文件”的exe文件shell”hh.exe 帮助文件的路径及文件名”
19、private sub a_click()
sendkeys”{f1}”
shell”hh.exe d:qiaosl„„.chm”,vbnormal focus
end sub
private sub form_load()
ap.help file=app.path &”„„.chm”
20、1．工程属性设“帮助菜单名”
2．App.helpfile= „„
3．Sendkeys”{f1}”
4.shell(“hh.exe„„”)
1&2作用是：按F1出帮助，便用2好一些，3是模拟按键盘F1，4可完全单独使用，3&4用在按键或菜单。
Api例子
下午
21、设置象素：窗体的lemode属性1-twip->缇，pixel->象素
22、动态生成控件必须用控件组
23、缺省事件是双击控件时自动出现的事件
缺省属性可省略：text1.text=”a”可写成text1=”a”,可省略“.text”
24、cotfouse->事件
25、模式&非模式窗体：
26、参数传递：默认按引用传递，Byval是按值传递
subs(byval x as single,y as single)则x按值，y按引用，VB中真为-127、第十章，error
语法错误：
运行时错误：一般不出错，特定时出错，考虑不周全，如除数为0
逻辑错误：不报错，写的不对，如循环次数不对。
错误处理代码
1． 创建捕获错误代码
2． 处理此错误
3． 继续执行
on error goto 1标号（数字&字母都可以）
exit sub
1:
msgbox(“除数不为0”)
text1.text=””
text1.setfouse
end sub
resume（next/line）回到出错行，或出错行的下一行，或指定位置
on error resume next忽略错误/延迟最好少用，延迟后改不了
F8是单步运行
28、对象 –> err.属性&方法 number(错误编号)
29、dbpath=commondialog.filename
if dbpath=””
end
con.open
else resume
showopen30、C++复习题：
简单
1． 用户接收一个数，调用一个函数，输出该数的立方
2． 写一个函数min(int a[])，求主程序中传来的数组中最小值
难度适中
3． 民主投票方法选班长，候选人编号A、B、C、D每位同学只能选一人作班长，输入每张选票的候选人编号A~D，输入0终止，调用函数process()输出每人得票数及当选人
4． 接收用户输入的数，直到有5个奇数，显示此5个奇数，调用max()函数显示此5个奇数中最大数
高难度
5． 字符串变量A、B，B是A中的一部分，将B抠出A，再输出
超难度
6． 卖票，车站一共15，每站上（剩下站数）个人，然后剩下每站依次下一个人，问应
设几个座位，卖出多少张票
7． 发牌：按顺序发随机牌（使用随机数）
点击咨询 