VB的计算题求高人解答！！！

[1/2]<script>
function fRandomBy(under, over){
return parseInt(Math.random()*(over-under+1) + under);
}

function getNums(j,under,over){
var arr=new Array();
for(var i=0;i<j;i++){
arr[i] =

举报该问题

其他回答

第1个回答 2011-10-13

这是VB的计算题? 楼主你太坑爹了.

第2个回答 2011-10-13

...............

相似回答

VB中计数循环问题,求解答：我们一步一步分析:先看:For j = 1 To 4 a = a + 1 Next j 因为循环4次,所以这个结果是4 再看:For j = 1 To 4 If j Mod 2 <> 0 Then a = a + 1 End If a = a + 1 Next j 增加的部分就是当j = 1和j = 3,一共两次,所以结果在原来4的基础上加2 ,得到 6.最后看...

遇VB难题,难倒全寝女生,请高人解答下。答：当k=0,A(1)=2,B(3)=A(1)=2;当k=1,A(2)=4,B(2)=A(2)=4;当k=2,A(3)=6,B(1)=A(3)=6.再看输出语句：Print B(k)由于前面循环已经使k=3的时候才结束循环，所以此时k=3，B(k)=B(3)=A(1)=2 所以输出为2.

用vb编写小算法,根据父母身高,算自己的身高,求高人指点。。。_百度知...答：将vb设置成以上界面，输入以下代码 Dim Isboy As BooleanPrivate Sub Command1_Click()Dim a, b, c As IntegerIf Isboy = True Thena = Text1.Textb = Text2.Textc = (Val(a) + Val(b)) / 2 * 1.08Label3.Caption = "您未来的身高为： " & cElsea = Text1.Textb = Text2....

VB脚本做的循环加法计算问题答：第一次循环：for i=0 to 5 'i=0 i=i+1 'i=1 sum=sum+i 'sum=1 next i'i=2 第二次：for i=0 to 5 'i=2 i=i+1 'i=3 sum=sum+i 'sum=1+3=4 next 'i=4 第三次：for i=0 to 5 'i=4 i=i+1 'i=5 sum=sum+i 'sum=4+5=9 next 'i=6'结束循环，所以...

求高人指点,VB中,随机输入一个日期,怎么计算与当前日期的差值,并表现...答：假定Text1用来输入日期，Text2用来输出这个日期跟当前日期相差的天数，Command1用来执行：Private Sub Command1_Click()If IsDate(Text1.Text) Then Text2.Text = CDate(Text1.Text) - Now Else MsgBox "你输入的日期格式有误！"End If End Sub 当然咯，根据所输入日期与当前日期的前后关系，结果...

要考2级VB了~~有几道不会的题~200分奉上~答：z=x<y 由于 x<y 成立，所以 z为真，而z 为整形，VB 中规定 “真”转换为整形为－1，假为 0 5） 5 Private Sub Command1_Click()Static x As Integer Cls End Sub 运行后连续3次单击COMMAND1按钮后窗体显示的为什么是 12 18 请解答下计算的过程~~~第一次点击 command1 :i=0 时...

VB题求讲解答：Private Sub command1_click()For i = 1 To 4 '4个循环 For j = 4 To 8 '5个循环 sum = sum + 1 '也就是20个循环，1累加20次 Next j Next i Print sum '结果是20 End Sub

【急!!!】VB,求输入n个数的个位数的和答：Private Sub Command1_Click()Do t = Val(InputBox("请输入数字输入-1时结束"))Do While t > 0 k = t Mod 10 Sum = Sum + k t = t \ 10 Loop Loop Until t = -1 Print "各位数字个位和为："; Sum End Sub

急求VB。通过随机函数在1~100之间产生的30个随机整数,求出平均值,并将...答：Private Sub Command1_Click()Dim i As Integer, x As Integer, s As Long Randomize For i = 1 To 30 x = Int(Rnd * 100) + 1 Print x,If (i Mod 5) = 0 Then Print s = s + x Next Print "平均数="; s / 30 End Sub ...

大家正在搜

物理计算题解题方法分式方程计算题及答案百分数60计算题及答案整式的加减计算题二元一次计算题带答案计算题乘除法计算题百分数计算题计算题四年级

VB的计算题 求高人解答！！！

VB的计算题求高人解答！！！