構造体の初期化？について (ID:91206)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ※VB6と仮定します。 当方では再現できませんでしよ？ -Form1.frm- Option Explicit Private Type tX p As Long q As Long End Type Dim u As tX Private Sub Form_Load() With u .p = Rnd * 100 .q = Rnd * 100 Debug.Print .p, .q End With End Sub Module1.bas- Sub main() Dim i As Form1 Set i = New Form1 i.Show vbModal Set i = New Form1 i.Show vbModal End Sub