当前位置 > vb程序题vb程序题解题技巧

• 

  vb程序题 解解

  Private Sub Command1_Click() h = Val(InputBox("请输入笔的总数量")) f = Val(InputBox("请输入总价")) For i = 1 To h '铅笔数量 For i1 = 1 To h '圆珠笔数量 If i * 0.5 + i1 * 1 = f Then '假如总价符合则得出结果 i2 = i2 + 1 '统计有几种结果 Print &q...

  2024-08-27 网络 更多内容 673 ℃ 487
• 

  求VB大神,一道程序题

  界面自己做,"计算”按钮的代码如下:Private Sub Command1_Click()  Text1 = ""  For a = 1 To 9    For b = 0 To 9      For c = 0 To 9        If a * a * a + b * b * b + c * c * c = 100 * a + 10 * b + c Then ...

  2024-08-27 网络 更多内容 557 ℃ 129
• 

  VB程序题

  答案分别为 p+1 p*m n=p 完整源码如下 Private Sub Form_Click() Dim s As Single, m As Integer, p# s = 1 For m = 1 To 10 '**********SPACE********** p = p + 1 s = s + 1 / p Next m Print s End Sub Function n(k%) p = 1 For m = 1 To k '**********SPACE********** p = p * m Next m...

  2024-08-27 网络 更多内容 491 ℃ 942
• 

  VB程序题

  用对比或者排序都可以啊。 下面max:最大值 wordmid:中间值 min:最小值 if a>b then max=a if a>c then max=a if b>c then max=a min=c wordmid=b else max=a min=b wordmid=c end if else max=c min=b wordmid=a end if else max=b if b>c then max=b if a>c then max=b mi...

  2024-08-27 网络 更多内容 815 ℃ 824
• 

  VB的程序题求解释

  你好,你的sub test 过程中最后输出就是过程后结果的。Sub test()     a = a + 1     b = b + 1    c = a + b    Print&nb...

  2024-08-27 网络 更多内容 444 ℃ 439
• 

  vb程序题

  楼上回答不错 只是需要稍作改动 Option Explicit Private Sub Command1_Click() Dim i, a, b a = InputBox("请任意输入一个整数") For i = 1 To Len(a) b = Mid(a, i, 1) + b Next i If Left(a, 1) = "" Then b = "" & Left(b, Len(a) 1) MsgBox Len(a) 1 & ","...

  2024-08-27 网络 更多内容 398 ℃ 431
• 

  一道VB程序题

  Private Sub Command1_Click() Dim x(10) As Integer Dim strtemp As Integer Dim tem As String Dim i, j As Integer For i = 0 To 9   x(i) =

  2024-08-27 网络 更多内容 778 ℃ 162
• 

  急求一份vb程序题答案!

  先编写计算阶乘的函数sss() Private Function sss(tt As Long) As Long '用递归法计算阶乘 If tt = 1 Then sss = 1 Else sss = tt * sss(tt 1) End If End Function 下面是计算求和部分 Private Sub Command1_Click() Dim i As Long, j As Long, sum As Long sum = 0 For i = 1 To 10 For j = 1 T...

  2024-08-27 网络 更多内容 770 ℃ 345
• 

  设计一个VB程序题

  退出程序 MMControl1.Command = "close" '关闭播放器设备 MMControl1.Shareable = True '允许别人使用播放器 End End Sub Private Sub Form_DblClick()'双击退出 MMControl1.Command = "close" '关闭播放器 MMControl1.Shareable = Tru...

  2024-08-27 网络 更多内容 611 ℃ 280
• 

  vb阅读程序题

  结果为10 12 14分析:For i = 1 To 3      Print F(a); //3次调用F(a)   Next i 第一次调用 a=5所以是F(5) b=2 b=b+1=3 c=c+2=2 '静态变量,初值为0 F=a+b+c=5+2+3=10 结果为10 第二次调用 因为F(a)是传值,所以a不变 a=5所以仍是F(5) b=2 b=b+1=3 c=2+2=4 &...

  2024-08-27 网络 更多内容 340 ℃ 653