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