Question

VB中如何用代码给文字添加删除线？

Answer 1

VB中用代码方式给文字添加下划线和删除线，代码如下：
//Underline属性添加下划线
Private Sub Check1_Click()
Label1.Font.Underline = IIf(Check1.Value = vbChecked, True, False)
End Sub
//Strikethrough属性添加删除线
Private Sub Check2_Click()
Label1.Font.Strikethrough = IIf(Check2.Value = vbChecked, True, False)
End Sub

Answer 2

使用控件的FontStrikethru属性即可设置删除线
数值排序方法很多，我用冒泡法。三个数排序直接比较就行了
Sub
Command1_click
Dim
a,
b,
c
a
=
inputbox("请输入第一个数")
b
=
inputbox("请输入第二个数")
c
=
inputbox("请输入第三个数")
If
a>b
and
b>c
then
Print
a;b;c
end
if
if
a>b
and
b
c
then
print
a;c;b
else
print
c;b;a
end
if
'以下略
end
sub