vb游戏编程
用VB编程1个回答2024-02-07 17:35
如果说是对角线就要是正方形数组i(1 To m,1 To m)
Dim a,b As Long
Dim s As Long
For a=1 to m
For b=1 to m
If a=b or a+b=(m+1) Then
s=s+i(a,b)
Endif
Next
Next
用vb编程1个回答2024-01-29 10:37
Dim a As Integer
Dim b, c, i, j As Integer
Private Sub Command1_Click()
Cls
For i = 1000 To 9999
a = Int(i / 100)
b = i Mod 100
c = a + b
If c ^ 2 = i Then
Print i
End If
Next
End Sub
用 VB 编写程序1个回答2024-02-06 17:19
VB还是适合做个窗体应用程序。
你说的功能应该是用inputBox实现或者就是文本框
dim Infomation as string
infomation=inputBox("请输入信息")
open "D:/teacher.dat" for random as #1
put #1,,infomation
close #1
VB程序定时发出声音1个回答2024-02-07 04:15
下面的函数能帮你
Declare
Function
MessageBeep
Lib
"user32"
Alias
"MessageBeep"
(ByVal
wType
As
Long)
As
Long
wType
Long,下述值之一
0
xffffffff
标准响铃
MB_ICONASTERISK
系统星号声(System
asterisk
sound)
MB_ICONEXCLAMATION
系统惊叹声
MB_ICONHAND
系统指针声(System
hand
sound)
MB_ICONQUESTION
系统提问声
VB源程序1个回答2023-12-21 10:21
查看MSDN
VB做语音电话1个回答2024-02-02 05:45
听起来很复杂,这类东西应该不是分能弄到的诶。。。帮顶一下,拿2分闪。。
vb九九乘法表左上三角形怎么编程2个回答2023-10-08 07:45
在按钮的单击事件里写
For i = 1 To 9
For j = 1 To (10 - i)
If (i * j) > 9 Then
Print i & " * "笑基 & j & " = " & i * j & " ";
Else
Print i & " * " & j & "卖陪 = " & i * j & " ";
End If
Next j
Print
Next i
标准三角,不因为算式长短而中升蠢错位
龟兔赛跑vb程序1个回答2024-03-09 19:46
随机取值,用取得的值在图片原来的位置上移动,如果超过一定的值(过终点),表示哪一个胜利了。
也就是移动图片的位置,比如原来在0,1位置,随机得到5,图片移动到5,1位置...