Question

VB 字体 IF

Private Sub Command1_Click()
a = A4
b = B3
c = C2

If a = A0 Then 'A
Text1.Font = "黑体"
ElseIf a = A1 Then
Text1.Font = "宋体"
ElseIf a = A2 Then
Text1.Font = "隶书"
ElseIf a = A3 Then
Text1.Font = "幼圆"
ElseIf a = A4 Then
Text1.Font = "华文行楷"
End If
If b = B0 Then 'B
Text1.FontSize = 16
ElseIf b = B1 Then
Text1.FontSize = 20
ElseIf b = B2 Then
Text1.FontSize = 24
ElseIf b = B3 Then
Text1.FontSize = 26
ElseIf b = B4 Then
Text1.FontSize = 28
End If
If c = C0 Then 'C
Text1.ForeColor = vbRed
ElseIf c = C1 Then
Text1.ForeColor = vbBlue
ElseIf c = C2 Then
Text1.ForeColor = vbYellow
ElseIf c = C3 Then
Text1.ForeColor = vbGreen
ElseIf c = C4 Then
Text1.ForeColor = vbBlack
End If
End Sub

为什么每次执行后 就只显示每个IF的第一句语句，而不是如定义的 a b c那样去执行所对应的IF后语句？
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
a = A0
Case 1
a = A1
Case 2
a = A2
Case 3
a = A3
Case 4
a = A4
End Select
End Sub

这是该程序的前提条件 就是不明白怎样给a赋值后能用到IF段落中去

Answer 1

你上面的 A4 B3 C2 是定义的数组吗?如果是定义的数组，那么你这个数组的定义有问题！

定义数组如下：
dim a(4) as Integer
dim b(3) as Integer
dim c(2) as Integer

如果不是定义的数组，那么我看不出你的目的，不好建议，建议介绍清楚或把代码全部贴出来！！

希望能帮到你!!!!

Answer 2

A4、B3之类的都是变量名还是值？变量名的话之前赋值了吗？仔细说说啊

你那赋值语句不对吧，没有引号啊？不是个字符串也就是说是另外四个变量，那么这四个变量啥值？你这样写就是 A=A0，因为没有赋值过，所以默认都是零，不会等于其他的了

Answer 3

a = A4左边是变量 右边也是变量

我想你将 等号右边都用 引号引起来 如 a="A4" 就能得出你想要的结果

Answer 4

vb中字符的表示需要加引号
如：
a ="A4"
b = "B3"
c = "C2"
If a = "A0" Then