- 博客(4)
- 收藏
- 关注
RSS订阅原创 十个随机数的生成
Dim a(1 To 10) As Integer '定义一个十个数的a(1 to 10)Private Sub Command1_Click()Dim p As String '定义一个字符串用来盛放随机的十个数 Randomize '生成随机数种子 p = "" For i = 1 To 10 Do x = Int(Rnd * 90)
2012-05-20 15:14:22
580
原创 VB 有点困难~
学习VB好长时间了呢，但是总是感觉没有入门的样子。每周三的VB课都是迷迷糊糊的，也不知道别人的学习情况是什么样子，但是我的并不好！哎哎，不知道哦！不知道期末考试会是怎么样的，不知道会不会挂科。 老师说是先是模仿，再慢慢就会了。可是，我是一点都不懂呀。老师呀老师，怎么会的人就感觉这么简单，不会的就一点都不会呀！ 还有六次课，就结束啦。我希望剩下的六次课可以有所收获。！come on!
2012-04-19 20:32:39
229
原创 税率怎么整呢？
Private Sub Command1_Click() Dim w As Long Dim y As Long Dim f As Long w = Val(Text1.Text) y = w - 800 Select Case y Case Is f = y * 5 \ 100 Case Is
2012-04-19 20:24:39
170
原创 怎么编程素数
Option ExplicitDim i, j, k As IntegerDim isS As BooleanPrivate Sub Form_Load() Show For i = 1 To 100 isS = True For j = 2 To Int(i ^ 0.5) If i Mod j = 0
2012-04-19 20:20:32
447
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人