VB编程题目

Private Sub Command1_Click()

Label1.Caption = "多预习，问题在心中"

End Sub

Private Sub Command2_Click()

Label1.Caption = "认真听，知识记脑里"

End Sub

Private Sub Command3_Click()

Label1.Caption = "多练习，实践出真知"

End Sub

Private Sub Form_Load()

Label1.FontSize = 20

Label1.Caption = "欢迎学习Visual Basic"

Command1.Caption = "上课前"

Command2.Caption = "上课时"

Command3.Caption = "上课后"

End Sub

1、KeyPress

2、KeyAscii >=48 AND KeyAscii <=57

3、Text2.Text &Chr(KeyAscii)

以上是在Text2上将每次符合条件的字符都依次连接起来显示。如果是每次要在Text2上只显示一个字符，则将第3空改为：

Chr(KeyAscii)

源程序如下：

1. 利用InputBoxb函数输入3个数，存放到数值型变量中，然后对其进行比较。

2. 对三个数进行排序，只能通过两两对比，一般可用三条单分支IF语句来实现。

3 .要显示多个数据，可以用“；”逐一显示，也可利用“&”字符串连接将多个变量连接显示。

解题：

先在窗体上画一个按钮，代码如下：

Private Sub Command1_Click()

Dim x!, y!, z!

x = InputBox("input x")

y = InputBox("input y")

z = InputBox("input z")

Print " 排序前："x"  "y"  "z

If x <y Then t = x: x = y: y = t

If x <z Then t = x: x = z: z = t

If y <z Then t = y: y = z: z = t

Print " 排序后："x"  "y"  "z

End Sub

运行程序效果图如下：

扩展资料：

其他实现方法：

Private Sub Command1_Click()

Dim tmp, i, j As Integer '定变量

Dim a(2) As Integer '定数组

a(0) = x  

a(1) = y

a(2) = z  'xyz三个数赋值给数组，实际调试中用实际数字代替

For i = 0 To 1

For j = 1 To 2

If a(i) > a(j) Then

tmp = a(i)

a(i) = a(j)

a(j) = tmp

End If

Next j

Next i  '循环由小到大排序，估计这是考点

Print a(0)

Print a(1)

Print a(2) ，由小到大逐一打印

---