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