你爱的练习题之典型例题4

滴水穿石,不是力量大,而是功夫深

学习编程的技巧

听——听明白是最基本的条件，一般讲编程的程课都是从最最基本的操作开始。听明白什么意思，是第一步，建议最多不要听超过三遍，三遍以上还听不懂，那说明你的前置知识还不够，需要补充。

练讲——跟据老师的讲解步骤，一步一步的实际操作，这个过程通常就是你遇到各种各样问题的过程，解决其中的问题不仅需要耐心、观察力，还要细心和变换思路的能力。

举个栗子：老师我照着你视频的代码一模一样写的，为什么出不来结果啊？出不来就是不可能一模一样，每个人在学习编程的过程中，一个非常重要的事情就是在学习如何解决问题的过程，解决的问题多了，经验也就多了，学不会自己解决问题，或自我解决问题的能力弱，你的编程能力是很难提高的。

善于总结

学会总结，经常总结，太重要了！尤其对于我们学习一门新知识来说，杂碎的东西太多，还不太熟的情况下，要想完全记住，除非你有惊人的记忆能力，我承认我没有，所以我善用做笔记，写总结。

程序设计题

典型例题十：

产生20个各不相同的某范围的随机整数

Dim a(1 To 10)

For i = 1 To 10

a(i) = Int(Rnd * (99 - 10 + 1) + 10)

For j = 1 To i - 1

If a(i) = a(j) Then i = i - 1: Exit For

Next j

Next i

For i = 1 To 10

List1.AddItem a(i)

Next i

题目：在列表框中产生10个【10 99】各不相同的整数

综合训练

题目：为了形象的看到排序的效果，利用图形打印来显示效果。随机产生8个1~20的随机整数且大小各不相同，打印在左侧的picture1中，在数字后再打印图形“—”，并且每行打印的个数和前面打印的数字的大小对应。排序后打印在右侧的picture2中，在数字后面再打印图形“—”，并且每行打印的个数和前面数字的大小对应，如下图所示。

●失败不可怕，怕的是你失败后不去尝试

程序修改、填空

7、在命令按钮的事件过程中调用过程Fun，判断1个数是奇数还是偶数，要判断的数在文本框中输入。

Function fun(x as long) as boolean

if x mod 20 then

fun=______

else

fun=_______

end if

end Function

Private Sub Command1_Click()

dim num as long

num=val(text1.text)

p=IIF(fun(num),___, ____)

print str(num) & "是1个" & p

End Sub

这是最后一期关于典型例题的分享了

如果你觉得还有很多很重要的很典型的例题，欢迎在留言区留下~

-END-

推送更多好题

长按二维码关注我们