- 博客(14)
- 收藏
- 关注
RSS订阅原创 计算机学习心得
Now我们是真真正正的自己写程序了，对于我们来说是个大的挑战啊！没心思学了现在！Private Sub Command1_Click()Me.FontSize = 18Dim a(10) As IntegerDim mystr As String Dim printstr As Stringa(i) = Int(Rnd() * 100 + 1)mystr = "不要
2012-05-29 20:24:05
163
原创 计算机学习心得
没意思，无聊啊！Dim a() As Integer 'a是用来存放生成的n个随机正整数 Private Sub Command1_Click()n = InputBox("请输入一个正整数n,n>=1")ReDim a(1 To n)Dim p As String 'p表示随机生成的n个整数Randomizep = ""For i = 1 To n '生成n个
2012-05-29 20:21:45
174
原创 计算机学习心得
今天学的没意思了感觉！Dim WithEvents mytextbox As VB.TextBoxPrivate Sub Command1_Click()Dim mytextbox As VB.TextBoxSet .mytextbox = Me.Controls.Add("VB.textbox", "mytextbox")mytextbox Move.Me.commandle
2012-05-29 20:20:24
148
原创 计算机学习心得
哈哈，老Function myweekdayName(weekofday As Integer) As StringSelect Case weekofday case1 myweekdayName = "星期日" Case2 myweekdayName = "星期一" case3 myweekdayName = "星
2012-05-29 20:19:26
411
原创 计算机学习心得
现在学习的感觉到都受老师找的比较贴近生活的，感觉还好吧！现在程序越来越难，程序的编写也很长了，输入起来更麻烦了！Private Function judge(N As Integer) As Booleanjudge = (N Mod 17 = 0 And N Mod 37 = 0) End Function Private Sub Form_Click()Dim i
2012-05-29 20:14:35
178
原创 计算机学习心得
现在变得麻烦了，有些不想学了，哎，也不是难不想学啊，是没兴趣，枯燥啊！Option Base 1 Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Text1.Text) N = Trim(Text2.Text)
2012-05-29 20:10:37
153
原创 计算机学习心得
现在的学习深度在慢慢地变深，我们也学习更麻烦点的程序了。还是程序的输入有点头疼啊！Private Sub Command1_Click()Dim s As IntegerDim n As IntegerDim m As IntegerDim x As IntegerDim flag As Booleans = 0: n = 2Do While n s = s +
2012-05-29 20:08:14
162
原创 计算机学习心得
已经学习了好几节课了，课上老师讲的很有意思，也很爱听。上机时化界面时也很好玩。但是还是不想输入那头疼的程序啊。全是英语单词啊，有事就看错了，然后整个程序写完了，却错了，还必须的从头开始找哪里错了，哎！Public Sub marge(leftlist() As Integer, rightlist() As Integer, resultlist() As Integer)Dim left
2012-05-29 20:05:31
194
原创 计算机学习心得
现在虽然说还有点不适应，但是还是可以的，能够听懂一些了。但是我感觉输入程序时太麻烦了，看着就烦啊！Private Sub Command1_Click()Dim a As IntegerDim b As Integera = 78b = 489 If a > b ThenPrint aElsePrint bEnd IfEnd Sub
2012-05-29 20:01:12
182
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人