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(text2)
case is = "-"
me.print val(text1) & " - " & val(text2) & " = " & val(text1) - val(text2)
case is = "*"
me.print val(text1) & " * " & val(text2) & " = " & val(text1) * val(text2)
case is = "/"
me.print val(text1) & " / " & val(text2) & " = " & val(text1) / val(text2)
case else
me.print "你没有正确输入运算符"
end select
end sub
private sub ***mand2_click()
me.cls
me.print "知识改变命运，技术改变生活。"
end sub
private sub ***mand3_click()
endend sub
private sub form_load()
text1 = "123"
text2 = "23"
***mand1.caption = "计算"
***mand2.caption = "格言"
***mand3.caption = "结束"
end sub
vb编程问题求大佬解答？
2楼：匿名用户
溢出错误就是变量定义的类型太小 不够承载其数值大小 你运行后看黄色错误行落在哪一行 再去分拆公式看具体错误是由于哪个变量导致的 再做修改
求大佬解决一个vb问题
3楼：听不清啊
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
next i
print "最大值： a(" & m1 & "," & n1 & ")=" & a(m1, n1)
print "最小值： a(" & m2 & "," & n2 & ")=" & a(m2, n2)
end sub
求大佬解答关于java中abstract的问题
4楼：匿名用户
抽象类是不能实例化的，要想创建一个 b 对象，需要将类b变成一个普通类 ，去掉关键字 abstract, 实现 父类的 m1 方法。
5楼：育知同创教育
正确的写法应该是
//多态
aa=newb(){};
定义抽象类与接口紧密相关，它们不能实例化，并且常常部分实现或根本不实现。抽象类和接口之间的一个主要差别是：类可以实现无限个接口，但仅能从一个抽象（或任何其他类型）类继承。
从抽象类派生的类仍可实现接口。可以在创建组件时使用抽象类，因为它们使您得以在某些方法中指定不变级功能，但直到需要该类的特定实现之后才实现其他方法。抽象类也制定版本，因为如果在派生类中需要附加功能，则可以将其添加到基类而不中断**。
vb 求大佬解答为什么我点诊断没反应 挺急的
6楼：
一：电脑中bai
病毒导致电脑越来越du卡，有一种攻zhi
击可以使网络瘫痪，那dao就是版
成千上万次的重复访问!病权毒就是这样，大量的在电脑中运行病毒程序，有一个问题可以使电脑停滞，相当于大量的程序在内存里排队堵塞了“交通”，就像前面一场车祸没来的及处理，后面的车一下子排起了长龙，短时间内都难以疏通一样!
二：电脑中存在大量垃圾文件
有网友认为电脑系统卡是自己遭到木马病毒破坏，但是扫描系统后电脑卡的问题依然没有解决。其实电脑卡的原因不止是木马病毒导致，网民还需要对电脑c盘清理以及整个系统优化，这就是所谓的电脑系统垃圾，经常保持定期清理系统垃圾，可以有效提高系统稳定性。
7楼：匿名用户
如果没有执行 就说明你if 条件并没有满足 检查你文本是否前后有空格 导致条件不成立
好像是多了一个句号
8楼：polaris北斗
你没有写诊断按钮的事件吧
9楼：匿名用户
你系统是64位的吗？
vb题目求大佬解答
10楼：匿名用户
substradd(s1asstring,s2asstring)
dimtempasstring
staticiasinteger
i=i+1
temp=mid(s1,i,1)
iftemp<>""thencallstradd(s1,s2)
s2=s2&temp
endsub
submain()
dims2asstring
callstradd("abcdef",s2)debug.prints2
endsub
结果是倒序字符串
你可以f8单步跟踪就能明白。
一道vb编程题目 求大佬解答！！！
11楼：听不清啊
privatesub***mand1_click()dimxasinteger,yasintegerx=inputbox("请输入一个正整数：")t=x
y=0
doy=y*10+tmod10t=t\10
loopwhilet>0
msgboxx&"的逆序数是："¥dsub
求vb大佬看看这哥问题如何解决 谢谢！！
12楼：匿名用户
public function jiecheng(byval n as integer) as integer
dim jc as integer = 1
for i = 1 to n
jc = jc * i
next
return jc
end function
public function jiecheng(byval n as integer) as double
dim jc as double
jc = 1
for i = 1 to n
jc = jc * i
next
jiecheng = jc
end function
private function factorial1(intn as integer) as integer
'采用递归计算阶乘
if intn = 0 then
factorial1 = 1
else
factorial1 = factorial1(intn - 1) * intn
end if
end function
给你几个阶乘的函数，你可以直接调用阶乘的函数去做哦
13楼：匿名用户
option explicit
private sub ***mand1_click()
dim m as double, n as double
inputdata m, "m"
inputdata n, "n"
if m < n then
print "***bination(" & m & "," & n; ")=" & 0
else
print "***bination(" & m & "," & n; ")=" & factorial(m) / (factorial(n) * factorial(m - n))
end if
end sub
public sub inputdata(byref t, byval char as string)
t = inputbox(char + "=", "输入框", 25)
if int(val(t)) <> val(t) or val(t) < 0 then
msgbox "数据错误！
请重新输入：", 16
inputdata t, char
end if
end sub
public function factorial(byval r)
dim i as integer
factorial = 1
for i = 1 to r
factorial = factorial * i
next i
end function
vb上面的一个问题 求答案
14楼：随风v随梦
如果对保密要求不是很高的话，推荐用二进制文件进行存储（就是txt文件稍微改下后缀如：1.mpd），操作都比较方便。
附上自己收集的数据库操作**：
引用microsoft activex data objects 2.8 library
'*****==连接access*****==
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '数据文件的地址
'rs.close
'*****==读取access的记录数*****==
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.
oledb.4.0;data source=s:
\sf1.mdb;jet oledb:database password=密码" '数据文件的地址
set data1 = new recordset
sql = "select * from sf2"
data1.open sql, rs, adopendynamic, adlockoptimistic
msgbox data1.recordcount '得到记录数
data1.close
rs.close
'*****====读取第n行的第m列的数据*****====
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '数据文件的地址
sql = "select * from sf2 where id=n"
set data1 = new recordset
data1.open sql, rs, adopendynamic, adlockoptimistic
msgbox data1(m) '得到数据
data1.close
rs.close
'*****===读取连续一列的数据*****==
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '数据文件的地址
sql = "select * from sf2 where 项 =\like '条件'"
set data1 = new recordset
data1.open sql, rs, adopendynamic, adlockoptimistic
do while not data1.eof
msgbox data1(n)
data1.movenext
loop
'*****==添加新纪录
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '数据文件的地址
sql = "select * from sf2 where id=n"
set data1 = new recordset
data1.open sql, rs, adopendynamic, adlockoptimistic
with data1.recordset
.addnew
.fields("项"\数字).value=变量
.updata
.refresh
end with
data1.close
rs.close
'*****===更新第n行的第m列的数据
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '数据文件的地址
sql = "select * from sf2 where id=n"
set data1 = new recordset
data1.open sql, rs, adopendynamic, adlockoptimistic
data1(m) = "数据\变量" '写入数据
data1.updata
data1.close
rs.close
'*****==查找数据*****=
set rs = new connection
rs.cursorlocation = aduseclient
rs.open "provider=microsoft.jet.oledb.4.0;data source=s:\sf1.mdb;" '数据文件的地址
sql = "select * from sf2 where" + "项='表达式'\项 like '表达式'"
set data1 = new recordset
data1.open sql, rs, adopendynamic, adlockoptimistic
msgbox data1(n) 'n=0为id
data1.close
rs.close
具体请查看例子：
private sub form_load()
set rs = new connection
set data1 = new recordset
rs.cursorlocation = aduseclientrs.open "provider=microsoft.
jet.oledb.4.
0;data source=c:\1.mdb;jet oledb:
database password=123456789" '数据文件的地址
sql = "select * from sf2" '访问sf2表
data1.open sql, rs, adopendynamic, adlockoptimistic
list1.tag = data1.recordcount '得到记录数
data1.close
sql = "select 姓名 from sf2" '访问sf2表的"姓名"列
data1.open sql, rs, adopendynamic, adlockoptimistic
do while not data1.eof
list1.additem data1("姓名")
data1.movenext
loop
rs.close
end sub
'希望能帮到你
VB题，求大佬解释,求大佬解释以下vb代码，每一步的详细解释！！！
1楼 好人缘好让他 2 4 诗中亲情2 5 诗中乡情2 6 作者出处2 7 三境界2 8 正所谓 猜你关注唐诗宋词 中国文学史上的两颗明珠 编辑唐诗宋词是中国文学史上的两颗明珠，唐代被称为诗的时代，宋代被称为词的时代。 词源于民间，始于唐，兴于五代，盛于两宋。宋代物质生活的丰富，人们对文化生活的追求...
JAVA编程题求大佬求助,JAVA编程题求大佬求助 10
1楼 仲甫 你是刚开始学习编程吧，这是java的基础啦，类的属性和方法都给你抽象出来了，你新建这三个类，然后写个测试类，将你创建的类实例化，调用方法实现就好啦。 2楼 来自褒禅山的小 臣妾才只能看懂简单对象 3楼 歇盲番摈腿 题目太深，本宫做不到 4楼 匿名用户 我可以帮你 我是软件的 看我简介 找...
python问题求大神解,Python问题，求大神解答
1楼 日time寸 可以使用scipy io wavefile中的write函数，示例 如下 from scipy io wavfile import writefrom numpy import randomfilename g meelo wav rate 44100 data random r...