- 博客(11)
- 收藏
- 关注
RSS订阅原创 UITableView的优化方案
谈起UITableView大家都不会陌生，因为这个视图太重要了，基本上每个App都离不开它的身影，其实它算是一个比较复杂的视图了，每个UITableView都有一个tableViewHeaderView, 我们能在tableHeaderView上面显示一些比较重要且特别的东西,比如轮播图。一个tableview包含一个到多个section，一个section又包含一个header,一个foot
2016-01-09 20:42:56
328
原创 十个数从大到小排列
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
1294
原创 输出三个数中的最大值
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
1022
原创 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
392
原创 你出生那天是星期几
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
675
原创 两位数乘法
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
261
原创 学习VB的感想
今天学习了一门新的计算机语言VB，真的很高兴，这让我进一步了解了计算机的奥秘，原来计算机可以这样用，原来VB这么有用，原来我认为很难的东西计算机可以算得那么快那么好，真的很喜欢这门功课，当我看到自己亲自做成一个程序以后，我非常激动，我决定以后努力学习这门功课，学好这门功课，因为我知道，生活在这个信息时代，计算机是那么的重要，公司，银行，学校，乃至家庭，计算机已经成为了人们生活的一部分，我也深知，作
2012-05-18 08:25:30
613
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人