Virtual currency VBA

1.

In VBA, currency variable is defined as currency and floating-point type is defined as double. The differences between the two are as follows:

1. Data length is equal to memory, which is 8 bytes, but the range of currency is not as large as double

2. The identifier of currency defined variable is @, and the double type is #

for example, dim num # = 3 is defined as double type, and dim num @ = 3 is monetary type.

the data types in VBA are summarized as follows:

Subbb()
Dimi,j,k,l,x,y,arr(1To100)

Fori=1To100
x=Round(Rnd,2)
y=Round(Rnd,2)
Ifx>0.5Andy>0.5Then
arr(i)="双正"
j=j+1
ElseIfx<0.5Andy<0.5Then
arr(i)="双反"
k=k+1
elseifx=0.5ory=0.5then
arr(i)="至少一个竖着"
Else
arr(i)="一正一反"
l=l+1
EndIf
Next
Range(Cells(1,1),Cells(100,1)).Value=Application.Transpose(arr)
Cells(1,2)="双正次数"
Cells(2,2)=j
Cells(1,3)="双正概率"
Cells(2,3)=j/100
Cells(1,4)="双反次数"
Cells(2,4)=k
Cells(1,5)="双反概率"
Cells(2,5)=k/100
Cells(1,6)="一正一反次数"
Cells(2,6)=l
Cells(1,7)="一正一反概率"
Cells(2,7)=l/100
EndSub

3. Unknown_Error

4. set x= "35; 165& quot; & 12

5. How to use the golden finger of VBA simulator:

1. First open the VBA simulator

2. Execute file --- open (the game you want to play, let's take the ranch story as an example ~)

3. Execute modification --- golden finger list (the dialog box will appear)

4. Execute & quot; Modify & quot; That button (a button called & quot; Add golden finger dialog & quot;)

5. Here is the key to use:

take the code 02006a28: FF for example,

02006a28 ------ is the address code (please enter the first line of the dialog box)

FF ------ is the value (please enter the second line of the dialog box)

select 8 digits in size, the number format is hexadecimal, and click OK

6. Then click & quot; Golden finger list & quot; This dialog box's OK key is OK

7. When you play the game again, your physical strength is the biggest

just to give an example, let's talk about the specific meaning of each piece of code

you should have patience to read it, if you know, please 54 ~

for the convenience of everyone's understanding, don't make a fuss, it's all in vernacular

take the code 02006a28: FF as an example.

1; Colon & quot; The first is the address code, enter & quot; Add golden finger & quot; The first line of that dialog box

2; Colon & quot; After that, the value you want to enter is

* *, which is in octal and * * *, which is in hexadecimal, ********For example,

the FF of maximum physical strength 02006a28: FF is octal

the first space of possession is potato 02006a48: 0100 --- is hexadecimal

the 9999999 of money 020068b4: 99999999 --- is hexadecimal

3, When you use golden finger, you don't need to worry about it.

4. Then you can enter the golden finger you want to choose and click OK to run it.

WinKawaks how to modify the limit of coin input and receive coin:

first change the game mode from home computer to arcade computer (first delete a. ROM file in the root directory, what is it called * * & lt; uni>- BIOS), and then set the coin key to fly the button in front of no coin (set in game)

Click & quot; in the menu; Games & quot;, More & quot; Dip switch & quot
in & quot; DIP A" Find & quot; Two coins to start the game, one coin to close;, Select & quot; On & quot
in & quot; DIP C" Find & quot; Allow receiving & quot;, Select & quot; Yes & quot
then & quot; Determine & quot; You can pick up the money

6. When there is a large amount of data to be automatically generated, or when you need to input variables to determine how much plicate data to generate, the formula will be stretched. It is recommended to use VBA to achieve 1. The data in column a of the original data interface can be added according to the demand. 2. Add buttons in the table, and add macros. 3. Code and comment sub buttons. 1_ Click() Application.ScreenUpdating = False ' Turn off the swipe screen, arr = application. Intersect (columns (1), [A1]. Current region) & 39; Get the first column of valid data a = application. InputBox (& quot; Please enter a number: & quote& quot; Enter & quot;, 1, , , 2) ' A pop-up window will prompt you to enter the repetition number r = 1 for J = 1 to UBound (ARR) & 39; Traverse column a data, and generate the corresponding number of plicate cells (R, 2). Size (a). Value = arr (J, 1) r = R + a next J application. Screenupdating = trueend sub 4. Run the result, and input the number of repetitions as 4 according to the prompt

7. Is reading data related to the number of decimal places? Then you only need to set the variable type to double or long type data, and you can read it completely. Long type is recommended

9. 如果这个都不行，我就回家种田了

Private Sub CommandButton1_Click()
For Each c In Range("A1:K20").Cells

If Empty <> c.Value Then

If InStr(c.Value, "$") > 0 Then
c.Value = Replace(c.Value, "$", "￥")

End If

If InStr(c.NumberFormatLocal, "$") > 0 Then
c.NumberFormatLocal = Replace(c.NumberFormatLocal, "$", "￥")

End If

End If
Next

End Sub

10. No one can control it with the special currency. Yite coin is the proct of blockchain technology, which is decentralized. The last problem also shows. Someone asked who is the maker of special currency? The total amount of one hundred million special coins is constant and can't be changed. The so-called banker is just a person who holds a lot of coins, and the amount of coins is constantly changing, which means that the role of "Zhuang" is constantly changing. Anyone can be a Zhuang as long as he holds enough coins. Just like stocks is a truth. To tell you the truth, a virtual coin without Zhuang is a child without mother. Who will take charge of the overall situation?