求大佬解决VB编写程序的问题,求大佬解决一个VB编写程序的问题

2021-01-25 12:11:15 字数 2326 阅读 7514

1楼:志在必得

dim zz as integer '计数用private sub ***mand1_click()if lcase(text1.text) = "user" then '无论大小写,均转换为小写判断

if text2.text = "888" then '判断密码正确

msgbox ("登录成功,欢迎使用系统!")else

zz = zz + 1

if zz <= 3 then

msgbox ("请重新输入密码")

text2.text = ""

else

endend if

end if

else

msgbox ("用户名错误,请重新输入")text1.text = ""

text2.text = ""

end if

end sub

求大佬解决一个vb问题

2楼:听不清啊

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

randomize

for i = 1 to m

for j = 1 to n

a(i, j) = rnd * 90 + 10

print a(i, j);

if a(i, j) > a(m1, n1) then m1 = i: n1 = j

if a(i, j) < a(m2, n2) then m2 = i: n2 = j

next j

print

next i

print

print "最大值: a(" & m1 & "," & n1 & ")=" & a(m1, n1)

print "最小值: a(" & m2 & "," & n2 & ")=" & a(m2, n2)

end sub

vb编程问题求大佬解答?

3楼:匿名用户

溢出错误就是变量定义的类型太小 不够承载其数值大小 你运行后看黄色错误行落在哪一行 再去分拆公式看具体错误是由于哪个变量导致的 再做修改

一道vb编程题目 求大佬解答!!!

4楼:听不清啊

privatesub***mand1_click()dimxasinteger,yasintegerx=inputbox("请输入一个正整数:")t=x

y=0

doy=y*10+tmod10t=t\10

loopwhilet>0

msgboxx&"的逆序数是:"¥dsub

求大佬的帮助!vb程序!

5楼:匿名用户

privatesubc1_click()image1.height=image1.height+100

image1.width=image1.width+100endsub

privatesubc2_click()ifimage1.height-100>=0andimage1.width-100>=0then

image1.height=image1.height-100

image1.width=image1.width-100endif

endsub

privatesubform_load()image1.stretch=trueimage1.height=1900

image1.width=1700

endsub

求大佬们帮忙vb程序!完整的程序!

6楼:烂掉の萝卜

按**上把控件自己画好。

private sub c1_click()dim i as long, sum as longfor i = 1 to 5000

if i mod cb1.text = 0 thensum = sum + i

end if

next

text1.text = sum

end sub

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...

VB题,求大佬解释,求大佬解释以下vb代码,每一步的详细解释!!!

1楼 好人缘好让他 2 4 诗中亲情2 5 诗中乡情2 6 作者出处2 7 三境界2 8 正所谓 猜你关注唐诗宋词 中国文学史上的两颗明珠 编辑唐诗宋词是中国文学史上的两颗明珠,唐代被称为诗的时代,宋代被称为词的时代。 词源于民间,始于唐,兴于五代,盛于两宋。宋代物质生活的丰富,人们对文化生活的追求...