- 博客(11)
- 收藏
- 关注
原创 UITableView的优化方案
谈起UITableView大家都不会陌生,因为这个视图太重要了,基本上每个App都离不开它的身影,其实它算是一个比较复杂的视图了,每个UITableView都有一个tableViewHeaderView, 我们能在tableHeaderView上面显示一些比较重要且特别的东西,比如轮播图。一个tableview包含一个到多个section,一个section又包含一个header,一个foot
2016-01-09 20:42:56
340
原创 十个数从大到小排列
Private Sub Form_Click() Dim a(10) As Integer Dim i As Integer For i = 1 To 10 a(0) = Int(InputBox("请输入第" & i & "个整数:")) InsArrayAndSort(a, i - 1) '在输入的时候就先进行从小到大排序
2012-05-18 08:43:37
1321
原创 输出三个数中的最大值
dim a as integer,b as integer,c as integer,max as integer a=Val(text1.text)b=Val(text2.text)c=Val(text3.text)Max = IIf(a > b,a,b)Max = IIf(Max > c, Max,c)print "最大数为:" & Max今天看了一会儿书发现用II
2012-05-18 08:40:21
1085
原创 0到2000内能同时被17和37整除的数
dim i as longfor i=0 to 2000 if (i mod (17* 37))=0 then print i end if next i这个小程序是自己编的,运用了for....next,if...then...else...end if.点鼠标的时候就会输出两千以内能同时被17和37整除的数。其实这个程序还有一点不足,就是
2012-05-18 08:35:53
403
原创 你出生那天是星期几
Private Sub Command1_Click() Dim year As Integer Dim month As Integer Dim day As Integer Dim s As Integer Dim birthday As Date year = Int(Val(Text1.Text
2012-05-18 08:31:57
711
原创 两位数乘法
Option Base 1Private Sub Command1_Click() Dim M As String Dim N As String M = Trim(Text1.Text) N = Trim(Text2.Text) Dim Number1() As Byte Dim Number2() As Byte
2012-05-18 08:28:14
288
原创 学习VB的感想
今天学习了一门新的计算机语言VB,真的很高兴,这让我进一步了解了计算机的奥秘,原来计算机可以这样用,原来VB这么有用,原来我认为很难的东西计算机可以算得那么快那么好,真的很喜欢这门功课,当我看到自己亲自做成一个程序以后,我非常激动,我决定以后努力学习这门功课,学好这门功课,因为我知道,生活在这个信息时代,计算机是那么的重要,公司,银行,学校,乃至家庭,计算机已经成为了人们生活的一部分,我也深知,作
2012-05-18 08:25:30
625
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人