编程达人进，求一VB程序代码

求VB编程达人帮忙。。。~

貌似没有

Private Function Fdhs(x As Single) As Single
If x < 0 Then
Fdhs = Cos(2 * x)
ElseIf x <= 3 Then Fdhs = Int(6 * x * x - 5 * x + 1)
Else: Fdhs = 2.71828 ^ (3 - x)
End If
End Function
Private Sub Command1_Click()
Dim x As Single
Dim y As Single
x = Val(InputBox("请输入a的值"))
y = Val(InputBox("请输入b的值"))
Print "f(a)+f(2+f(b))=" & Fdhs(x) + Fdhs(2 + Fdhs(y))
End Sub

首先我想问一下，你会设置控件的属性吗？如果会，将第三段不要；不会也没关系，，你在窗体上画2个按钮，画1个文本框，直接将代码复制过去就可以了。

选中文本框，在属性窗口中找到 MultiLine，将它的属性值设为True；将ScrollBars属性设置为2，让文本框能多行显示，并有垂直滚动条。

程序运行的结果是有重复的出现，如3、4、5，和4、3、5，如果你不想这样的情况出现，那就将循环语句中j=1 改成 j=i

Private Sub Command1_Click()
Dim i%, j%, k% '这里%为整形的数据类型，相当于 As Integer

'下面是循环语句，判断
For i = 1 To 30
For j = 1 To 30
For k = 1 To 30
If i * i + j * j = k * k Then
Text1.Text = Text1.Text & i & "、" & j & "、" & k & Chr(13) & Chr(10)
End If
Next k
Next j
Next i
Text1.Text = "1到30中是整合数的有" & Chr(13) & Chr(10) & Text1.Text
End Sub

Private Sub Command2_Click()
Text1.Text = ""

End Sub

Private Sub Form_Load()
Form1.Caption = "求1~30整合数"
Text1.Text = ""
Command1.Caption = "确定"
Command2.Caption = "清除"
'以上的是对窗体及界面中控件的属性设置，如果你会在属性窗口中设置，就不用这段了，呵呵，当然最好是加上label标签啦
End Sub

我就直接在这里写了啊,你自己复制到对应的comand下啊
for i=1 to 30
for j=1 to 30
for k=1 to 30
if i*i=j*j+k*k then
print i,j,k & "就是一个整数组合"
end if
next
next
next

3层循环嵌套，要让你找10000以内的呢

---

诸暨市15853278268： 求一段VB代码~!!!高手进!! - ？
巴饺百科： 这个并不难,帮你写了个简单的,你自己根据需要改改就行了,自己添加2个模块,一...

诸暨市15853278268： 求一个VB简单程序代码 - ？
巴饺百科： 以下程序可以运行,添加5个文本框用于显示,一个按钮.Private Sub Command1_Click() Dim val(1 To 60) As Integer Dim pass%, good%, i%, j%, temp%, sum%'输入60个学生的成绩 For i = 1 To 60 val(i) = InputBox(＂输入第＂ & i & ＂个学生的...

诸暨市15853278268： 求一个简单的VB程序？
巴饺百科： 代码如下: Dim x As String Private Sub Form_Load() Timer1.Interval = 1000 x = ＂1.jpg＂ End Sub Private Sub Timer1_Timer() a: If Left(x, 1) < 10 Then Picture1.Picture = LoadPicture(＂e:\＂ & x) Else x = ＂1.jpg＂ GoTo a End If x = Left(x, 1) + 1 & ＂.jpg＂ End Sub

诸暨市15853278268： 求一段VB代码 - ？
巴饺百科： if Text1.text = ＂111＂ and text2.text = ＂222＂ then Form2.Showend if

诸暨市15853278268： 求一个vb程序代码 - ？
巴饺百科： Private sub form_click() dim a,n as integer dim m as string a=inputbox(＂输入一个数＂) do while a=0 n=a mod 16 if n m=ltrim(str(n))+m else m=asc(n+87)+m end if a=a\16 loop msgbox ＂转为十六进制:＂+m End sub

诸暨市15853278268： 求VB程序,急!急!？
巴饺百科： 帮你编写了下面这个VB程序,代码如下: List1.Clear List1.AddItem ＂北京＂ List1.AddItem ＂广东＂ List1.AddItem ＂上海＂ List1.AddItem ＂天津＂ List1.AddItem ＂重庆＂ List1.AddItem ＂沈阳＂ List1.AddItem ＂南京＂

诸暨市15853278268： 求VB编程高手来写个核心代码？
巴饺百科：Private Sub Command1_Click() Open ＂c:\1.txt＂ For Output As #1 For i1 = 1 To 36 For i2 = i1 + 1 To 36 For i3 = i2 + 1 To 36 For i4 = i3 + 1 To 36 For i5 = i4 + 1 To 36 For i6 = i5 + 1 To 36 For i7 = i6 + 1 To 36 Print #1, i1 & vbTab & i2 & vbTab & ...

诸暨市15853278268： 求一个VB程序代码？
巴饺百科： Private Sub Command1_Click() For i = 1 To 5 For j = 1 To i Print i * j; Next j Print Next i End Sub

诸暨市15853278268： 跪求一段VB程序的代码？
巴饺百科：Dim a(7) Private Type TGUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Private Declare Function OleLoadPicturePath Lib ＂oleaut32.dll＂ (ByVal szURLorPath As Long, ByVal punkCaller As Long, ByVal ...

诸暨市15853278268： 求VB编程中一个简单的代码？
巴饺百科： Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 49 Then Shell (＂QQ.exe＂) End If End Sub