用VB写成的程序,最小是多少K

Min = K End If Next MsgBox "最大数为：" & Max & vbCrLf & "最小数为：" & Min, vbOKOnly, "输出"End Sub

vb做的小程序代码简单到一定程序之后，生成的exe都会是16k。我想楼主的意思肯定是问为什么程序不一样，生成的文件大小都一样。其实vb生成的exe文件中有很多字节是用0字节来充数的（可以用ultraedit打开），具体原因我也不清楚

这里表示满足条件的话，k进行递加循环计数。

这个程序效率很高， 给几个结果 k n 1 2 2 4 3 11 。。。 。。。10 12367 。。。 。。。20 272400600 Private Sub Form_Load()End Sub Private Sub Command1_Click()sn = 0 k = Val(Text1.Text)J = 1 While sn <= k sn = sn + 1 / J J = J + 1...

Text1 = Text1 & vbCrLf & "最大：" & da & vbCrLf & "最小：" & xiao & vbCrLf & "平均：" & s / n End Sub Private Sub Form_Load()Label1 = "输入随机数个数:"Text2 = 0 Text1 = ""Command1.Caption = "生成随机数"End Sub 不用数组的话直接在第一个for里让text1= ...

If max < a(i) Then maxi = i max = a(i)End If Next For i = 1 To 10 temp = temp & a(i) & " "Next temp = "这十个数是：" & temp & "最大数" & max & "的位置在" & maxi & " " & "最小数" & min & "的位置在" & minj MsgBox temp End Sub ...

dim a(96) as string,i as integer,k as integer k=101 for i=0 to 45 a(i)="0843" + cstr(k)k=k+1 if k=102 then k=k+1 if k=103 then k=k+1 if k=104 then k=k+1 if k=106 then k=k+1 if k=135 then k=k+1 if k=147 then k=k+1 next i k=201 for...

在结合 下面一句 if i〈〉k then kt =d（i）：d（i）=d（k）：d（k）=kt 就是如果k的值发生变化 则交换这2个数 这样就会把最小的那个数依次存放，也叫冒泡输出法。故选A 另外如果你看到这种句式kt =d（i）：d（i）=d（k）：d（k）=kt 就是交换2个数的意思。望...

min = 99 For i = 0 To 9 a(i) = Int(Rnd() * 89 + 10) ' 产生10-99的10个两位随机数 If a(i) >= max Then max = a(i) '比较求最大值 If a(i) <= min Then min = a(i) '比较求最小值 Print a(i); '输出产生的10个两位随机数 Next i Print("max="...

设置表达式前缀为K。⑶. K=8*EXP(x)/log(2)⑸. K=log(x)/log(10)+sin(33*3.1415926/180）⑺. K=log(abs((exp(x)+sin(3*x))/(x+y))) 'sin(3*x)中X为弧度，如果是角度，则需要*π/180 别忘了采纳哦