VB简易程序设计代码

题目一：

Private Sub Text1_Change()

Text2Text = Text1Text

End Sub

题目二：

Private Sub Command1_Click()

Text1Text = "程序设计第一步：设计界面"

End Sub

Private Sub Command2_Click()

Text1Text = "程序设计第二步：属性设置"

End Sub

Private Sub Command3_Click()

Text1Text = "程序设计第三步：编写代码"

End Sub

题目三：

Private Sub Command1_Click()

Text1PasswordChar = ""

End Sub

题目四：

运行结果：

23

23

23

hellonihao

hellonihao

hello 100

helloI

100nihao

Inihao

先写这么多 - - 先睡觉去了。。。明儿再说！

请按以下步骤 *** 作：

打开vb新建一个工程，保存好

窗体上画一个一个命令按钮command1（命令按钮标题“隐藏”），一个标签label1，标签最好打几个字

双击命令按钮进入代码编辑器

写如下代码：

if command1caption='隐藏' then

label1visible=false

command1caption='显示'

else

label1visible=true

command1caption='隐藏'

end if

然后按f5执行就可以了，以上完全手打

在窗体中建立一个文本框text1,multiline属性为true,scrollBars属性为2－vertical

复制进如下代码：

Private

Sub

Form_Load()

Dim

a&,

b$

For

a

=

100

To

200

If

a

Mod

3

=

0

Then

b

=

b

&

Str(a)

Next

a

Text1Text

=

b

End

Sub

---------我是华丽丽的分割线--------

dim

a(1

to

10)

as

long

dim

Temp()

as

long

‘保存能被3整除的数

dim

s

as

string

dim

n

as

integer

for

i=1

to

10

a(i)=inputbox("Please

input

data!")

next

i

for

i=1

to

10

if

(a(i)

mod

2)

then

n=n+1

s=s

&

cstr(a(i))

&

","

end

if

redim

temp(n)

as

long

dim

v

v=split(s,",")

for

i=0

to

ubound(v)

temp(i)=v(i)

next

i

界面如上图所示， 其中公式用OLE 控件绘制，将该控件绘制到窗体中，点击右键，插入对象，选择microsoft 公式3 ，即可编辑。代码如下：

Private Sub Command1_Click()

Dim x, n As Integer

Dim p, q As Single

If (Val(Text1Text) >= 0) And (Val(Text1Text) >= 0) Then

n = Val(Text1Text)

x = Val(Text2Text)

p = x / n

q = f(n) / (f(x)  f((n - x)))  p ^ x  (1 - p) ^ (n - x)

Text3Text = q

End If

End Sub

Function f(n)

  Dim i As Long

  f = 1

  For i = 1 To n

      f = f  i

  Next

End Function

如有其它需要，请继续追问~~~

以下是代码：

Dim i As Integer  '存放秒值变量

Rem “开始”按钮对象中的程序

Private Sub Command1_Click()

i = Text1Text        '文本框对象中输入的秒值放入i变量

Timer1Enabled = True '使定时器开始工作进行循环

End Sub

Private Sub Command2_Click()

End

End Sub

Rem 定时器对象中的程序

Private Sub Timer1_Timer()

i = i - 1          '秒数递减

Text1Text = i     '将递减后的秒数值显示在文本框中

If i = 0 Then Timer1Enabled = False  '当秒值递减到0时关闭定时器，停止循环

End Sub

以上就是关于VB简易程序设计代码全部的内容，包括:VB简易程序设计代码、VB 编写一个简单程序,要求:单击命令按钮来显示或隐藏标签,具体点的解答过程,谢谢、用VB编写程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！