育才学习网1.vb代码怎么写
Private Sub Command1_Click()
Text1.Text = Replace(Text1.Text， [要查找的字符]， [要替换的字符])
End Sub
'--------------------------------
'Replace函数
'描述
'返回一个字符串，该字符串中指定的子字符串已被替换成另一子字符串，并且替换发生的次数也是指定的。
'语法
'Replace(expression, find, replacewith[, start[, count[, compare]]])
'Replace函数语法有如下几部分：
'部分 描述
'expression 必需的。字符串表达式，包含要替换的子字符串。
'find 必需的？要搜索到的子字符串？
'replacewith 必需的？用来替换的子字符串？
'start 可选的。在表达式中子字符串搜索的开始位置。如果忽略，假定从1开始。
'count 可选的。子字符串进行替换的次数。如果忽略，缺省值是 –1，它表明进行所有可能的替换。
'compare 可选的。数字值，表示判别子字符串时所用的比较方式。关于其值，请参阅“设置值”部分。
'设置值
'compare参数的设置值如下：
'常数 值 描述
'vbUseCompareOption –1 使用Option Compare语句的设置值来执行比较。
'vbBinaryCompare 0 执行二进制比较。
'vbTextCompare 1 执行文字比较。
'vbDatabaseCompare 2 仅用于Microsoft Access。基于您的数据库的信息执行比较。
'返回值
'Replace的返回值如下：
'如果 Replace返回值
'expression长度为零 零长度字符串（""）。
'expression为Null 一个错误
'find长度为零 expression的复本
'replacewith长度为零 expression的复本，其中删除了所有出现的find 的字符串。
'start > Len(expression) 长度为零的字符串。
'ount is 0 expression.的复本。
'说明
'Replace函数的返回值是一个字符串，但是，其中从start所指定的位置开始，到expression字符串的结尾处的一段子字符串已经发生过替换动作。并不是原字符串从头到尾的一个复制。
2.vb6.0代码怎么写
算了贴出来吧 也不多 在按钮事件里加入
Private Sub Command1_Click()
Dim n As Long
n = Val(Text1.Text)
Text2.Text = CStr(n)
If n = 4 * 4 Then
Text2.BackColor = &HFF&
Else
Text2.BackColor = &HFFFF&
End If
End Sub
3.VB代码怎么写
Private Sub Form_Load()
'用Label1假定是你的灯， 初始是黑色背景，灯灭
Me.Label1.BackColor = vbBlack
End Sub
Private Sub Label1_Click()
'鼠标点击“灯”，如果背景为黑色，，灯灭
If Me.Label1.BackColor = vbBlack Then
'使背景变为红色，灯亮
Me.Label1.BackColor = vbRed
Else '如果背景不为黑色：设背景为黑色，灯灭
Me.Label1.BackColor = vbBlack
End If
End Sub