VB实习心得体会 论文(急..!!!!!!!!!!!!!!)
效率再低，只要代码正确，从1加到2000无论如何也不至于让你感觉出来，更绝对不可能需要几分钟时间。
难不成你在用386SX
for i = 1 to 2000 x=x+inext你是这样写的
↑
用VB的循环语句编一个程序，求从1至100的和
在窗口上添加一个文本框，两个命令框Private Sub Command1_Click()s = 0For n = 1 To Val(Text1.Text) s = s + nNextMsgBox sEnd Sub '这是求和，文本框输入n，就是1到n的和Private Sub Command2_Click()k = 1For n = 1 To Val(Text1.Text) k = k * nNextMsgBox kEnd Sub '这是求积，文本框输入n，就是1到n的积
vb程序，循环总是显示1到500的结果。
Private Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Sub Timer1_Timer()Call keybd_event(27, 0, 0, 0)End Sub
vb循环程序
把if条件换下就可以了，试试下面的程序For j = 1 To Rows '行For i = 1 To Columns '列If j \\\/ Scan <> Int(j \\\/ Scan + 1.99) ThenPrint #1, (Print #1, Str(Int(j \\\/ Scan + 0.99)) + Pin1 + CStr(i)Print #1, Designator + CStr(Columns * (j - 1) + i) + -1'Else'Print #1, Designator + CStr(Columns * (j - 1) + i) + -1End IfIf j \\\/ Scan <> Int(j \\\/ Scan + 1.99) ThenPrint #1, )End IfNextNext
