nappa7878

// **********************************************
// 入力した問題を
// マウスクリックで連続表示
//
// **********************************************

//フォントを準備する
PFont font = createFont("FFScale",32);

//問題設定

nappa7878

// **********************************************
// ランダムな問題を
// マウスクリックで連続表示
//
// **********************************************

//フォントを準備する
PFont font = createFont("FFScale",32);

void setup(){

nappa7878

// **********************************************
//
// ランダムな問題を連続表示
//
// **********************************************

//フォントを準備する
PFont font = createFont("FFScale",32);

void setup(){

nappa7878

// **********************************************
//
// ランダムな１問を表示
//
// **********************************************

//フォントを準備する
PFont font = createFont("FFScale",32);

//画面の大きさを決める

nappa7878

// **********************************************
//
// １問だけ表示
//
// **********************************************

//フォントを準備する
PFont font = createFont("FFScale",32);

//画面の大きさを決める

nappa7878

size(640,480);

nappa7878

/*****************************************
* 時計ランダム表示 （iPad PR0C0D1N6用）
* 横置き
* ボタンクリックで表示の切替
* Hiroyuki Nakano
* 2012.12.04
*****************************************/
boolean qflag = false;
PFont font=createFont("FFScala", 32);

nappa7878

/*****************************************
* １けたのたし算ランダム表示 （iPad PR0C0D1N6用）
* 横置き
* ボタンクリックで表示の切替
* Hiroyuki Nakano
* 2012.12.03
*****************************************/
String[] Quest = new String[81];
int[] Ans = new int[81];
int[] rS = new int[81];   

nappa7878

/*****************************************
* 九九ランダム表示 （iPad PR0C0D1N6用）
* 横置き
* ボタンクリックで表示の切替
* Hiroyuki Nakano
* 2012.12.02
*****************************************/
String[] Quest = new String[81];
int[] Ans = new int[81];
int[] rS = new int[81];   

nappa7878

Public Sub Sample()
    Dim i As Integer
    i = 1
    Do
        Cells(i, 10) = GetShortenedLinkGoogl(Cells(i, 1))
        i = i + 1
    Loop Until Cells(i, 1) = ""
End Sub

http://www.ka-net.org/office/of38.htmlを参照