首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB生手 老师要求写一个类

2013-08-09 
VB新手 老师要求写一个类要求在文本框内输入一个数字 然后点击OK下面的文本框内显示出(如输入3):1*111*1

VB新手 老师要求写一个类
VB生手 老师要求写一个类要求在文本框内输入一个数字 然后点击OK  下面的文本框内显示出(如输入3):
1*1=1
1*1=1 1*2=2
1*1=1 1*2=2 1*3=3
老师要求写个类  然后建个标准的EXE引用这个类 达到这么效果 要求上交一个exe和一个dll文件
请各种大师教教新人啊 
[解决办法]
新建一个activex dll项目(project2),新建一个类模块(class1)
编写如下代码:
Public Function Output(ByVal n As Integer) As String
    Dim i As Integer, j As Integer
    For i = 1 To n
        For j = 1 To i
            Output = Output & " " & i & "*" & j & "=" & i * j
        Next
        Output = Output & VbCrLf
    Next
End Function
编译。产生project2.dll
新建一个窗体程序,工程-引用-project2
编写代码:
Button_Click()里面
Dim c As New project2.class1
Text2.Text = c.Output(Val(Text1.Text))

热点排行