０〜９ver
| [1] | 投稿者：ponyo 投稿日：2010/02/28(Sun) 15:22 No.1071 | |
Sub Test3()
'天才プログラマー立ちが作ったprogram
'henna kakikomi ha yamero
LBL_START:
b = 0
Select Case MsgBox("パワフロorファミスタ？" & Chr(10) _
& "パワフロ→はい" & Chr(10) _
& "ファミスタ→いいえ", vbclitical + vbYesNoCancel)
Case vbYes: MsgBox "おｋ キタ──────――(゜∀゜)─――――――――!? "
kanjiline:
Windows.Arrange ArrangeStyle:=wdIcons
Dim MyValue, x As Long
MyValue = 0
k = 0
L = 0
x = 0
b = b + 1
Randomize
MyValue = Int((2 * Rnd) + 1)
x = Int((10 * Rnd) + 1) '1 〜 6
x = x + 47 '48 〜 57
If MyValue = 1 Then GoTo Chrline
For k = 1 To 100000
For L = 1 To 25
Next L
Next k
With Selection
.TypeBackspace
End With
Chrline:
For k = 1 To 100000
For L = 1 To 25
Next L
Next k
a = Chr(x)
Selection.TypeText Text:=" " & a & " "
If b = 25 Then GoTo LBL_START
GoTo kanjiline
Case vbNo: MsgBox "16bitでなにができるんだ"
Case Else: MsgBox "逃げるな"
GoTo LBL_START
End Select
End Sub
|
| [2] | 投稿者：ponyo 投稿日：2010/03/01(Mon) 17:30 No.1073 | |
ひまだったのでVBAでつくりました
時間があればまたつくるかもしれません
そのときはここで発表します
それから管理人は関係のないかきこみを削除してください
|
| [3] | 投稿者：ponyo 投稿日：2010/03/04(Thu) 08:45 No.1076 | |
この掲示板は
更生しました、
変な書き込みはやめてください
|
| [4] | 投稿者：ponyo 投稿日：2010/03/08(Mon) 10:38 No.1081 | |
Sub yandere()
For k = 1 To 8
Selection.TypeText Text:="あいうえお"
Selection.TypeText Text:="かきくけこ"
Selection.TypeText Text:="さしすせそたちつてと"
Selection.TypeText Text:="なにぬねのはひふへほまみむめも"
Selection.TypeText Text:="やゆよらりるれろわをん"
Next k
MsgBox ("")
Windows.Arrange ArrangeStyle:=wdIcons
Dim Res As Integer
Res = MsgBox(" " & ok & "", vbYesNo)
If Res = vbYes Then
For L = 1 To 35
Selection.WholeStory
Dim strTemp As String
strTemp = Selection.Text
Dim MyString, FirstWord, LastWord, MidWords
MyString = strTemp
FirstWord = Mid(MyString, L, 1) ' "あ" を返します。
'LastWord = Mid(MyString, 2, 2) '
'MidWords = Mid(MyString, 3, 2)
'MsgBox FirstWord テス
With Selection.Find
.ClearFormatting
.Text = FirstWord
.Replacement.ClearFormatting
.Replacement.Text = "♪"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
'Line2: MsgBox 5 - L & "回" テス
Windows.Arrange ArrangeStyle:=wdIcons
For M = 1 To 100000
For N = 1 To 25
Next N
Next M
Windows.Arrange ArrangeStyle:=wdIcons
With Selection.Find
.ClearFormatting
.Text = "♪"
.Replacement.ClearFormatting
.Replacement.Text = FirstWord
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
Next L
End If
End Sub
|
|