请大神完成这个VB设计题？

求大神解答一下这道vb题的代码

代码:dim t as single private sub command1_click() dim d() as string t = t + val(text2.text) d() = split(text1.text, ＂-＂) label3.caption = label3.caption + ＂20＂ + d(0) + ＂年＂ ...

请高手做一道VB,题目如下:判断三角形.在窗体上添加五个标签、三个文本框和两个命令按钮.程序运行时,先在输入文本框中输入边长,再单击判断按

private sub command1_click() dim a as integer,b as integer,c as integer a=Val(text1.text) b=Val(text2.text) c=Val(text3.text) if a+b>c and a+c>b and b+c>a then label2.caption=＂此为＂ 现在没空晚上没事慢慢编吧 这个程序很简单编起来很快的

求大神!VB的题目

代做VB作业需要联系598937749

VB习题答案

在类模块ClsMan中加入如下代码:public Weight as integer public Height as integer public function OverWeight() as boolean OverWeight=false if Weight>1.1*(Height-105) ...

请帮我编写一个超级简单的VB程序.题目进来我给.

dim s,t t=inputbox(＂请你输入时间＂) s=120*t print ＂路程是＂;s

求VB程序设计 清华出版社 张玉生 施梅芳等编写的课后习题答案

去清华出版社找找有木有

用VB编写函数过程,求任意正整数各位数字之和

在窗体上添加一个按钮,加入如下代码“Private Sub Command1_Click() Dim N '因为你说的是任意正整数,所以没有给变量指定变量类型 Dim I As Integer Dim L As Integer, S As String Dim M As Integer N = InputBox(＂请输入任意一个正整数＂) '此处假设输入的内容是符合正整数要求的,不再另外做判断 S = CStr(N) L = Len(S) '获取N的长度 For I = 1 To L M = M + Mid(S, I, 1) Next MsgBox N & ＂的各位数字之和为:＂ & MEnd Sub

几道VB程序设计的题,忙不过来了请大家帮帮忙,急!!!

第四题:属性你按题目设:按钮代码: Text1.Visible = False,Lab1.Text = Text1.Text

VB课程设计作业,高手请进!(高分悬赏!)

www.baidu这里可以找到.

求高手帮忙VB编程题

if not numeric 我等下发给你