Question

两道vb题，，谢谢

Answer 1

command1为第一题，command2为第二题

望采纳。。。。

追问

额，不好意思，第二题是1元换成1 2 5分的

我没太看懂你的意思

输出的是什么?_?

追答

第一列1分的个数，第二列2分的个数，第三列5分的个数。也就是i，j，k的值，i+2j+5k=10，这种数学就不要问了

追问

可是加起来是一角，，而不是一元啊

追答

奥，进制搞错了，应该是=100呀

追问

好的，，谢谢你

追答

把里面的10都改成100就行了

望采纳。。。。

Answer 2

Dim str As String = ""
        Dim n As Integer, sum As Integer = 1, i, j As Integer
        For i = 10 To 20

            For j = 2 To i - 1
                If i Mod j = 0 Then Exit For
            Next j
            If j > i - 1 Then
                sum = sum * i
                str = str & i & " "
            End If
        Next i
        TextBox1.Text = str & vbCrLf & " 以上素数的积是 " & sum