vb Private Sub Command1_Click()

囡囡秋儿2022-10-04 11:39:541条回答

vb Private Sub Command1_Click()
Private Sub Command1_Click()
On Error Resume Next
Shell "C:Program FilesInternet ExplorerIEXPLORE.EXE http://www.***.com"
ys 5【重点是ys 】

已提交，审核后显示！提交回复

angelxiaoxiaohui 共回答了13个问题 | 采纳率92.3%: 显然不是你自己的代码!
查了 MSDN,shell 的第二个参数
Shell 常数
可在代码中的任何地方使用下列常数代替实际值：
常数值描述
vbHide 0 窗口是隐藏的,并且焦点被传递给隐藏窗口.
vbNormalFocus 1 窗口拥有焦点,并且恢复到原来的大小与位置.
vbMinimizedFocus 2 窗口缩小为图符并拥有焦点.
vbMaximizedFocus 3 窗口最大化并拥有焦点.
vbNormalNoFocus 4 窗口被恢复到最近一次的大小与位置.当前活动窗口仍为活动窗口.
vbMinimizeNoFocus 6 窗口缩小为图符.当前活动窗口仍为活动窗口.; 1年前

VB Private Sub Command1_Click()Dim x As Integerx = 15768Prin VB Private Sub Command1_Click() Dim x As Integer x = 15768 Print pt(x) End Sub Private Function pt(x As Integer) If x < 100 Then pt = x Mod 100 Else pt = pt(x 100) * 10 + x Mod 10 Print pt End If End Function 为什么打印三次结果分别是 17 178 178 armordblueheart1年前1: sugarmiracle 共回答了10个问题 | 采纳率100%

这是一个递归函数,
分别解释
x100结果是x除以100取整,
x Mod 100结果是x除以100取余数,
x Mod 10结果是x除以10取余数,
第一次运行pt
x=15768,
x Mod 100不计算
x 100=157,
注意这里开始递归,又一次需要计算pt,所以再次进入pt ,可以这样理解x Mod 10已经计算得到8就等这次pt的结果了并没有运行下一步Print pt
第二次运行pt
x=157,
x Mod 100不计算
x 100=1,
注意这里又开始递归,又一次需要计算pt,所以再次进入pt ,可以这样理解x Mod 10已经计算得到7就等这次pt的结果了并没有运行下一步Print pt
第三次运行pt
x=1,
这次运行的是
pt = x Mod 100
结果是pt=1
返回到第二次
pt=1*10+7=17
打印17
这是递归没结束pt=17还要
返回到第一次
pt=17*10+8=178
打印178
递归结束返回（pt=178）
你的上一步还有一个
打印178（所以这里还有一次178）

1年前查看全部

vb Private Sub Command1_Click()

共1条回复

相关推荐

大家在问