VB简单小程序 (正在考试)急急急急1!!!!!!!!
一、 编制子程序或函数：
计算100以内的偶数和。
要求：按如下格式设计窗体，在窗体中设置一个标签、一个文本框和一个命令按钮，当点击命令按钮时，计算偶数和，显示在文本框中。文本框只做显示用，不能录入信息。（30分）
Dim i As Integer
Dim sum As Integer
sum = 0
For i = 2 To 100 Step 2
sum = sum + i
Next
Text1.Text = sum
End Sub
如何使用VB编写一个简单的小程序?
在桌面上，鼠标左键双击程序，在打开的VB6主界面上，左边是工具菜单栏，单击标签按钮，在Form1窗口上，绘制出一Label1，然后在其属性窗口上改个名字，如Caption为第一数，如下图所示。接着，用同样的方法，在Form1窗口上绘制出第二数，并且在左边工具菜单栏，单击文本框按钮，并绘制出来。在文本框属性...
急求用VB编程做的3个简单程序
画出椭圆。算法步骤：1、求a,b: a=len\/2 b=sqr((x1-x2)^2+(y1-y2)^2)2、求旋转角α ：求出(y1-y2)\/(x1-x2)的反正切值即为α 3、求椭圆中心坐标（x0,y0）: x0=(x1+x2)\/2 y0=(y1+y2)\/2 3、计算椭圆上点的坐标（x,y）：x=acosθ ， y=bsinθ ( 0<=θ< 2*...
用VB制作个小游戏。急急急急急~!!!马上就要交了,随便什么都行,简单的小...
我是个初学者,期末要交个用VB制作简单的小游戏,拜托先将完整代码写出来,下面再补充说明代码中的步骤注意事项,例如要设置的窗口,按键等,请不要将属性设置也写进代码中! (最好我可以直接将代码复制到VB中,设置下属性便可以运行!!!)代码越简单越好,符合初学者,好的我会追加分,谢谢~~!!! 展开 我来答 3...
求助:求高人做个VB小程序,最简单的那种 百分悬赏
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.ForeColor = vbBlack End Sub Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.ForeColor = &H0& End Sub Private Sub Label1_Mous...
急求VB小程序。。。要 简单的
新建一个工程，表单里拉一个button,命名为btnDemo,写一行代码，即可执行。Private Sub btnDemo_Click()MsgBox ("Hello, China")End Sub
用VB做这个小程序怎么做啊??
用Webbrowser控件简单实现 新建工程(只有一个窗体)在工具箱中选右键菜单“部件”，先择“Microsoft Internet Control"，单击“应用”，工具箱中就多出一个控件："webbrowser"拖放一个Webbrowser，默认名为 WebBrowser1 代码：private sub form_load()const myurl="http:\/\/www.js-lottery.com\/view7....
vb做一个简单的小程序
Option Explicit Private Sub Form_Load()ShockwaveFlash1.Movie = "D:\\wwwroot\\KuFang\\images\\1.swf"ShockwaveFlash1.Menu = False ShockwaveFlash1.Playing = True End Sub Private Sub Timer1_Timer()End End Sub 建一个无边框窗体,复制上面代码进去就OK了 工程文件给你发过去了 后发的是修改过...
请大侠高手帮忙写个VB小程序,简单点的谢谢了!
If She(C).F = 1 Then Exit Sub She(C).F = 3 GFangXiang = True End Select End Sub Private Sub Form_Load()Me.AutoRedraw = True Me.BackColor = &HC000& Me.FillColor = 255 Me.FillStyle = 0 Me.WindowState = 2 Set Timer1 = Controls.Add("VB.Timer", "Timer1")Set ...
请帮我看下这个VB小程序!在线等!急!!!
k = Abs(i - j) = 2这种2等号以上的，是优先计算右边等号的吧？k=abs（3-1）=2，先abs（3-1）=2，这个成立，为true，赋值给K，所以“k=abs（3-1）=2”最终的结果是k没赋值前默认为false。所以它k(false)=true这表达式为false，所以每次都是到Else r(i, j) = 0 那里了 ...
一个VB小程序,请高手帮忙查错修改
一个VB小程序，需要高手帮忙检查错误并进行修改。代码如下：vb Dim x as long, y As long Private Sub Command1_Click()Text3.Text = x + y End Sub Private Sub Command2_Click()text1.text=""text2.text=""text3.text=""End Sub Private Sub Command3_Click()End End Sub Private Sub...
