Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim myfile As Integer = My.Computer.FileSystem.ReadAllText("c:\vb\940303.SM")
        Dim i As Integer
        For i = 2 To myfile - 1
            If myfile Mod i = 0 Then

arthurliu 發表在 痞客邦 留言(0) 人氣()

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim myfile As Integer = My.Computer.FileSystem.ReadAllText("c:\vb\940302.SM")
        Dim i, j As Integer
        For i = 1 To myfile
            For j = 1 To i

arthurliu 發表在 痞客邦 留言(0) 人氣()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim myfile As Integer = My.Computer.FileSystem.ReadAllText("c:\vb\940301.SM")
        Dim s, i As Integer
        Dim n As Integer = myfile
        For i = 1 To 99

arthurliu 發表在 痞客邦 留言(0) 人氣()

Question:設計程式,給使用者一次又一次輸入整數,直到使用者輸入0代表結束,此時,列出之前所輸入的最大整數、最小整數、所有輸入整數的加總及平均值。

import java.io.*;
public class number {

    public static void main(String args[])throws IOException {

arthurliu 發表在 痞客邦 留言(0) 人氣()



比馬桶還髒!粉撲長年不洗,小心男友一親吃掉1萬細菌!

妳的粉撲洗了嗎?很多女性天天化妝,但從不洗粉撲,你知道嗎?粉撲是細菌的溫床,因為上頭沾了臉上的皮屑,很容易滋生細菌,粉撲還有人體的汗水和油脂,骯髒程度就好比是家裡使用過的髒抹布,一旦感染病菌,很有可能會出現蜂窩性組織炎。

arthurliu 發表在 痞客邦 留言(0) 人氣()

  • Oct 16 Tue 2007 23:37
  • 送舊

在中心受訓將近四個月,
轉眼間第一階段將要結束,
學長姊們也要踏入職場了,
於是乎就有了今天這場送舊聯誼會!

arthurliu 發表在 痞客邦 留言(0) 人氣()

剛剛在電視上看到這則新聞,
整個眼眶淚都快飆出來了,
尤其是看到記者訪問她大兒子那一幕~~
真是讓人深有感觸。

arthurliu 發表在 痞客邦 留言(0) 人氣()

arthurliu 發表在 痞客邦 留言(0) 人氣()

/**
 * @(#)q3.java
 *
 *
 * @author

arthurliu 發表在 痞客邦 留言(4) 人氣()

/**
 * @(#)q2.java
 *
 *
 * @author

arthurliu 發表在 痞客邦 留言(0) 人氣()