vb6.0版本vb绘图画图发声程序代码

于 2024-06-27 06:31:43 发布
阅读量906 收藏 12
点赞数 11
文章标签： vb6.0 开发语言
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_32257509/article/details/139975480
版权

Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To 2
For j = 1 To 2
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1)
Next
Next
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Dim i, j, k As Integer
For i = 1 To 2
For j = 1 To 2
For k = 1 To 2
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1)
Next
Next
Next
End Sub

Private Sub Command4_Click()
Dim i, j, k, l As Integer
For i = 1 To 2
For j = 1 To 2
For k = 1 To 2
For l = 1 To 2
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1)
Next
Next
Next
Next
End Sub

Private Sub Command5_Click()

Dim i, j, k, l, m As Integer

For i = 1 To 2

For j = 1 To 2

For k = 1 To 2

For l = 1 To 2
For m = 1 To 2

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1)
Next
Next
Next
Next
Next
End Sub

Private Sub Command6_Click()

Dim i, j, k, l, m, n As Integer
For i = 1 To 2

For j = 1 To 2
For k = 1 To 2
For l = 1 To 2
For m = 1 To 2

For n = 1 To 2

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1) & Mid(Text1.Text, n, 1)

Next

Next

Next

Next

Next

Next

End Sub

Private Sub Text1_Change()

Dim a As String

a = Text1.Text

End Sub

Private Sub Command1_Click()

Dim i, j, k As Integer

For i = 1 To 3

For j = 1 To 3

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1)

Next

Next

End Sub

Private Sub Command2_Click()

Dim i, j, k As Integer

For i = 1 To 3

For j = 1 To 3

For k = 1 To 3

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & “.”

Next

Next

Next

End Sub

Private Sub Command3_Click()

Dim i, j, k, l As Integer

For i = 1 To 3
For j = 1 To 3

For k = 1 To 3
For l = 1 To 3

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1)

Next
Next
Next
Next

End Sub

Private Sub Command4_Click()

Dim i, j, k, l, m As Integer

For i = 1 To 3

For j = 1 To 3

For k = 1 To 3

For l = 1 To 3

For m = 1 To 3

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1)
Next
Next
Next
Next
Next
End Sub

Private Sub Command5_Click()

Dim i, j, k, l, m, n As Integer

For i = 1 To 3

For j = 1 To 3

For k = 1 To 3

For l = 1 To 3

For m = 1 To 3

For n = 1 To 3

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1) & Mid(Text1.Text, n, 1)

Next

Next

Next

Next

Next

Next
End Sub

Private Sub Command6_Click()

End

End Sub

Private Sub Text1_Change()

Dim a As String

a = Text1.Text

End Sub

Private Sub Command1_Click()

Dim a As String

Dim b As String

a = Text1.Text

b = “0”

a = Replace(a, “a”, b)

b = “1”

a = Replace(a, “b”, b)

b = “2”

a = Replace(a, “c”, b)

Text2.Text = Text2.Text & vbCrLf & (a)

End Sub

Private Sub Command1_Click()

Dim i, j, k, l, m, n As Integer

For i = 1 To 3

For j = 1 To 3

For k = 1 To 3

For l = 1 To 3

For m = 1 To 3

For n = 1 To 3

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1) & Mid(Text1.Text, n, 1)
Next

Next

Next

Next

Next

Next

End Sub

Private Sub Text1_Change()

Dim a As String

a = Text1.Text

End Sub

Private Sub Command1_Click()

Dim i, j, k As Integer

For i = 1 To 4

For j = 1 To 4

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1)

Next

Next

End Sub

Private Sub Command3_Click()

Dim i, j, k As Integer

For i = 1 To 4

For j = 1 To 4

For k = 1 To 4

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & “.”

Next

Next

Next

End Sub

Private Sub Command4_Click()

Dim i, j, k, l As Integer

For i = 1 To 4

For j = 1 To 4

For k = 1 To 4

For l = 1 To 4

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1)

Next

Next

Next

Next

End Sub

Private Sub Command5_Click()

Dim i, j, k, l, m As Integer

For i = 1 To 4

For j = 1 To 4

For k = 1 To 4

For l = 1 To 4

For m = 1 To 4

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1)

Next

Next

Next

Next

Next

End Sub

Private Sub Command6_Click()
Dim i, j, k, l, m, n As Integer

For i = 1 To 4

For j = 1 To 4

For k = 1 To 4

For l = 1 To 4

For m = 1 To 4

For n = 1 To 4

Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1) & Mid(Text1.Text, n, 1)

Next

Next

Next

Next

Next

Next

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Text1_Change()

Dim a As String

a = Text1.Text

End Sub

with picture1

.forecolor=vbred

.fontname=“宋体”

.fontsize=16

…

end with

Private Sub Command1_Click()

Dim a As String, b As String, i As Integer

a = Text1.Text

For i = 1 To 10

Text2.Text = Text2.Text & Mid(a, Int(Rnd * 10) + 1, 10)

Next

End Sub

正确例题

Private Sub Command1_Click()

Dim a As String, b As String

a = Text1.Text

Text2.Text = Text2.Text & Mid(a, (Rnd * 2) + 1, 3) & “.” '输出n个随机字符串

End Sub

正确例题

Private Sub Command1_Click()

Dim a As String, b As String

a = Text1.Text

Randomize Timer

Text2.Text = Text2.Text & Mid(a, (Rnd * 2) + 1, 7) & “.” '输出n个随机字符串

End Sub

正确例题
Private Sub Command1_Click()
Dim i, j, k As Integer
For i = 1 To 9
For j = 1 To 9
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1) & vbCrLf
Next
Next
End Sub

2个按钮，1个标签控件，2个文本框。

正确例题
Private Sub Command1_Click()
Dim i, j, k As Integer
For i = 1 To 5
For j = 1 To 5
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1)
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1)
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1)
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1)
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1)
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1)
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1)
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1)
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1)
Text2.Text = Text2.Text & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1)

Next
Next
End Sub

Private Sub Command2_Click()
Text2.Text = “”
End Sub

1个按钮，1个标签控件，2个文本框。

正确例题
Private Sub Command1_Click()
Dim a,b,c,d,e,f,g,h,i,j,k,l As Integer
For a = 1 To 5
For b = 1 To 5
For c = 1 To 5
For d = 1 To 5
For e = 1 To 5
For f = 1 To 5
For g = 1 To 5
For h = 1 To 5
For i = 1 To 5
For j = 1 To 5
For k = 1 To 5
For l = 1 To 5

Text2.Text = Text2.Text & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1) & Mid(Text1.Text, c, Rnd() * 1) & Mid(Text1.Text, d, Rnd() * 1) & Mid(Text1.Text, e, Rnd() * 1) & Mid(Text1.Text, f, Rnd() * 1) & Mid(Text1.Text, g, Rnd() * 1)& Mid(Text1.Text, h, Rnd() * 1) & Mid(Text1.Text, i, Rnd() * 1) & Mid(Text1.Text, j, Rnd() * 1) & Mid(Text1.Text, k, Rnd() * 1) & Mid(Text1.Text, l, Rnd() * 1)

Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

1个按钮，1个标签控件，2个文本框。
正确例题
Private Sub Command1_Click()
Dim a,b,c,d,e,f,g,h,i As Integer
For a = 1 To 5
For b = 1 To 5
For c = 1 To 5
For d = 1 To 5
For e = 1 To 5
For f = 1 To 5
For g = 1 To 5
For h = 1 To 5
For i = 1 To 5

Text2.Text = Text2.Text & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1) & Mid(Text1.Text, c, Rnd() * 1)

Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

picture1.currentx=300

picture1.currenty=400

picture1.print “考试”

with picture1

picture1.ForeColor=vbred

.fontname=“宋体”

.fontsize=16

…

end with

Private Sub Command1_Click()

Picture1.Print “2+3=”; 2 + 3

End Sub

Form1.ForeColor = RGB(255, 0, 0) '颜色rgb
Form1.Print “1212121”

form1.fontcolor=vbred 红色
form1.fontcolor=vbblue蓝色
form1.fontcolor=vbgreen绿色

❤❤❤❤😊😊😊😊🤦‍♂️🎶🎉🐱‍🚀✔✔✔✔🎫🎫🎫🎎🎗🎗🖼🖼🖼🥽🥽🥽🥗🥪🧈🥞🧇🧇🚃🚔🚙🚛🚛🛹❤🧡💛💚💚💞💞💞💓💗💗💗💖💖🖤🤎💜💙💚🧡💝☮▲▷▶▱▮▨▬▩▣■█▆███████◯◯◯◯██▇▇▉▉▉〓〓〓〓〓★★★★✦✦✦✦☢☢☢☢☯☯☯☯☯☯○○○○⚅⚅▯▮▭▭▬▬□□■■◯◯◯▇▇█◻▗◼◼◻◻

Private Sub Command1_Click()
With Picture1

Picture1.ForeColor = vbRed

Picture1.FontSize = 40

End With

Picture1.Print “■■■■■■”

End Sub

Private Sub Command2_Click()

With Picture1

Picture1.ForeColor = vbBlue

Picture1.FontSize = 40

End With

Picture1.Print “■■■■■■”

End Sub

Private Sub Command3_Click()

Dim a As String, b As String

a = Text1.Text
b = Text1.Text

With Text2

Text2.ForeColor = vbRed

Text2.FontSize = 20

End With

Text2.Text = Text2.Text & Mid(a, (Rnd * 4) + 1, 10) & Mid(b, (Rnd * 4) + 1, 10) & Mid(a, (Rnd * 4) + 1, 10) & Mid(b, (Rnd * 4) + 1, 10) & vbCrLf '输出n个随机字符串

End Sub

Private Sub Command1_Click()

With Picture1

Picture1.ForeColor = vbRed

Picture1.FontSize = 10

End With

Picture1.Print “█”;

End Sub

Private Sub Command2_Click()

With Picture1

Picture1.ForeColor = vbGreen

Picture1.FontSize = 10
End With

Picture1.Print “█”;

End Sub

Private Sub Command3_Click()

Dim a, b As Integer

For a = 1 To 5
For b = 1 To 5

With Text2
Text2.ForeColor = vbRed

Text2.FontSize = 15
End With

Text2.Text = Text2.Text & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1)

Next
Next

End Sub

Private Sub Command4_Click()

With Text2
Text2.ForeColor = vbBlue

Text2.FontSize = 15
End With

Dim i, j As Integer
For i = 1 To 2
For j = 1 To 2
Text2.Text = Text2.Text & vbCrLf & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1)
Next
Next

End Sub

Private Sub Command5_Click()
With Picture1

Picture1.ForeColor = vbBlue

Picture1.FontSize = 10
End With

Picture1.Print “█”;

End Sub

Private Sub Command6_Click()
Text2.Text = “”
End Sub

Private Sub Command7_Click()
End
End Sub

Dim a As String, b As String

a = Text1.Text

Randomize Timer

Text2.Text = Text2.Text & Mid(a, (Rnd * 2) + 1, 7) & “.” '输出n个随机字符串

Dim a as string

a = InputBox(“输入符号”)

Dim a, b As String

a = Text3.Text

b = “■” & vbCrLf

Picture1.Print a;
Picture1.Print b;

Private Sub Command1_Click()

With Picture1

Picture1.ForeColor = vbRed

Picture1.FontSize = 10

End With

Picture1.Print “■”;

End Sub

Private Sub Command10_Click()
With Picture1

Picture1.ForeColor = vbYellow

Picture1.FontSize = 10
End With

Picture1.Print “■”;

End Sub

Private Sub Command2_Click()

With Picture1

Picture1.ForeColor = vbGreen

Picture1.FontSize = 10
End With

Picture1.Print “■”;

End Sub

Private Sub Command3_Click()

Dim a, b As Integer

For a = 1 To 5
For b = 1 To 5

With Text2
Text2.ForeColor = vbRed

Text2.FontSize = 15
End With

Text2.Text = Text2.Text & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1)

Next
Next

End Sub

Private Sub Command4_Click()

With Text2
Text2.ForeColor = vbBlue

Text2.FontSize = 15
End With

Dim i, j As Integer
For i = 1 To 2
For j = 1 To 2
Text2.Text = Text2.Text & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & vbCrLf
Next
Next

End Sub

Private Sub Command5_Click()
With Picture1

Picture1.ForeColor = vbBlue

Picture1.FontSize = 10
End With

Picture1.Print “■”;

End Sub

Private Sub Command6_Click()
Text2.Text = “”
End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Command8_Click()

With Picture1

Picture1.ForeColor = vbWhite
Picture1.FontSize = 10

End With

Dim a As String

a = Text3.Text

Picture1.Print a;

End Sub

Private Sub Command8_Click()

With Picture1

Picture1.ForeColor = vbWhite
Picture1.FontSize = 10

End With

Dim a As String

a = “■”

Picture1.Print a;

End Sub

Private Sub Command9_Click()
With Picture1

Picture1.ForeColor = vbBlack

Picture1.FontSize = 10

End With

Dim b As String

b = “■”

Picture1.Print b;

End Sub

按钮画图程序代码
Private Sub Command1_Click()

With Picture1

Picture1.ForeColor = vbRed

Picture1.FontSize = 10

End With

Picture1.Print “■”;

End Sub

Private Sub Command10_Click()
With Picture1

Picture1.ForeColor = vbYellow

Picture1.FontSize = 10
End With

Picture1.Print “■”;

End Sub

Private Sub Command2_Click()

With Picture1

Picture1.ForeColor = vbGreen

Picture1.FontSize = 10
End With

Picture1.Print “■”;

End Sub

Private Sub Command3_Click()

Dim a, b As Integer

For a = 1 To 5
For b = 1 To 5

With Text2
Text2.ForeColor = vbRed

Text2.FontSize = 15
End With

Text2.Text = Text2.Text & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1)

Next
Next

End Sub

Private Sub Command4_Click()

With Text2
Text2.ForeColor = vbBlue

Text2.FontSize = 15
End With

Dim i, j As Integer
For i = 1 To 2
For j = 1 To 2
Text2.Text = Text2.Text & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & vbCrLf
Next
Next

End Sub

Private Sub Command5_Click()
With Picture1

Picture1.ForeColor = vbBlue

Picture1.FontSize = 10
End With

Picture1.Print “■”;

End Sub

Private Sub Command6_Click()
Text2.Text = “”
End Sub

Private Sub Command7_Click()
End
End Sub

Private Sub Command8_Click()

With Picture1

Picture1.ForeColor = vbWhite
Picture1.FontSize = 10

End With

Dim a As String

a = “■”

Picture1.Print a;

End Sub

Private Sub Command9_Click()
With Picture1

Picture1.ForeColor = vbBlack

Picture1.FontSize = 10

End With

Dim b As String

b = “■”

Picture1.Print b;

End Sub

按钮画图程序代码

Private Sub Command1_Click()

With Picture1

Picture1.ForeColor = vbRed

Picture1.FontSize = 10

End With

Picture1.Print “■”;

End Sub

Private Sub Command10_Click()
With Picture1

Picture1.ForeColor = vbYellow

Picture1.FontSize = 10
End With

Picture1.Print “■”;

End Sub

Private Sub Command2_Click()

With Picture1

Picture1.ForeColor = vbGreen

Picture1.FontSize = 10
End With

Picture1.Print “■”;

End Sub
Private Sub Command5_Click()
With Picture1

Picture1.ForeColor = vbBlue

Picture1.FontSize = 10
End With

Picture1.Print “■”;

End Sub

Private Sub Command8_Click()

With Picture1

Picture1.ForeColor = vbWhite
Picture1.FontSize = 10

End With

Dim a As String

a = “■”

Picture1.Print a;

End Sub

Private Sub Command9_Click()
With Picture1

Picture1.ForeColor = vbBlack

Picture1.FontSize = 10

End With

Dim b As String

b = “■”

Picture1.Print b;

End Sub

文本画图程序代码

Private Sub Command3_Click()
Text2.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Command2_Click()

With Text2
Text2.ForeColor = vbBlue

Text2.FontSize = 15
End With

Dim i, j, k, l, m, n As Integer
For i = 1 To 2
For j = 1 To 2

For k = 1 To 2
For l = 1 To 2
For m = 1 To 2
For n = 1 To 2

Text2.Text = Text2.Text & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1) & Mid(Text1.Text, n, 1) & vbCrLf
Next
Next
Next
Next
Next
Next

End Sub

Private Sub Command1_Click()

Dim a, b As Integer

For a = 1 To 5
For b = 1 To 5

With Text2
Text2.ForeColor = vbRed

Text2.FontSize = 15
End With

Text2.Text = Text2.Text & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1) & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1) & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1) & vbCrLf & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1) & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1) & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1) & vbCrLf & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1) & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1) & Mid(Text1.Text, a, Rnd() * 1) & Mid(Text1.Text, b, Rnd() * 1)

Next
Next

End Sub

文本画图程序代码

Private Sub Command3_Click()
Text2.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

Private Sub Command2_Click()

With Text2
Text2.ForeColor = vbBlue

Text2.FontSize = 10
End With

Dim i, j, k, l, m, n As Integer
For i = 1 To 2
For j = 1 To 2

For k = 1 To 2
For l = 1 To 2
For m = 1 To 2
For n = 1 To 2

Text2.Text = Text2.Text & Mid(Text1.Text, i, 1) & Mid(Text1.Text, j, 1) & Mid(Text1.Text, k, 1) & Mid(Text1.Text, l, 1) & Mid(Text1.Text, m, 1) & Mid(Text1.Text, n, 1) & vbCrLf
Next
Next
Next
Next
Next
Next

End Sub

Private Sub Command1_Click()

Dim a, b As Integer

For a = 1 To 2
For b = 1 To 2

With Text2
Text2.ForeColor = vbRed

Text2.FontSize = 10
End With

Text2.Text = Text2.Text & Mid(Text1.Text, a, Rnd() * 2) & Mid(Text1.Text, b, Rnd() * 2) & Mid(Text1.Text, a, Rnd() * 2) & Mid(Text1.Text, b, Rnd() * 2) & Mid(Text1.Text, a, Rnd() * 2) & Mid(Text1.Text, b, Rnd() * 2) & vbCrLf & Mid(Text1.Text, a, Rnd() * 2) & Mid(Text1.Text, b, Rnd() * 2) & Mid(Text1.Text, a, Rnd() * 2) & Mid(Text1.Text, b, Rnd() * 2) & Mid(Text1.Text, a, Rnd() * 2) & Mid(Text1.Text, b, Rnd() * 1) & vbCrLf & Mid(Text1.Text, a, Rnd() * 2) & Mid(Text1.Text, b, Rnd() * 2) & Mid(Text1.Text, a, Rnd() * 2) & Mid(Text1.Text, b, Rnd() * 2) & Mid(Text1.Text, a, Rnd() * 2) & Mid(Text1.Text, b, Rnd() * 2)

Next
Next

End Sub

Private Sub Command5_Click()

Dim c, d As Integer

For c = 1 To 2
For d = 1 To 2

With Text2
Text2.ForeColor = vbGreen

Text2.FontSize = 10
End With

Text2.Text = Text2.Text & Mid(Text1.Text, c, Rnd * 2) & Mid(Text1.Text, d, Rnd * 2)

Text2.Text = Text2.Text & Mid(Text1.Text, c, Rnd() * 2) & Mid(Text1.Text, d, Rnd() * 2) & Mid(Text1.Text, c, Rnd() * 2) & Mid(Text1.Text, d, Rnd() * 2) & Mid(Text1.Text, c, Rnd() * 2) & Mid(Text1.Text, d, Rnd() * 2) & vbCrLf & Mid(Text1.Text, c, Rnd() * 2) & Mid(Text1.Text, d, Rnd() * 2) & Mid(Text1.Text, c, Rnd() * 2) & Mid(Text1.Text, d, Rnd() * 2) & Mid(Text1.Text, c, Rnd() * 2) & Mid(Text1.Text, d, Rnd() * 1) & vbCrLf & Mid(Text1.Text, c, Rnd() * 2) & Mid(Text1.Text, d, Rnd() * 2) & Mid(Text1.Text, c, Rnd() * 2) & Mid(Text1.Text, d, Rnd() * 2) & Mid(Text1.Text, c, Rnd() * 2) & Mid(Text1.Text, d, Rnd() * 2)

Next
Next

End Sub

VB beep 函数问题，调用beep函数后没有声音。 30
我想写一个程序让计算机发出翁鸣声，但系统没有声音是怎么回事？
程序如下，麻烦高手帮我解决这个问题。谢谢了
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim RET As Long
RET = Beep(800, 2000) ’ 以80HZ的频率响2秒钟
End Sub

Private Sub Command2_Click()
End
End Sub
我已将音量调到最大，并且没有静音。我试过我这个程序在有些电脑上能发声，但在有些电脑上却不能发声.此外我想问一下，我的电脑上beep语句可以发声，就是调用beep函数不能发声。
 我来答 分享 举报
3个回答#热议# 二次感染新冠后会发生什么?
zhaobuping
2011-05-29 · TA获得超过338个赞
关注
程序没问题，查看你的系统音量控制，是否调到最大，或选了静音
抢首赞 评论 分享 举报
沙慧月03
2011-05-29 · TA获得超过2147个赞
关注
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Beep 800, 2000 ’ 以80HZ的频率响2秒钟
End Sub
Private Sub Command2_Click()
End
End Sub
本回答被网友采纳

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Beep 800, 2000 ’ 以80HZ的频率响2秒钟
End Sub

Private Sub Command2_Click()
End
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Beep 500, 500 '500表示频率，单位为㎐；1000表示持续时间，单位为㎳。
End Sub

VB实现键盘控制蜂鸣器发声代码，按键盘上的 A-Z 键 PC喇叭会发出声音。GetAsyncKeyState(VirtualKey) 返回非零值,除非指定按下某键VirtualKey 指 0 到 256 之间，Beep 函数:使用PC内部喇叭播放声音，
　　频率: 37 到 37767

正确例题
Private Declare Function Beep Lib “kernel32” Alias “Beep” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Dim i As Long '试试看
For i = 0 To 10
Beep 600,500
Next
End Sub

正确例题
Private Declare Function Beep Lib “kernel32” (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Dim retval As Long
retval = Beep(800, 2000)
End Sub

EYYLTV
关注
  • 11
    点赞
  • 踩
  • 12
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

EYYLTV

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值