vb程序设计确定命令图文（vb程序设计）

本文目录

• vb程序设计
• vb程序设计，急求！！给出代码，感激！
• 关于一个VB程序设计
• 使用VB进行程序设计有哪些步骤
• 怎么用vb做一个简单的程序
• VB程序设计问题
• VB程序设计编程!
• VB程序设计

vb程序设计

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a, b, c, d, x, y As Single
        a = Val(TextBox1.Text)
        b = Val(textbox2.text)
        c = Val(textbox3.text)
        d = Val(textbox4.text)
        x = Val(textbox5.text)
        y = a * x ^ 3 + b * x ^ 2 + c * x + d
       label1.text=y
    End Sub

vb程序设计，急求！！给出代码，感激！

’10个text1，1个命令按钮
Private Sub Command1_Click()
Dim I As Integer
Dim J As Long ’总共生成随机数的次数
Dim K As Integer ’生成座位
Dim s(12) As Integer ’座位中对应的人

For I = 1 To 10 ’按人选座位
Do
J = J + 1
Randomize
K = Int(Rnd * 12 + 1)
Loop While (s(K) 《》 0) ’当作为中已经有人，重新选座位
s(K) = I ’记录座位中的人
Next I
For I = 1 To 12
Text1(I - 1) = IIf(s(I) = 0, "Empty", Chr(64 + s(I)))
Next I
Debug.Print J
End Sub

关于一个VB程序设计

程序界面如上图所示：一个标签（名称为Label1)，三个复选框（名称分别为Check1、Check2和Check3,Caption属性分别为红、绿和蓝）一个命令按钮（名称为Command1,Caption属性为结束）,完成程序功能的代码如下：

Dim red As Integer

Dim green As Integer

Dim blue As Integer

Private Sub Check1_Click()

If Check1.Value = 1 Then

red = 255

Else

red = 0

End If

Label1.BackColor = RGB(red, green, blue)

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

green = 255

Else

green = 0

End If

Label1.BackColor = RGB(red, green, blue)

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

blue = 255

Else

blue = 0

End If

Label1.BackColor = RGB(red, green, blue)

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

red = 0

green = 0

blue = 0

Label1.BackColor = RGB(red, green, blue)

End Sub

使用VB进行程序设计有哪些步骤

可视化程序设计一般有一下步骤

1. 设计程序界面

2. 编写程序代码

3. 调试、运行程序；面向对象的程序设计以对象为中心，以事件为过程执行的起点

例题：

设计一个简易的打字测试程序，单击“开始”按钮，计时开始，输入字符；单击“结束”按钮，程序输出打字速度。

（1）启动VB，新建一个VB标准EXE工程。单击工具箱中的文本框控件（TextBox），将鼠标指针移到窗体上，拖动十字线在窗体上画出大小适当的控件。

（2）用同样的方法在窗体中添加两个命令按钮控件（CommandButton）、两个标签控件（Label）和一个文本框控件。

（3）通过属性窗口可以更改对象的原有属性。

（4）双击“frmTest”窗体中的“开始”按钮，打开对应的代码窗口。在对象中=列表框中选择“通用”，输入代码。

（5）在对象列表框中选择“cmdStart"，在过程列表框中选择”Click"事件。输入代码。

（6）保存工程，运行程序。

怎么用vb做一个简单的程序

加入标签Label1，Caption设置为“你好，请输入你的姓名”
加入文本框Text1，用来输入姓名的
加入标签Label2，按照你的要求设置字体属性，autosize属性设成true
分别加入确定，继续，结束按钮
以下是代码：
Private Sub Form_Load()
Me.结束.Visible = False
Me.继续.Visible = False
Label2.Visible = False
End Sub
Private Sub 继续_Click()
Me.结束.Visible = False
Me.继续.Visible = False
Label2.Visible = False
Me.确定.Visible = True
Label1.Visible = True
Text1.Visible = True
End Sub
Private Sub 结束_Click()
End
End Sub
Private Sub 确定_Click()
Label2.Caption = Text1.Text & "同学，你好，祝你学好vb程序设计"
Me.结束.Visible = True
Me.继续.Visible = True
Label2.Visible = True
Label1.Visible = False
Text1.Visible = False
Me.确定.Visible = False
End Sub

VB程序设计问题

窗体上添加Picture1控件，再添加Command1控件，右键点中Command1复制，粘贴三次，按图中排列好
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
Picture1.Cls
Picture1.Print "画直线"
Picture1.Line (Picture1.ScaleWidth * Rnd, Picture1.ScaleHeight * Rnd)-(Picture1.ScaleWidth * Rnd, Picture1.ScaleHeight * Rnd)
Case 1
Picture1.Cls
Picture1.Print "画矩形"
Picture1.FillStyle = 2 + Int(6 * Rnd)
Picture1.Line (Picture1.ScaleWidth * Rnd, Picture1.ScaleHeight * Rnd)-(Picture1.ScaleWidth * Rnd, Picture1.ScaleHeight * Rnd), , B
Case 2
Picture1.Cls
Picture1.Print "画圆"
Picture1.FillStyle = 2 + Int(6 * Rnd)
Picture1.Circle (Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2), Picture1.ScaleWidth / 2 * Rnd
Case 3
End
End Select
End Sub
Private Sub Form_Load()
Command1(0).Caption = "直线"
Command1(1).Caption = "矩形"
Command1(2).Caption = "圆"
Command1(3).Caption = "退出"
Me.Caption="控件数组"
End Sub

VB程序设计编程!

第一步：在窗体内放两个文本框，两个命令按钮，调整好控件大小和位置，名称就用系统默认的名称（text1、command1等）不要更改。
第二步，选中text1和text2，在右边下部的控件属性窗口中，找到multline属性，把他们的值设置为true。
第三步：
把下列代码放到代码窗口中：
private sub form_click()
command1.caption="复制"
command2.caption="退出"
text1.text=""
text2.text=""
end sub
private sub command1_click()
text2.text=text1.text
end sub
private sub command2_click()
end
end sub
这个程序可以运行了！
如果有什么问题请留言。

VB程序设计

我自能给亲说一下思路，，如图所示，应该建立2个form，第一个用于成绩显示查询，当然前提应该把成绩的数据库导入进去，如果这是老师要求的作业，用access数据库简单编几个数据就好了。当点击“生成图表”按钮时，form1隐藏，form2出现，坐标轴事先用line画好，生成一些标签，每个标签等长度，填充颜色：label.backgroundcolor(即标签背景颜色）=。。。。。（颜色自选）
label.length=label.length * （val(textbox1（即数学成绩的文本框）.text)\100)
就是先把label填充好颜色，再通过form1的text中的数值除以100来控制其长度就可达到该效果。当然，其他的成绩包括平均分的图表也是这样控制。