用户名：meinei9836
12345678超拉穿均态冲况910111213141516岩步革随模脸地集爱聚展171819202122232425262728293031323334PublicC蒸注女群志飞百界关lassForm1PrivateConstMAXAsInteger=7PrivateSubButton1_来自Click(senderAsObject,eAsEventArgs)h**andles***.ClickDimSF(7)AsSingleSF={1,2,3,4问答,5,6,7,8}DimYN(7)AsSingle'简单起见，类型都是singleYN={11,12,13,14,15,16,17,18}C号武reateCols()Me.DataGridView1.Rows.Clear()ShowOneRow(SF)ShowOneRow(YN)EndSubPrivateSubShowOneRow(ByValarrAsSingle())D互回兰imindexAsInteger=Me.DataGridView1.Rows.Add()DimlastRowAsDataGridViewRow=Me.DataGridView1.R石图标ows(index)ForIAsInteger=0ToMAX-1lastRow.Cells(I).Value=arr(I)N级叫味考苦绝互取章图extEndSubPrivateSubCreateCols()If(Me.DataGridView1.ColumnCount<>MAX)ThenMe.DataGridView1.Columns.Clear()F别绿齐orIAsInteger=1ToMAXDimcolAsNewDataGridViewTextBoxColumnc做同热有ol.Width=40M格饭美今干神算e.DataGridView1.Columns.Add(col)NextEndIfMe.DataGridView1.AllowUserToAddRows=FalseEndSubEndClass
