当前位置 > 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