- ベストアンサー
教えてください
dayan_dayanの回答
- dayan_dayan
- ベストアンサー率50% (8/16)
* ** *** **** ***** ****** ******* ******** このような、物を作るロジックは次のとおり。 半角スペースと全角スペースをうまくつなげることで、実現しています。 Form1にテキストボックス(Text1)をはりつけて、フォーム部分をクリックすると、 テキストボックスに文字のピラミッドが入ります。 あらかじめ、テキストボックスのプロパティーMultiLineをTrueにしておいてください。 Private Sub Form_Click() Dim i As Long Dim n As Long Dim str As String n = 8 '←ここで段数を決めています。 str = "" For i = 1 To n If (i / 2) = CInt((i / 2)) Then str = str & String$(n - (i / 2), " ") & String$(i, "*") & n - (i / 2) & vbCrLf Else str = str & " " & String$(n - Fix(i / 2) - 1, " ") & String$(i, "*") & n - (i / 2) & vbCrLf End If Next Text1.Text = str End Sub 計算結果が.5の場合に半角スペースに返るようにロジックをくんだだけです。 参考になりましたか?
関連するQ&A
- エジプトのピラミッド
エジプトのいろいろなピラミッドについて調べています。ですが、メイドゥムのスネフェル王の「崩れピラミッド」、ダハシュールの「屈折ピラミッド」の寸法が分かりません。ご存知でしたら、底辺や高さだけでなく、底辺から段になっているところや屈折しているところまでの高さなど詳しく教えてください。よろしくお願いします。
- ベストアンサー
- 考古学・人類学
- ワード2007を使ってピラミッド図形を作りました。ピラミッドは4段階に
ワード2007を使ってピラミッド図形を作りました。ピラミッドは4段階にし、高さをそれぞれ調整したいのですが、そのツールがわかりません。「オートシェープの書式設定」の「サイズ」で高さや幅を調整したのですが、そうすると、其々の台形の底辺が他の長さと変わってしまいました。各段階の高さを自由に調整する事はできますか。 イラストレータで挑戦しようと思ったのですが、使いこなせませんでした。
- 締切済み
- オフィス系ソフト
- C言語のfor文問題で・・・
C言語のfor文問題で・・・ わからない問題がありまして・・・ アスタリスクを表示させる問題なのですが・・・ わかる方いたら、ソースコードだけでいいので、教えてくだい、お願いします ただし、printfで、全てのアスタリスクを表示させるのはNGで、配列も使ってはいけません。 main関数以外の関数は使わないように、お願いします。 (1) 1段目に*が1つで、 (三角旗型のアスタリスク) 2段目に*が2つで、 3段目に*が3つで、 4段目に*が2つで、 5段目に*が1つ。 (2) 1段目に*が1つで、 2段目に*が3つで、 3段目に*が5つで、 (ダイヤ型のアスタリスク) 4段目に*が3つで、 5段目に*が1つ。 (3) 1段目に*が2つで、 (六角形型のアスタリスク) 2段目に*が4つで、 3段目に*が2つ。 以上3問です。
- ベストアンサー
- C・C++・C#
- VB6の変数宣言で、末尾に"*"と数値がつく構文の意味
社内で開発された既存のVB6プロジェクトのソースコードを解析しています。 その中で、標準モジュール内に以下のような構文がありました。 '----------- Public Type BufData KaiinID As String * 4 MiseCode As String * 8 (以下省略) End Type '----------- ユーザ定義型の要素を宣言している記述ですが、 それぞれ末尾の「* 4」や「* 8」は何をしているのでしょうか? "ユーザー定義型 アスタリスク"などで検索しましたが、 これといった情報を見つけられませんでした。 (質問者はjavaのコーディング経験は1年ほどあるんですが、VBはまだ数日です。) よろしくお願いします。
- ベストアンサー
- Visual Basic
- visual basic6.0とエクセルのシートについて
はじめまして、こんにちは タイトルの通り、VBとエクセルについてなのですが、 VBのコンボボックスを変化させると(1、2、3・・・のように)、エクセルのシート(すでにシート名は1から順に名前をつけました)も1、2、3・・・とかわり、そのシートのデータを表示させるようにしたいのですが、どのようなコードを書いたらよいか分かりません。 どなたか解る方がいらっしゃいましたら教えてください。よろしくおねがいします。
- ベストアンサー
- Visual Basic
- 配列にaaaからzzzまでの17576(26の3乗)個を格納したいんですけど
お世話になります。 配列pにaaaからzzzまでの17576通りの文字列を 格納したいんですけど、コードを教えてください。 vbのバージョンはvb6です。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- 鈎針で三角ショールを作りたいのですが・・
ウール100%の並太の毛糸でネット編みにモチーフを後から付ける三角ショールを作りたいと思っているのですが大きさのバランスは出来たら作りながら見たいんです。 最初に三角形の底辺になるように100目(例えば)編んでピラミッドのように頂点に向かっていくのではなく、頂点から裾に広げていくように編むとか、底辺の中央から山形に編み進めて大きくしていく方法と言うのは有るのでしょうか? ためしに編んでみてはいるのですがうまくいきませんし、私の希望する編み方に限らず三角ショールの編み方をネットで見つけることも出来なくて困っています。(近くの本屋さんでもちょっと見つけられなくて・・)それとも不可能なんでしょうか・・・アドバイスよろしくお願いいたします。
- ベストアンサー
- 手芸・裁縫
- 「ダ・ヴィンチ・コード」のラストの意味を教えてください
こんばんは。 先日「ダ・ヴィンチ・コード」をようやく見てきたのですが まずはネタバレ改行を ラストのトム・ハンクスが見ているピラミッドは実際あるんでしょうか? 誰かが移動してピラミッド内に保管した・・・ということなんでしょうか? 全然違っているかもしれませんが教えてくださいますでしょうか? どうぞよろしくお願い致します。
- ベストアンサー
- 洋画
- sinカーブの表示のさせ方
C言語で、sin(サイン)カーブをアスタリスクを使って表示するコードを教えてください。 お手数ですが、考え方についても、簡単で結構ですので教えていただければと思います。 よろしくお願いします。
- 締切済み
- C・C++・C#
お礼
ありがとうございました