Problem 35 module Problem_0035 (* 197は巡回素数と呼ばれる. 桁を回転させたときに得られる数 197, 971, 719 が全て素数だからである. 100未満には巡回素数が13個ある: 2, 3, 5, 7, 11, 13, 17, 31, 37, 71, 73, 79, および97である. 100万未満の巡回素数…

Problem 34 module Problem_0034 (* 145は面白い数である. 1! + 4! + 5! = 1 + 24 + 120 = 145となる. 各桁の数の階乗の和が自分自身と一致するような数の総和を求めよ. 注: 1! = 1 と 2! = 2 は総和に含めてはならない. *) (* 40730 4443 ms *) let calc() …

コンボボックス内の任意のアイテムの選択の仕方 何でこうなったかと作った人に聞いてみたいですが、まー当時はこれでも大分便利だったんでしょう。。。 '''使い方： Call SelectComboBoxItem(Me.cmbTest, 14) Private Sub SelectComboBoxItem(ByRef cmb As C…