If you want a very basic VB question bank program, please help me make one

Revised at 22:25 on March 8.

1. First make a word document, draw a ** in it, one grid per line, put the text of the title and ** in the same grid, one line per question, do not leave blank lines, and then save it in the project directory and name it "Title." doc”；

2. Find "Microsoft Word Object Library" in the [Project]-[Reference] menu and tick it, and then paste it as follows**:

private sub command1_click() 'Topic button.

dim rnum as integer 'The number of questions is stored, i.e., the number of rows.

dim n as integer 'Holds random numbers.

falsevisible = true 'Display the Word document.

Topic. doc" 'Open the document.

rnum = . 'Get the number of rows.

n = int(rnd * rnum) +1 'Calculate random numbers.

1).select 'Select a random square.

Copy everything in the grid, including **.

documenttype:=wdnewblankdocument 'Create a blank document.

wdpastedefault) 'Paste the content of the assignment.

windows("Topic. doc").activate

Close the original document.

end with

end sub

private sub command2_click() 'This button must be pressed before you can select the next question.

on error resume next

Quit Word

true false

end sub

It is recommended to put the text, **path in the database, and then randomly select the data record, extract the text and **information, and display it on the interface, which is more efficient than word, I used vb to operate office files, the efficiency is very low, the speed is very slow, and the problem in word is not easy to solve.

The idea of using a database.

1。Use ADO to connect to an access database.

3。Using a random function, select a question in the database record, and the text can be displayed directly in txt, and connect the picbox to the question**.

Topic. doc is better with a database.

i is the value of i (which is the last value of i that does not enter the loop body, i.e. printed).

The i value of i=i+1 becomes Huawei

The value of j=j-i is 10-2-4-6-8-10=-20

The caption property of the command1 button is set to:"Open the file"

Select the checkmark via Menu --> Engineering --> Widget: Microsoft Common Dialog Control: as shown below

Add a generic dialog box and set the properties accordingly:

The name is set to:"cd1"

dialogtitle is set to:"Open the file"

filter is set to:"All files (*.)Text (*.)txt)|*txt"

private sub command1_click()end sub

Basically according to the requirements of your question, if you don't understand, ask again!