[09年VB上机题目懂VB的朋友请帮忙]反正现在有空。。。就帮楼上注释下吧 Private Sub Command1_Click() Dim i As Integer, a(1 to 10) As Integer '声明一个整型变量i和一个整型数组a，范围是a(1)-a(10)Open Ap...+阅读
Private Sub Form_Click() Dim imax As Integer, imin As Integer, s As Integer s = 0 imax = 49 imin = 101 Randomize For i = 1 To 20 n = Int(Rnd * 51) + 50 Print n; If i Mod 5 = 0 Then Print If imax < n Then imax = n If imin > n Then imin = n s = s + n Next i Print ＂最大值为＂ & imax Print ＂最小值为＂ & imin Print ＂平均值为＂ & s / 20 End Sub
VB的一道试题
9 9 6 4 9 6 你call了之后A对应X,A对应Y，它是动态的，当第一次x=x+2做完后x=3，然后A=3，那么此时Y其实不是1了而是3，在做y=y+2，做完y=5，换言之A=5，那么x也等于5，第二次call后，一开始x=7，此时y=7了，（为什么呢，你是在执行一次call后没有读到endsub，就在执行下一次call了，）在执行y=y+2后，y=9.那么x=9. 所以 Print X, Y就是第一行9 9,,,,Print B, C由于c是静态变量第一次执行后市2，在执行一次后市4，而第一次执行b=b+2时，b=2+2就是4，第二次call执行后市4+2就是6，，，，第三行跳出自定义函数后应为x=9，所以A就是9，而b还是6
拜托了。VB考试题。高手留QQ
代码是：
Private Sub Command1_Click() Dim a As Single, b As Single, c As Single For a = 1 To 19 For b = 1 To 94 For c = 1 To 188 If flag(a, b, c) Then i = i + 1 End If Next c Next b Next a Print ＂所有的方案有＂； i； ＂种＂ End Sub
Function flag(x As Single, y As Single, z As Single) As Boolean If x * 5 + y * 1 + z * 0.5 = 100 Then flag = True Else flag = False End If End Function
Private Sub Command2_Click() End End Sub
效果：
因为太多无法全部输出，如果需要，请画个文本框把方案在文本框上显示出来。
在 If flag(a, b, c) Then 下面加入：
text1.text=text1.text+＂5元＂ + Str(i) + ＂张＂ + ＂1元＂ + Str(j) + ＂张＂ + ＂0.5元＂ + Str(k) + ＂张＂+vbcrlf
记得设置文本框的多行显示.
以下为关联文档：
考试考完后老师要我们写题目不应该错的题目怎么写检讨书急这么写：亲爱的老师，这次考试，我没有达到目标分，证明，这段时间，我没有好好学，没有认真学，没有用心学，对学习的态度，没有调整好，对自己看得太高，才会忽略了学习，以后一定再接再厉，刻苦钻研，多...
求助大神！雅思口语考试的题目请求帮助急等ing对于小孩来说，一些搞笑的图片或者动画，其中一些幽默的话语会让他们乐的天翻地覆 好比如说Tom and Jerry，甚至没有语言也能让他们乐。而adult会觉得很无聊，很幼稚。 Between the...
vb上如何做这三道题求解。谢谢真心不想学vb1.dim r as single dim l as single dim s as single r=val(text1.text) l=2*pi*r s=pi*r*r 2.dim gewei as Integer dim shiwei as Integer dim baiwei as Integer dim num...
几个题目求解！达人帮忙3.B 因为硅胶有吸水性，硫酸亚铁可防氧化，无水硫酸铜不具吸水性，用于检验水的存在。 4.D题目不清，但是Fe3+可以将S2-氧化，生成S单质和二价铁，若S2-过量，可生成FeS沉淀，Al2S3在水溶液...
求解离散数学题目证明：对于任意的正整数 a,b,c,d,m,n (1) 因为 ab=ba 所以<<a,b>,<a,b>>；€R 即R满足自反性 (2)如果 ad=bc 那么cb=da 所以 如果<<a,b>,<c,d>>；€R 必有<<c,d>,<a,b>>；€R...
向您请教。结构力学求解自振频率的题目。急急急重金追加第一个：单自由度静定结构，左半边基本结构，右半边附属结构，把质点换成竖向单位力1，做出结构单位弯矩图，自身图乘得出系数&11，自振频率w=(1/m&11)^1/2。 第二题：单自由度超静定结构，同...
会计学原理题目求解1.借：银行存款150000 贷：实收资本150000 2.借：长期借款50000 贷：银行存款50000 3.借：固定资产30000贷：银行存款30000 4.借：银存100000 贷：长期借款100000 5.借：银行存款30000贷：应收帐...
大学语文考试题目急1。诗中景物描写和情感抒发的有机结合，达到了十分完美的程度。在诗歌的第二段，通过行程、景物、季节、气候的描写和诗人心灵思想的抒发，我们仿佛看到了一位饱经沧桑，孤立无助，登...
数学建模题目求解设物体温度为T，温度变化率就是 dT/dt 其中t为时间，水的温度为T1，则鸡蛋与水温差为 T-T1 由题意有： T-T1=kdT/dt （其中k为比例常数） （1） 方程（1）化为 ： dt=kdT/(T-T1) (2) 对（2）两边同时积...
