关于VB编程的题,请大虾指教(下面是题目)
\u4e00\u9053\u4e8c\u7ea7VB\u7684\u9898\u76ee\uff0c\u8bf7\u5927\u867e\u5e2e\u5fd9\u89e3\u7591\u5f88\u597d\u4e86\u7406\u89e3\u7684
Private Sub vbCalc_Click()
For i = 1 To 100 '\u5faa\u73af1~100
If Arr(i) >= 30 Then '\u9009 \u51fa\u5927\u4e8e30\u7684\u5143\u7d20\u6570\u7ec4
Text1.Text = Text1.Text & Arr(i) & Space(5) '\u9009 \u51fa\u540e\u8f93\u51fa\u81f3Text1`
sum = sum + Arr(i) '\u6c42\u548c
End If
Next
Print sum
End Sub
Private Sub vbRead_Click()
ReadData End Sub Private
Sub vbSave_Click()
WriteData "out5.txt", sum
End Sub
\u6211\u5927\u4e00\u65f6\u5019\u5b66\u8fc7,\u540e\u6765\u4e09\u7ea7\u662f\u8003C+\u7684,\u6240\u4ee5\u5fd8\u5dee\u4e0d\u591a\u4e86.\u4f46\u662f\u53ef\u4ee5\u7ed9\u4f60\u63d0\u793a\u4e00\u4e0b.\u4f30\u8ba1\u4f60\u770b\u770b\u53c2\u8003\u4e66\u5c31\u4f1a\u4e86.
\u7b2c\u4e00\u9898\u5229\u7528inputbox\u547d\u4ee4,\u6bd4\u5982\u7ed9N\u8d4b\u503c.
\u7136\u540efor i=1 to N
for i=1 to N
print "#";(\u8fd9\u4e2a\u662f\u6253\uff03,\u5e76\u4e14\u5206\u53f7\u4f5c\u7528\u662f\u8fde\u7eed\u6253)
next i(\u4e2d\u95f4\u8fd9\u90e8\u5206\u5faa\u73af\u662f\u4fdd\u8bc1\u6253\u5b8c\u4e00\u884c#,\u6570\u91cf\u4e3aN)
print (\u8fd9\u4e2a\u662f\u4fdd\u8bc1\u6362\u884c\u7684\u610f\u601d)
next i
\u7b2c\u4e8c\u9898,\u4e0d\u77e5\u9053\u4f60\u662f\u4e0d\u6ca1\u8868\u8fbe\u6e05\u695a.
\u5148\u5b9a\u4e49,\u7136\u540eai=i+2
\u518d\u6253\u5370\u4e0d\u5c31\u884c\u4e86\u4e48.\u5982\u679c\u4f60\u8bf4\u5f97\u8fde\u7eed\u6253,\u5c31\u7528\u5faa\u73af\u8bed\u53e5
\u5faa\u73af\u7684step\u51992\u5c31\u53ef\u4ee5\u4e86
\u7b2c\u4e09\u9898,\u8d4b\u503c\u7684\u65f6\u5019\u7528\u5faa\u73af,\u540e\u8fb9\u7b97\u4e5f\u5faa\u73af
\u5148\u662ffor i=1 to 10
\u7136\u540eai=inputbox
next i
\u8fd9\u6837\u8fd0\u884c\u7684\u65f6\u5019\u7ed9\u4f60\u51fa10\u6b21\u8f93\u5165\u7684\u673a\u4f1a
\u4e0b\u8fb9\u5f00\u59cb\u7b97
for i=1 to 10
print ai
b=b+ai
next i
print b
\u7b2c\u56db\u9898\u6211\u5c31\u4f1a\u4e00\u4e2a\u590d\u6742\u7684\u7b97\u6cd5
\u5148\u662f\u5229\u7528\u516c\u5f0f,\u56e0\u4e3a\u968f\u5373\u4ea7\u751f\u4e00\u4e2a\u6570\u7684\u8303\u56f4\u662f0-1\u4e4b\u95f4\u7684\u800c\u4e14\u662f\u5c0f\u6570.\u6240\u4ee5\u5148\u6269\u5927\u8303\u56f4,\u7136\u540e\u53d6\u6574.
\u516c\u5f0f\u662f\u8fd9\u4e2a:
RandomNumber = int (( 1 + UpperBound - LowerBound) * Rnd ) + LowerBound
\u8d4b\u503c\u65b9\u6cd5\u540c\u7b2c\u4e09\u9898,\u5148\u5faa\u73af,\u4f7f\u4e0b\u89d2\u6807\u53d8\u5316,\u7136\u540e\u8d4b\u503c.
\u63a5\u4e0b\u6765\u9009\u4e00\u4e2a\u6700\u5927\u7684,\u6211\u8bb0\u5f97\u5c31\u6bd4\u8f83\u5c31\u53ef\u4ee5\u4e86
for j=1 to 10
for i=j to 10
if ai>a(i+1) then a(i+1)=ai
(\u5c31\u662f\u8bf4\u7b2c\u4e00\u4e2a\u5982\u679c\u6bd4\u7b2c\u4e8c\u4e2a\u5927,\u90a3\u4e48\u5c31\u628a\u7b2c\u4e00\u4e2a\u7684\u503c\u7ed9\u7b2c\u4e8c\u4e2a,\u7136\u540e\u5c31\u4e0d\u7528\u7b2c\u4e00\u4e2a\u6570\u4e86.\u4ece\u5269\u4e0b\u76849\u4e2a\u91cc\u6bd4\u8f83)
next i
next j
\u6700\u540e\u6700\u5927\u7684\u5c31\u662f\u7b2c\u5341\u4e2a\u6570\u4e86
print a10
\u6216\u8005\u6709\u4e00\u4e2a\u51fd\u6570Max(\u7b2c\u4e00\u8868\u8fbe\u5f0f,\u7b2c\u4e8c\u8868\u8fbe\u5f0f)\u5c31\u5f0f\u6bd4\u8f83\u51fa\u4e00\u4e2a\u6700\u5927\u7684.
\u7b2c\u4e94\u4e2a,\u6211\u8bb0\u5f97\u5b57\u7b26\u4e32\u662f\u53ef\u4ee5\u76f4\u63a5\u76f8\u52a0\u7684
\u6240\u4ee5\u7528\u4e2a\u52a0\u6cd5\u5c31\u53ef\u4ee5\u4e86\u5427.\u5fd8\u4e86.\u4f60\u8bd5\u8bd5\u5427
\u7b2c\u516d\u4e2a,\u6211\u8bb0\u5f97\u5927\u6982\u662f\u6709\u4e2a\u51fd\u6570\u7684,\u5982\u679c\u6ca1\u6709,\u53ef\u4ee5\u5229\u7528\u5df2\u77e5\u7684\u7a0d\u5fae\u6539\u52a8.\u6bd4\u5982\u5148\u7b97\u7b97\u8fd9\u4e2a\u5927\u4e32\u591a\u957f,\u7528LEN(\u5b57\u7b26\u8868\u8fbe\u5f0f).\u6bd4\u5982\u5f9710,\u5f53\u7136\u6211\u4eec\u4e0d\u7ba1\u662f\u591a\u5c11.\u5c31\u8bbe\u4e3ab.
\u7136\u540e\u5f00\u59cb\u5faa\u73af
for i=1 to b
(\u4e2d\u95f4\u52a0\u4e1c\u897f.)
next i
\u610f\u601d\u5c31\u662f\u5faa\u73afb\u6b21,\u4e89\u53d6\u628a\u5b57\u7b26\u4e32\u91cc\u7684\u5b57\u7b26\u67e5\u4e00\u904d.
\u6bd4\u5982SUBSTR()\u8fd9\u4e2a\u51fd\u6570,\u662f\u8fd4\u56de\u7b2c\u51e0\u4f4d\u7684,\u51e0\u4e2a\u5b57\u7b26\u957f\u5ea6\u7684\u5b57\u7b26\u4e32.
for i=1 to b
C$=SUBSTR(A$,i,1)
if C$="B" then x=x+1
next i
\u5c31\u662f\u8bf4\u4ece1\u5f00\u59cb\u67e5\u5230b,\u770b\u770b\u6bcf\u4e2a\u5b57\u7b26\u662f\u4ec0\u4e48,\u5e76\u4e14\u7ed9C$\u8d4b\u503c.\u6bd4\u8f83\u5982\u679c\u8fd9\u4e2aC$\u5c31\u662f\u8981\u7684B\u90a3\u4e48\u5c31\u7d2f\u52a0\u4e00\u6b21
\u6700\u540e\u5f97\u5230\u7684x\u503c\u5c31\u662f\u603b\u6570.
\u8fd8\u6709AT(\u5b57\u7b261,\u5b57\u7b262,\u6570\u503c\u8868\u8fbe\u5f0f)\u4ed6\u7684\u529f\u80fd\u662f,\u7b2c\u4e00\u5b57\u7b26\u5728\u7b2c\u4e8c\u5b57\u7b26\u91cc\u51fa\u73b0\u7684\u4f4d\u7f6e.\u65e2\u7136\u80fd\u8868\u8fbe\u51fa\u4f4d\u7f6e,\u5c31\u53ef\u4ee5\u5229\u7528\u7d2f\u52a0\u7b97\u51fa\u51fa\u73b0\u4e86\u51e0\u6b21.
C语言 是一种可移植性和多系统平台的编程语言
JAVA 是一种功能强大可移植性强的开发语言
HTML 是一种超文本标记语言
Java Script 是一种基于客户端的脚本语言
程序语言,顾名思义就是一种语言,是用于交流的,程序就是计算机的语言和人类语言的翻译者,做一个程序员就是要把人类世界的问题用计算机的方法去解决和展现,可是因为种种原因,大多数人在如何学好语言,如何学好开发平台上疲于奔命,到头来你只会敲写代码。如果想做一个合格的程序员,C++、JAVA、sql、都是一定要学的,另外,不要去学你喜欢的,也不要去费劲脑子想该学什么,看看IT界,IT市场需要什么,你就学什么。
新手学编程要从根本出发
从理论上来说,需要广泛的阅读,了解算法的博大精深和计算机的基本理论。
从实践上来说,需要有广泛的练习,练习的广泛在于练习不同的内容。
然后就是创新精神和数学思维能力,这些都是需要培养的。
基础要打好
学编程要具备一定的基础,总结之有以下几方面:
(1)数学基础 、从计算机发展和应用的历史来看计算机的数学模型和体系结构等都是有数学家提出的,最早的计算机也是为数值计算而设计的。因此,要学好计算机就要有一定的数学基础,出学者有高中水平就差不多了。
(2)逻辑思维能力的培养 、学程序设计要有一定的逻辑思维能力,“思维能力”的培养要长时间的实践锻炼。要想成为一名优秀的程序员,最重要的是掌握编程思想。要做到这一点必须在反复的实践、观察、分析、比较、总结中逐渐地积累。因此在学习编程的过程中,我们不必等到什么都完全明白了才去动手实践,只要明白了大概,就要敢于自己动手去体验。谁都有第一次。有些问题只有通过实践后才能明白,也只有实践才能把老师和书上的知识变成自己的,高手都是这样成材的。
(3)选择一种合适的入门语言、 面对各种各样的语言,应按什么样的顺序学呢?程序设计工具不外乎如下几类:
1.本地开发应用软件开发的工具有:Visual Basic 、Delphi 、VC++ ( C++ Builder ) 等;数据库开发工具有:Visual Foxpro 、Oracle Developer 、Power Builder 等。
2.跨平台开发开发工具如 Java 等。
3.网络开发对客户端开发工具如:Java Script 等;对服务器开发工具如:PHP 、ASP 、JSP 、ISAPI 、NSAPI 、CGI 等。以上不同的环境下几种开发工具中 VB 法简单并容易理解,界面设计是可设化的,易学、易用。选 VB 作为入门的方向对出学者是较为适合的。 (但现在已经过时)
培养好的编程习惯
编程入门不难,但入门后不断学习是十分重要的,相对来说较为漫长。在此期间要注意养成一些良好的编程习惯。编程风格的好坏很大程度影响程序质量。良好的编程风格可以使程序结构清晰合理,且使程序代码便于维护。如代码的缩进编排、变量命令规则的一致性、代码的注释等。
多问多学习
掌握编程思想必须在编程实际工作中去实践和体会。编程起步阶段要经常自己动手设计程序,具体设计时不要拘泥于固定的思维方式,遇到问题要多想几种解决的方案。这就要多交流,各人的思维方式不同、角度各异,各有高招,通过交流可不断吸收别人的长处,丰富编程实践,帮助自己提高水平。亲自动手进行程序设计是创造性思维应用的体现,也是培养逻辑思维的好方法。
总结
1、先照书上的题目写,题目的设计是有道理的巩固基础知识。
2、找数学题,写个小程序解决,熟悉算法和基础函数。
3、自己出题目,小一点的,如自编资源管理器、自编写字板之类,练习WINDOWS下的编程。
4、结合身边的事,找个中等课题,或看别人的程序,自已想办法实现。
5.把教材中的例子,自己仿照着写一遍,上机运行,看结果.要知道,任何产品都是有例子的,有机结合或仿照。
6.从自己熟悉的事情入手,如成绩统计,编制一段程序,完成一个功能.然后再完善。
7.要反复破坏代码,从破坏中寻找代码的规律。
8.必须经常反复上机练习。
NONO ,楼上所言非也`````楼主要求碰到边边再滚回也,呵呵,我刚也试着做了个程序,让图片碰到什么边就往相反方向再动,上下左右都支持,感觉蛮好玩的。原来以前玩地心引力这种游戏是可以用这种方法做出来的啊,,哈哈,原来VB可以这样简单的啊。。。。不费话了,看代码。楼主采我
Dim x As Integer
Dim y As Integer
Private Sub Form_Load()
Picture1.Picture = LoadPicture("d:\fafa.jpg")
Timer1.Interval = 50
End Sub
Private Sub Timer1_Timer()
If Picture1.Left > Form1.Width - Picture1.Width Then
x = 0
ElseIf Picture1.Left < 0 Then
x = 1
End If
If Picture1.Top < 0 Then
y = 0
ElseIf Picture1.Top > Form1.Height - Picture1.Height - 510 Then
y = 1
End If
If x = 1 Then
Picture1.Left = Picture1.Left + 50
ElseIf x = 0 Then
Picture1.Left = Picture1.Left - 50
End If
If y = 1 Then
Picture1.Top = Picture1.Top - 50
ElseIf y = 0 Then
Picture1.Top = Picture1.Top + 50
End If
End Sub
Private Sub Timer1_Timer()
Picture1.Left = IIf(Picture1.Left > Form1.Width, 0, Picture1.Left + 5)
End Sub
同意这个回答
Private Sub Timer1_Timer()
Picture1.Left = IIf(Picture1.Left > Form1.Width, 0, Picture1.Left + 5)
End Sub
只玩vb6.0。这个真不会
绛旓細Dim a(0 To 3)Private Sub Command1_Click(Index As Integer)List1.AddItem Index End Sub Private Sub Command2_Click()Dim n, m m = 0 n = 0 For i = 0 To 3 For j = 0 To 3 If List1.List(i) = a(j) And i = j Then n = n + 1 End If If List1.List(i) = ...
绛旓細Sub Private Sub List1_Click()If List1.Selected(0) = True Then Label1.FontName = "闅朵功"ElseIf List1.Selected(1) = True Then Label1.FontName = "瀹嬩綋"ElseIf List1.Selected(2) = True Then Label1.FontName = "榛戜綋"End If End Sub 绗簩棰樿繍琛岀粨鏋滐細璇蜂竴瀹氶噰绾冲摝锛
绛旓細绗竴浜岄寰堢畝鍗曘傜涓夐娌$湅鏄庣櫧銆傚湪绐椾綋涓婅緭鍑哄乏鍙抽変腑鐨勫垪琛ㄩ」锛熶綘灏变竴涓猯ist鎬庝箞浼氭湁宸﹀彸鍛紵浠g爜 Private Sub Command1_Click()Dim a, b, c As IntegerFor a = 0 To 9For b = 0 To 9For c = 1 To 9If a ^ 3 + b ^ 3 + c ^ 3 = a + 10 * b + 100 * c Then...
绛旓細Dim d As String Dim i As Integer label1.caption= ""d = "瀛楃涓"For i = Len(d) To 1 Step -1 label1.caption = label1.caption+ Mid(d, i, 1)Next 绗簩涓棶棰,瑕佹眰鍦ㄥ崟鍑荤獥浣撲笂鐨勬寜閽悗,鍦ㄧ獥浣撲腑鐨勬樉绀棰樼洰涓姹傜殑鏂囨湰 涓嬮潰鐨勬寜閽殑鍗曞嚮浜嬩欢浠g爜 Randomize Dim i ,p As ...
绛旓細3)鎶奣ext1鐨凾ext灞炴ц涓 绋嬪簭璁捐 4)鐐筎ext1鐨凢ont灞炴у彸闈㈢殑灏忔寜閽,鍦ㄥ嚭鐜扮殑瀵硅瘽妗嗕腑璁剧疆 榛戜綋 鍜 涓夊彿瀛椾綋 5)鎶奆orm1鐨凜aption灞炴ц涓 璁剧疆鏂囨湰妗嗗睘鎬 缁冧範1-16:Private Sub Form_Load()Text1.PasswordChar = "*"End Sub Private Sub Text1_Change()Text2.Text = Text1.Text End Sub ...
绛旓細Option ExplicitFunction mj(L1 As Single, L2 As Single) As Single mj = (L1 * L2) / 2 MsgBox "涓夎褰㈤潰绉负锛" + Str(mj)End FunctionPrivate Sub Form_Click() Dim a() As String a() = Split(InputBox("杈撳叆鐩磋涓夎褰㈢殑闀垮拰瀹" + vbCrLf + vbCrLf + "渚嬪: 2|...
绛旓細5 3 -1 2 0 1 7 2 5 2 0 -2 3 1 0 0 -4 -1 4 0 0 2 3 5 0 绗1琛屼氦鎹㈢2琛- 1 7 2 5 2 5 3 -1 2 0 0 -2 3 1 0 0 -4 -1 4 0 0 2 ...
绛旓細Private Sub Command1_Click()Dim a As Single, b As LongDim n As Long, f As IntegerDim c As Singlef = 1For n = 1 To Val(Text1.Text) b = b * 10 + 3 a = b + 0.3 c = c + a * f f = -fNextLabel2.Caption = cEnd SubPrivate Sub Form_Load()Label1....
绛旓細Private Sub Command1_Click()Dim i As Integer, j As IntegerDim x(30) As Single, y(30) As SingleFor i = 1 To 30x(i) = InputBox("璇疯緭鍏ョ" & i & "澶╃殑鏀剁洏浠凤細", 0)NextFor i = 1 To 26x(0) = 0For j = 1 To 5x(0) = x(0) + x(i + j - 1)Nexty(i...
绛旓細绗5棰橈細灏嗘娈靛鍒跺湪浠g爜绐楀彛锛屽啀鐐瑰嚮绐椾綋鍗冲彲銆侾rivate Sub Form_click()Dim x%, y For x = 10 To 99 For y = x + 1 To 99 If scl(x, y) = True Then Print x; "/"; y; "绗﹀悎瑕佹眰锛"End If Next y Next x End Sub Function scl(x As Integer, y As Integer) As ...