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

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

使用控件的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 bif a>c then
print a;c;b
else
print c;b;a
end if
'以下略
end sub