1楼：tian丫丫呀
不用算啊，你时钟始终是运行的 x值只会一直变大 你运行一秒结束 也可以 运行10秒结束也可以，所以结果都不确定
vb题，大佬进
2楼：听不清啊
执行语句后，会输出：0，0
x,y的值是：2，3
vb这题怎么做啊，大佬 20
3楼：tian丫丫呀
如图所示 在工具箱里拖出一个按钮 按f5运行程序 点击按钮1 窗体中显示14
4楼：匿名用户
1、启动vb
2、建立一个窗体文件
3、单击工具栏中命令按钮，再在窗体中画出按钮4、双击按钮打开**窗口，在命令按钮的click事件中写输入题中**，保存
5、运行(按f5)即显示结果。
vb题目，求大佬，如图
5楼：匿名用户
private sub ***mand1_click() '生成20个20~80之间随机数,按每行5个数输出到窗体
me.cls
dim a(20)
dim i as integer
for i = 0 to 19
randomize
a(i) = int(rnd * (80 - 20 + 1)) + 20
if i > 0 and i mod 5 = 0 then
end if
print a(i),
next i
end sub
private sub form_click()
me.cls
dim max, min, i, j, a(10), sum as integer
dim aver as single
a(0) = 15: a(1) = 23: a(2) = 72: a(3) = 43: a(4) = 96
a(5) = 23: a(6) = 3: a(7) = 65: a(8) = 88: a(9) = 17
max = a(0): min = a(0): sum = a(0)
for i = 1 to 9
if max < a(i) then
max = a(i)
end if
if min > a(i) then
min = a(i)
end if
sum = sum + a(i)
aver = format(sum / 10, "0.00")
next i
print "max = " & max, "min = " & min, "aver =" & aver
end sub
vb题求大佬帮忙,VB题，求大佬帮忙~
1楼 匿名用户 private sub mand1 click dim i as integer for i 0 to 9 list1 list i 10 int rnd 90 next end sub private sub mand2 click list2 clear dim i as int...
VB问题，求大佬解答,vb编程问题求大佬解答？
1楼 匿名用户 private sub mand1 click dim fh as string fh inputbox 请输入运算符 ， ， ， me cls select case fh case is me print val text1 val text2 val text1 val tex...
求大佬解决VB问题,求大佬解决一个VB问题
1楼 听不清啊 private sub mand1 click dim m as integer n as integer m inputbox 请输入矩阵的行数 n inputbox 请输入矩阵的列数 dim a 20 20 as integer m1 1 n1 1 m2 1 n2 1 rando...