Sub x_d_y1() Dim in_y As String 'ダイスの面数入力 Dim in_x As String 'ダイスの数入力 Dim y As Integer 'ダイスの面 Dim x As Integer 'ダイスの数 Dim loop_counter As Integer 'カウンター Dim sum_v As Integer '出た目の合計 Randomize
in_y = InputBox("ダイスの面数") y = Val(in_y) in_x = InputBox("ダイスの数") x = Val(in_x)
sum_v = 0 For loop_counter = 1 To x sum_v = sum_v + Int(Rnd() * y) + 1 Next loop_counter
