Kako. Pa program odlicno radi.
Ako se doda kod:
Code:
Private Sub Command1_Click()
Dim n As Integer
Open "Redni brojevi pitanja.txt" For Output As #1
For n = 1 To UBound(question)
List1.AddItem question(n)
Print #1, question(n) & ",";
Next n
Close #1
End Sub
Dobija se:
Code:
376,268,29,200,374,174,71,97,18,112,23,357,8,51,419,161,348,283,202,339,101,117,37,108,276,182,402,432,190,201,485,9,150,86,248,257,199,351,58,197,128,294,17,492,437,68,362,312,160,151,366,132,332,7,124,183,217,346,238,256,78,482,91,367,424,247,195,393,498,179,119,386,301,299,102,253,6,334,404,388,94,264,421,434,244,105,110,489,3,136,192,223,145,457,221,316,87,290,481,319,278,379,340,54,55,76,449,111,127,327,133,154,298,343,203,292,410,240,465,159,370,363,267,88,460,381,134,269,11,286,375,305,466,441,280,147,279,226,67,186,302,155,406,34,488,143,403,181,191,236,65,265,85,141,164,273,241,25,361,114,148,75,89,50,289,138,113,232,444,237,417,171,349,230,352,313,284,323,21,139,5,281,416,167,239,272,208,333,397,1,63,49,408,79,474,175,57,430,358,53,198,330,443,435,394,218,59,219,66,314,166,461,493,254,398,216,14,156,123,365,405,2,40,271,213,225,384,46,304,120,266,36,325,483,116,467,445,329,347,287,336,107,296,73,131,372,261,24,255,390,72,383,322,378,163,451,262,212,389,99,308,297,206,204,359,415,345,309,429,438,291,380,234,344,439,475,486,411,100,246,82,173,413,95,295,26,214,448,495,185,220,69,28,433,252,20,355,30,472,115,409,178,162,293,354,74,153,480,500,47,142,391,326,196,98,61,342,331,106,442,458,130,45,395,188,456,414,56,496,243,31,77,35,484,129,84,157,446,440,490,364,125,251,109,250,83,149,321,193,13,422,317,356,452,324,338,104,270,16,103,353,425,224,431,222,259,499,311,275,118,369,4,320,318,205,52,462,274,350,12,282,450,476,412,471,373,140,468,165,177,81,401,310,187,426,144,494,33,459,158,92,245,454,39,335,377,328,189,62,64,235,146,41,43,303,420,277,487,306,227,497,93,371,38,176,479,172,263,399,418,135,27,341,169,469,285,464,455,231,436,307,121,385,126,60,382,137,463,447,407,428,392,210,207,96,260,368,288,209,15,19,32,70,152,337,228,423,470,211,360,400,229,90,427,478,10,44,242,315,48,453,473,22,396,300,184,387,194,168,491,122,233,80,249,42,180,258,170,215,477,
Kako ne idu pitanja "spontano"? Objasni.
rgdrajko