玫瑰花數vb

⑴ 可以讓玫瑰花一朵朵出現圍成一個桃心的VB程序

首先你要准備一個玫瑰花圖片文件，要小一點。

然後在窗體上放12個Image控制項，組成一個控制項數組，擺成心形，Picture屬性設置為你的玫瑰花。Visibel屬性全部設置為False。

在窗體上放一個Timer控制項。Interval屬性設置為1000，每秒顯示一朵玫瑰花。

OK！你的心願完成了！

⑵ 四葉玫瑰數的VB怎麼編

四位數各位上的數字的四次方之和等於本身為四葉玫瑰數。回

實現源碼答如下：
program roseNumber;
var
a,b,c,d:longint;

function four(n:longint):longint;
begin
four:=n*n*n*n;
end;

begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
for d:=0 to 9 do
begin
if(1000*a+100*b+10*c+d=four(a)+four(b)+four(c)+four(d))then
begin
writeln(a,b,c,d);
end
end
end.

⑶ 求一個點擊後能讓屏幕都是玫瑰花的VB代碼！

這個程序其實就是在桌面上添加圖片，主要思路就是：做3-5個背景透明的窗口，然後用隨機函數隨機顯示需要顯示的窗口，並以隨機函數的方式定位置並顯示出來，就可以了！

⑷ 在桌面上顯示很多玫瑰花的一個vb小程序代碼

桌面塗鴉VB程序代碼
Option Explicit
Public Type POINTAPI
x As Long
y As Long
End Type
Public nXn As Long
Public gfqw As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public sbsb As POINTAPI
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)
Public Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Public Type MOUSEMSGS
x As Long 'x座標
y As Long 'y座標
a As Long
b As Long
time As Long 'Window運行時間
End Type
Public Const WH_MOUSE_LL = 14
Public Const MB_OK = &H0&
Public Const MB_ICONASTERISK = &H40&
Public Type MSLLHOOKSTRUCT
pt As POINTAPI
mouseData As Long
Flags As Long
time As Long
dwExtraInfo As Long
End Type
Public hHook As Long
'-----------------------------------------
'消息
Public Const HC_ACTION = 0
Public Const HC_SYSMODALOFF = 5
Public Const HC_SYSMODALON = 4
'滑鼠消息
Public Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MOUSEACTIVATE = &H21
Public Const WM_MOUSEFIRST = &H200
Public Const WM_MOUSELAST = &H209
Public Const WM_MOUSEWHEEL = &H20A
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public MouseMsg As MOUSEMSGS '滑鼠消息結構體
Public lHook As Long '勾子句柄
Public sbss As POINTAPI
'滑鼠鉤子函數
Public Function HookProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lparam As Long) As Long
Dim typMHS As MSLLHOOKSTRUCT, pt As POINTAPI
If wParam = WM_MOUSEMOVE Then
Call CopyMemory(typMHS, ByVal lparam, LenB(typMHS))
pt = typMHS.pt
Debug.Print "mouse Cursor at " + CStr(pt.x) + "," + CStr(pt.y)
GetCursorPos sbsb
End If
If wParam = WM_LBUTTONDOWN Then
Form1.Timer2.Enabled = True
nXn = 2
GetCursorPos sbss
End If
If wParam = WM_RBUTTONDOWN Then
End If
If wParam = WM_LBUTTONUP Then '按下中間記下這個值，然後調用一個過程，我的滑鼠沒有中鍵，自己測試一下
Form1.Timer2.Enabled = False
HookProc = CallNextHookEx(hHook, nCode, wParam, lparam)
End If
End Function

'卸載勾子
Public Sub StopHook()
If lHook <> 0 Then lHook = UnhookWindowsHookEx(lHook)
End Sub

'===================== 模塊結束 ========================
Public Sub FreeHook()
If hHook <> 0 Then
Call UnhookWindowsHookEx(hHook)
hHook = 0
End If
End Sub

Public Sub EnableHook()
If hHook = 0 Then
hHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf HookProc, App.hInstance, 0)
End If
End Sub

⑸ vb玫瑰花程序能開滿桌面玫瑰花的小程序 源碼VB!可以給我發一份嗎

真好的源代碼沒有，有個在桌面上爬蟲的小程序，
我花了很長時間編寫的嗎，和你的類似，
參考改一下，應該對你有用
Dim aq
Dim a(4) As Integer
Dim b(4) As Integer
Dim n, k, c As Integer, d As Integer

Private Sub Command1_Click()
Unload Form1
End Sub

Private Sub Form_Load()
App.TaskVisible = False
App.Title = " 123"
Form1.Visible = False
Form1.WindowState = 2
Call keybd_event(44, 0, 0, 0)
F
End Sub

Private Sub Form_Resize()
Picture1.Left = 0
Picture1.Top = 0
Picture1.Width = Form1.Width
Picture1.Height = Form1.Height
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Circle (X, Y), 70, QBColor(1)
End Sub

Private Sub Timer1_Timer()
If aq = 2 Then
Form1.Visible = True
Picture1.Picture = Clipboard.GetData()
End If
aq = aq + 1
End Sub

Private Sub qq()
n = 0
On Error Resume Next
k = Int(Rnd() * 4)
Select Case k
Case 0
c = a(4): d = Val(Shape1(0).Height) + b(4)
Case 1
c = a(4): d = (-1) * Val(Shape1(0).Height) + b(4)
Case 2
d = b(4): c = Val(Shape1(0).Width) + a(4)
Case 3
d = b(4): c = (-1) * Val(Shape1(0).Width) + a(4)
End Select
For i = 0 To 3
For j = 0 To 3
If a(i) = c And b(j) = d Then
n = 1
End If
Next j
Next i
If c < 0 Or c > Form1.Width Or d < 0 Or d > Form1.Height Then
n = 1
End If
If n = 1 Then
qq
Else
a(4) = c
b(4) = d
End If
End Sub

Private Sub F()
For i = 0 To 4
a(i) = 500
b(i) = 500
Next i
Form1.WindowState = 2
'DrawMode = 7
For i = 1 To 4
'Load Shape1(i)
Next i
End Sub

Private Sub Timer2_Timer()
For i = 0 To 3
a(i) = a(i + 1)
b(i) = b(i + 1)
Next i
qq
For i = 0 To 4
Shape1(i).Left = a(i)
Shape1(i).Top = b(i)
Next i
End Sub

⑹ vb求玫瑰花數

當然不會有數字產生了，Do
While
d
<=
9這里1000-1009都不滿足，驗證完後，d=10，自然下次不滿足d
<=
9條件就退出了
可以在每次循環結束，重新開始時加個清零操作，或者直接用for語句

⑺ vb玫瑰花數... 數字填空

PrivateSubCommand2_Click()'水仙花數153=1*1*1+5*5*5+3*3*3
Fori=10To999
Ifi<100Then
ge=iMod10
shi=i10
Ifge^3+shi^3=iThenPrint,
Else
ge=iMod10
shi=i10Mod10
=i100
Ifge*ge*ge+shi^3+^3=iThen
Printi,
geshu=geshu+1
IfgeshuMod5=0ThenPrint
EndIf
EndIf
Nexti
Print
Print

Printgeshu
EndSub

你的圖片看不清楚

⑻ 喝玫瑰花茶時可以吃維生素嗎

玫瑰花茶中本身就含有維生素，如VA、B、C、E等，說明玫瑰花茶中脂溶性維生素與水溶性維生素可以共存，而我們日常所需的維生素無非就是VA 、D、E、K等脂溶性維生素以及VB、C等水溶性維生素。因此無論吃哪種維生素都不會產生禁忌，是可以吸收的。由於玫瑰花茶中含有維生素，如果身體不缺維生素，不吃維生素也可以，如果缺少維生素可以補充。具體只能視個人情況而定吧。

⑼ vb玫瑰花程序能開滿桌面玫瑰花的小程序 請注意我要的是源碼VB 請發到[email protected]

程序已經發了，
代碼：http://user.qzone.qq.com/471559688/blog/1310315461
代碼就在QQ空間裡面 ，程序我也發了 怎麼還不給分啊

⑽ 誰有玫瑰花開放VB代碼

樓主、
有個問題想你幫我下、