VB中的多个combobox的选值进行相加的问题 - 编程论坛

#2

风吹过b2021-08-18 19:11

简单粗爆的写法

x=0
if combo1.value="A" then               '如果等于A
  x=x+1                                '加 1
elseif combo1.value="B" then           '否则如果等于B
  X=x+2                                '加 2
end if
if combo2.value="A" then
  x=x+1
elseif combo2.value="B" then
  X=x+2
end if
if combo3.value="A" then
  x=x+1
elseif combo3.value="B" then
  X=x+2
end if
------------------
当 combo的值不为A或B时，将忽略掉

或者简化一下代码：
x=0
if combo1.value="A" then  x=x+1      '如果等于A，加1。必然不会再等于B了，下句就判断为否
if combo1.value="B" then  x=x+2      '如果等于B，加2。必然上一句里不等A，加1就没有执行
if combo2.value="A" then  x=x+1
if combo2.value="B" then  x=x+2
if combo3.value="A" then  x=x+1
if combo4.value="B" then  x=x+2

#3

lliiss6812021-08-19 08:46

回复 2楼风吹过b

哇！版主回复，受宠若惊啊，小白试一下，感谢赐教

#4

lliiss6812021-08-19 09:13

回复 2楼风吹过b

版主，还是上面这个问题，我怎么看这个x被加成功了，就是想用把x赋值给label进行显示结果，是Label1.Caption = x吗？x是不是首先要先定义一下是个变量啊，Dim x As Integer

#5

apull2021-08-19 12:47

vb里如果没有设置强制变量定义。可以直接使用，默认类型是Variant。

#6

lliiss6812021-08-19 13:17

按照建议的思路，在一个combo控件里编写了以下语句，怎么把这个X赋值给其它窗体来用啊？
Private Sub combo1_Change(Index As Integer)
x = 0
If combo1.Text = "4" Then
x = x + 4
ElseIf combo1.Text = "8" Then
  x = x + 8
ElseIf combo1.Text = "16" Then
  x = x + 16
ElseIf combo1.Text = "32" Then
  x = x + 32
ElseIf combo1.Text = "64" Then
  x = x + 64
ElseIf combo1.Text = "0" Then
  x = x + 0
  Else: x = x + 0
End If
x = x + 1
MsgBox x
End Sub

[此贴子已经被作者于2021-8-19 13:36编辑过]

#7

风吹过b2021-08-19 17:43

判断一个变量或属性，有多种可能，可以使用 select case 代码组。
Private Sub combo1_Change(Index As Integer)
x = 0
select case combo1.Text
case  "4"
  x = x + 4
case  "8"
  x = x + 8
case  "16"
  x = x + 16
case  "32"
  x = x + 32
case  "64"
  x = x + 64
case  "0"
  x = x + 0
case Else
   x = x + 0
End select
x = x + 1
MsgBox x
End Sub

----------
如果X需要其他窗体使用，需要在窗体第一个过程（函数）前面使用 pulic 定义
public x as long

其他窗体使用时，使用窗体名.x 的方式进行使用。

#8

lliiss6812021-08-20 15:15

回复 7楼风吹过b

感谢！已经实现了功能，我想把水果的价格= 变量a赋值给textbox怎么写，我写的老有错